作者：绿色风
分类：
时间：2022-08-17
浏览：130
楼主
gvntw |
Q：如何设置鼠标形状？
A：按<Alt+F11>进入VBE编辑器，再按<Ctrl+G>调出立即窗口，在立即窗口中输入以下代码后回车，鼠标有不同形状。
Application.Cursor = xlDefault '空心十字
Application.Cursor = xlIBeam '工型
Application.Cursor = xlNorthwestArrow '斜向空心前头
Application.Cursor = xlWait '酒杯型，或叫漏斗型，呵呵 |
2楼
biaotiger1 |
Q：如何在VBA中更改鼠标的形状？
A：ALT+F11→新建模块，输入如下代码
- Sub 改变鼠标外观()
- Application.Cursor = xlIBeam 'I 形指针
- Application.Cursor = xlNorthwestArrow '西北向箭头指针
- Application.Cursor = xlWait '沙漏型指针
- Application.Cursor = xlDefault '默认指针
- End Sub
按F8单步执行，即可看到工作表中鼠标指针的形状发生了变化 |
3楼
amulee |
Q：如何设置窗体中的鼠标形状？
A：按Alt+F11进入VBE，在窗体中添加不同代码可以得到不同的鼠标形状。- Private Sub UserForm_Initialize()
- Me.MousePointer = fmMousePointerAppStarting
- Me.MousePointer = fmMousePointerDefault '标准指针。根据对象来决定指针的图像（默认）。
- Me.MousePointer = fmMousePointerArrow ' 箭头。
- Me.MousePointer = fmMousePointerCross ' 十字线指针。
- Me.MousePointer = fmMousePointerIBeam 'I 形标。
- Me.MousePointer = fmMousePointerSizeNESW ' 斜下的双箭头。
- Me.MousePointer = fmMousePointerSizeNS ' 南北向的双箭头。
- Me.MousePointer = fmMousePointerSizeNWSE ' 斜上的双箭头。
- Me.MousePointer = fmMousePointerSizeWE '东西向的双箭头。
- Me.MousePointer = fmMousePointerUpArrow ' 向上键。
- Me.MousePointer = fmMousePointerHourGlass '沙漏。
- Me.MousePointer = fmMousePointerNoDrop '在被拖动的对象上有 “Not”符号（有一条斜线的圆）。表示是无效的放置目标。
- Me.MousePointer = fmMousePointerAppStarting '带沙漏的箭头。
- Me.MousePointer = fmMousePointerHelp '带问号的箭头。
- Me.MousePointer = fmMousePointerSizeAll '调整所有尺寸的光标（四向箭头）。
- Me.MousePointer = fmMousePointerCustom '使用由 MouseIcon 属性指定的图标。
- End Sub
|
4楼
kevinchengcw |
今天才看到 |
5楼
gysegz |
猛帖 |
6楼
佛山小老鼠 |
想问一下“手形”的 |
7楼
aimstar |
功能很强大。。一切皆有可能 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一