vba获取鼠标位置 VBA里,如何获取鼠标坐标?简单点?

VBA里,如何获取鼠标坐标?简单点?DeclareFunctionGetCursorPosLib“user32”(lpPointAsPOINTAPI)aslongtypointapixaslongya

VBA里,如何获取鼠标坐标?简单点?

DeclareFunctionGetCursorPosLib“user32”(lpPointAsPOINTAPI)aslongtypointapixaslongyaslongendtypepublicsfunctiongetmouseuxuy()AsPOINTAPIGetCursorPosgetmouseuxuyendfunctionsubtest()“callgetmouseuxuu”Call“get mouse coordinate value procedure”(假设您给出的过程/程序名为getmouse)uxuy)ifgetmouseuxuy、 x>100和getmouseuxuy.y>100然后……“根据返回到当前鼠标endsub的坐标值执行一个过程/程序