Application.Cursor Property

Applicationオブジェクト.Cursor propertyプロパティ

Microsoft Excel のマウスポインターの形状を取得または設定します。読み取り/書き込み可能な**xlmousepointer** です。

構文
expression.Cursor
※expression**Application** オブジェクトを表す変数。

XlMousePointer enumeration

Name	値	説明
xlDefault	-4143	標準のポインター
xlIBeam	3	I 字型ポインター
xlNorthwestArrow	1	矢印型ポインター
xlWait	2	砂時計型ポインター

使用例

Sub ChangeCursor() 
 
 Application.Cursor = xlIBeam 
 For x = 1 To 1000 
 For y = 1 to 1000 
 Next y 
 Next x 
 Application.Cursor = xlDefault 
 
End Sub

Sub ChangeCursor()

Application.Cursor = xlIBeam

For x = 1 To 1000

For y = 1 to 1000

Next y

Next x

Application.Cursor = xlDefault

End Sub