选中PPT中的图形,然后鼠标移到某个目标颜色上,最后按热键F12,即可取色并将开始选中的图形填充成鼠标下的颜色。
pp := ComObjActive("Powerpoint.Application")
;当按下热键时,所选对象的填充颜色将更新为光标位置下的颜色。
F12::
MouseGetPos, MouseX, MouseY
PixelGetColor, color, %MouseX%, %MouseY%
pp.ActiveWindow.Selection.ShapeRange.Fill.ForeColor.RGB :=color+0
return