全部显示

Cursor 属性

       

返回或设置 Microsoft Excel 中鼠标指针的形状。XlMousePointer 类型,可读写。

expression.Cursor

expression   必需。该表达式返回“应用于”列表中的对象之一。

说明

当宏停止运行时,Cursor 属性不会自动重设。在宏停止运行前,应将指针重设为 xlDefault

示例

本示例将鼠标指针形状更改为 I 形,稍停片刻,然后将其重新变为默认指针形状。

Sub ChangeCursor()

    Application.Cursor = xlIBeam
    For x = 1 To 1000
        For y = 1 to 1000
        Next y
    Next x
    Application.Cursor = xlDefault

End Sub