マウスポインタの形状の取得・変更（Cursor プロパティ）

サイト管理人

8年前

マウスポインタの形状の取得・変更

Excel のマウスポインタの形状を設定したり、現在のマウスポインタの状態を表す値を取得するには、Cursor プロパティを使用します。

【書式】

＜取得＞
object.Cursor

＜設定＞
object.Cursor = const

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。

const ・・・マウスポインタの形状を表す XlMousePointer 列挙型の定数またはその値を指定します。

定数	値	内容
xlDefault	-4143	標準のマウスポインタ
xlNorthwestArrow	1	矢印型のマウスポインタ
xlWait	2	待ち状態・砂時計型のマウスポインタ
xlIBeam	3	I 字型のマウスポインタ

Excel の外では、設定は無効となります。

Cursor プロパティ使用例

サンプルVBAソース

　
Sub Sample_Mouse1()
    
    '標準のマウスポインタ
    Application.Cursor = xlDefault

End Sub

Sub Sample_Mouse2()

    'I字型のマウスポインタ
    Application.Cursor = xlIBeam

End Sub

Sub Sample_Mouse3()

    '矢印型のマウスポインタ
    Application.Cursor = xlNorthwestArrow

End Sub

Sub Sample_Mouse4()

    '待ち状態・砂時計型のマウスポインタ
    Application.Cursor = xlWait

End Sub

Sub Sample_Mouse1()

'標準のマウスポインタ

Application.Cursor = xlDefault

End Sub

Sub Sample_Mouse2()

'I字型のマウスポインタ

Application.Cursor = xlIBeam

End Sub

Sub Sample_Mouse3()

'矢印型のマウスポインタ

Application.Cursor = xlNorthwestArrow

End Sub

Sub Sample_Mouse4()

'待ち状態・砂時計型のマウスポインタ

Application.Cursor = xlWait

End Sub

実行結果

Sample_Mouse2 を実行（I字型）

Sample_Mouse3 を実行（矢印型）

Sample_Mouse4 を実行（待ち状態）