AutoHotkey Community

hasantr wrote:So it worked great. Thank you all.

PixelGetColor, OutputVar1, 500, 500, RGB
PixelGetColor, OutputVar2, 500, 500
MsgBox % Format("0x{:x}", OutputVar1) "`n" Format("0x{:x}", OutputVar2)

awel20 wrote: ↑

15 May 2019, 09:58

I can see some things that I would change. I added some comments.

hasantr wrote: ↑

15 May 2019, 03:11

Code: Select all

XL := ""
XL.Quit ; The XL variable is blank, so this will never do anything
If !IsObject(XL)
	XL := ComObjCreate("Excel.Application") ; Creates a new instance of excel
XL.visible := true
; The next line gets an already running instance of Excel... possibly a different one than was created with XL := ComObjCreate("Excel.Application")
XL := ComObjActive("Excel.Application")

Code: Select all

If !IsObject(XL := ComObjActive("Excel.Application")) ; If Excel is not running
{
	XL := ComObjCreate("Excel.Application") ; Creates a new instance of excel
	XL.visible := true
}

Maybe something like this. But ComObjActive will only work well if you have just one instance of Excel.

Klarion wrote: ↑

15 May 2019, 10:46

Just tested

What the heck is color value 0xFFFFFFFF ??

Code: Select all

_ := ComObjActive("Excel.Application")
Loop, 35 {
	c ++
	r := 0
	Loop, 30 {
		r ++
		PixelGetColor, cVal, % c, % r
		If(cVal != 0xFFFFFFFF)
			_.ActiveWorkbook.ActiveSheet.Cells(r, c).Interior.Color := cVal
	}}

캡처.PNG

awel20 wrote: ↑

15 May 2019, 09:58

I can see some things that I would change. I added some comments.

hasantr wrote: ↑

15 May 2019, 03:11

Code: Select all

XL := ""
XL.Quit ; The XL variable is blank, so this will never do anything
If !IsObject(XL)
	XL := ComObjCreate("Excel.Application") ; Creates a new instance of excel
XL.visible := true
; The next line gets an already running instance of Excel... possibly a different one than was created with XL := ComObjCreate("Excel.Application")
XL := ComObjActive("Excel.Application")

Code: Select all

If !IsObject(XL := ComObjActive("Excel.Application")) ; If Excel is not running
{
	XL := ComObjCreate("Excel.Application") ; Creates a new instance of excel
	XL.visible := true
}

Maybe something like this. But ComObjActive will only work well if you have just one instance of Excel.

Klarion wrote: ↑

16 May 2019, 04:20

That is all, no more codes to post and you do not need no more codes
-You know all the detail procedures and goals

The strange color code is emitted from very top of the Excel screen (I mean top of the top - Desktop itself or boundary line I guess)

Regards