有个问题求教： excel:=ComObjActive(“Excel.Application”) Sheet1:=excel.Worksheets[“Sheet1”] MouseGetP ……

有个问题求教：
excel:=ComObjActive(“Excel.Application”)
Sheet1:=excel.Worksheets[“Sheet1”]
MouseGetPos,mX,mY
PixelGetColor,clr,mX,mY
Sheet1.Cells[1,1].interior.color:=clr
return
执行有错误，如图。
如果不取坐标处的颜色值，直接赋值给clr一个十六进制数（如clr:=0x0000ff)就可以执行，好诧异，什么原因呢？请高手指点。