在vba编程中，鼠标形状也是可以改变，通常情况下，很少主动设置鼠标形状。
如果熟悉windows系统设置，那么对鼠标设置也不陌生。
vba并不是可视化操作，本节就讲一下，如何在编程中动态改变鼠标形状。
鼠标形状就是个参数设置，这个参数在vba里以常量形式来固定下来，如何让鼠标符合我们主定义的方式来显示，只需要将常量进行改变一下就可以实现。
实现这个过程的属性为cursor，是application对象的一个属性，应用常量xlmousepointer。
xlmousepointer常量有如下四种：
application.cursor=xldefault
application.cursor=xlbeam
application.cursor=xlnorthwestarrow
application.cursor=xlwait
常量说明
xldefault默认指针
xlibeami形指针
xlnorthwestarrow西北向箭头指针
xlwait沙漏型指针
上图为例，对鼠标形状设置，当选择红色区域的时候，鼠标变为i形，当选择其它区域的时候鼠标变为默认形状。
应用形式还是十分简单的。
no.2代码
privatesubworksheet_selectionchange(byvaltargetasrange)
dimcellasrange,rasrange,cyasboolean
cy=false
setcell=range(activesheet.cells(9,2),activesheet.cells(13,10))
foreachrincell
iftarget.address=r.addressthen
cy=true
exitfor
endif
nextr
ifcythen
application.cursor=xlibeam
cell.value=""
r.value="指针变为i形"
else
application.cursor=xldefault
cell.value=""
cell.item(1).value="指针恢复默认"
endif
endsub
上面代码要放到worksheet_selectionchange事件里，执行以后观看鼠标形状，在i形和默认形状之间切换。
鼠标应用相对较少，甚至在某些时候可以用也可以不用。
原文标题：动态鼠标指针怎么制作（电脑动态鼠标指针），如若转载，请注明出处：https://www.pxzlyy.com/tougao/16691.html
免责声明：此资讯系转载自合作媒体或互联网其它网站，「正龙号」登载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述，文章内容仅供参考。
微信扫一扫
相关推荐
-
高手感受金利来（Goldlion）钱包透漏解密，使用分享爆料
高手感受金利来（Goldlion）钱包透漏解密，使用分享爆料？有人评价说这款金利来（Goldlion）钱包金利来面料手感很舒服，应该是正品，客服也很专业，也有人...
-
点评剖析觉得Jordan儿童护龈牙刷到底如何？体验过后真实反馈
点评剖析觉得Jordan儿童护龈牙刷到底如何？体验过后真实反馈？有人评价说这款Jordan儿童护龈牙刷这款牙刷种草很久啦小伙伴推荐说超级好用正好看到有活动就入手...
-
良心使用迈飞特咬肌训练器怎么样好不好？说说半个月心得分享
良心使用迈飞特咬肌训练器怎么样好不好？说说半个月心得分享？有人评价说这款迈飞特咬肌训练器已经在练习了，很有效果，太阳穴凹陷的，可以冲~我就是太阳穴凹陷比较严重的...
-
反馈解密蕉内（Bananain）毛线帽怎么样好不好？告知两个月真相分享
反馈解密蕉内（Bananain）毛线帽怎么样好不好？告知两个月真相分享？有人评价说这款蕉内（Bananain）毛线帽帽子非常好，戴了小两个月了，零下20度左右保...
-
使用者讲述心想（SCISHARE）胶囊咖啡机怎么样好不好，谁熟悉呀
使用者讲述心想（SCISHARE）胶囊咖啡机怎么样好不好，谁熟悉呀？有人评价说这款心想（SCISHARE）胶囊咖啡机胶囊咖啡真不错?买的60粒的，一整盒有六小盒...
-
客观曝光卡乐淘（Colorato）C-AI314儿童胶画质量如何，交流两周真相分享
客观曝光卡乐淘（Colorato）C-AI314儿童胶画质量如何，交流两周真相分享？有人评价说这款卡乐淘（Colorato）C-AI314儿童胶画很好，小朋友好...