动态鼠标指针怎么制作（电脑动态鼠标指针）

上图为例，对鼠标形状设置，当选择红色区域的时候，鼠标变为I形，当选择其它区域的时候鼠标变为默认形状。

应用形式还是十分简单的。

No.2

代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim cell As Range, r As Range, Cy As BooleanCy = FalseSet cell = Range(ActiveSheet.Cells(9, 2), ActiveSheet.Cells(13, 10))    For Each r In cell        If Target.Address = r.Address Then            Cy = True            Exit For        End If    Next r    If Cy Then        Application.Cursor = xlIBeam        cell.Value = "        r.Value = "指针变为I形"    Else        Application.Cursor = xlDefault        cell.Value = "        cell.Item(1).Value = "指针恢复默认"    End IfEnd Sub

  

	上面代码要放到Worksheet_SelectionChange事件里，执行以后观看鼠标形状，在I形和默认形状之间切换。
  

	鼠标应用相对较少，甚至在某些时候可以用也可以不用。