VBA有没有ActiveShape vba有没有指针

大家好，我们今日继续讲解VBA代码解决方案的第105讲内容：窗体中的鼠标指针形状的自定义方法，我们在操作电脑时，鼠标是我们最常用的硬件，当移动鼠标时会在屏幕上留下痕迹，鼠标在屏幕上的形状并不是一成不变的，我们也可以改变它。

使用对象的MousePointer属性可以自定义鼠标掠过窗体控件时的指针类型，这个属性可以指定当用户把鼠标放到特定对象上时，所显示鼠标指针的类型，语法如下：

object.MousePointer [= fmMousePointer]

参数object是必须的，一个有效对象。

参数fmMousePointer是可选的，所需鼠标指针的形状。

fmMousePointerDefault 0 标准指针。根据对象来决定指针的图像（默认）
fmMousePointerArrow 1 箭头
fmMousePointerCross 2 十字线指针
fmMousePointerIBeam 3 I 形标
fmMousePointerSizeNESW 6 斜下的双箭头
fmMousePointerSizeNS 7 南北向的双箭头
mMousePointerSizeNWSE 8 斜上的双箭头
fmMousePointerSizeWE 9 东西向的双箭头
fmMousePointerUpArrow 10 向上键
fmMousePointerHourglass 11 沙漏
fmMousePointerNoDrop 12 在被拖动的对象上有 “Not”符号（有一条斜线的圆）。表示是无效的放置目标。
fmMousePointerAppStarting 13 带沙漏的箭头
fmMousePointerHelp 14 带问号的箭头
fmMousePointerSizeAll 15 调整所有尺寸的光标（四向箭头）
fmMousePointerCustom 99 使用由MouseIcon属性指定的图标

使用由MouseIcon属性指定的自定义图标时，MouseIcon属性为对象指定一个自定义的图标，语法如下：object.MouseIcon = LoadPicture( pathname )

参数object是必须的，一个有效的对象。

参数pathname是必须的，指定包含自定义图标的文件的路径和文件名。

下面我们实测一下我们的代码，如下面所示。

Private Sub UserForm_Initialize()
 With Me.TextBox1
 .MousePointer = 8
 End With
 With Me.TextBox2
 .MousePointer = 9
 End With
End Sub

代码解析：

当用户把鼠标放到窗体的文本框上时，所显示的鼠标指针的类型为自定义图标。

第3行代码设置文本框1的MousePointer属性。

第6行代码将文本框2的MousePointer属性.

下面看运行截图：当鼠标到文本框1时：

当运行到文本框2时：

今日内容回向：

1 如何改变鼠标的形状呢？

2 上面是利用了什么方法来实现的呢？

《VBA代码解决方案》终于可以和大家见面了，这些内容均在这个平台上发表过，现结集成册，PDF文件，其中内容（含代码）可以复制