Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

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

2016/02/03

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

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

　

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 を実行（待ち状態）

- その他の操作 Application オブジェクト, Cursor プロパティ, VBA基本, エクセルVBA, その他

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: イミディエイトウィンドウに出力（Debug.Print メソッド）

イミディエイトウィンドウに出力マクロ実行中に、Debug オブジェクトの P …

: マクロを中断する（Stop ステートメント）

マクロを中断しデバッグモードにするマクロの実行をを中断し、デバッグモードにする …

: 確認メッセージの表示・非表示（DisplayAlerts プロパティ）

警告や確認メッセージの表示・非表示を設定マクロ実行中に、警告や確認メッセージの …

: マクロを中断する（Assert メソッド）

マクロを中断しデバッグモードにする Debug オブジェクトの Assert …

: 切り取りモード、コピーモードの取得・解除（CutCopyMode プロパティ）

切り取りモード、コピーモードの取得と設定 CutCopyMode プロパティを …

: 実行中のマクロを指定時刻まで停止する（Wait メソッド）

実行中のマクロを一時停止 Wait メソッドで、実行中のマクロを、指定した時刻ま …

: ウィンドウの画面を構成する各要素の表示設定

ウィンドウの画面を構成する各要素の表示設定 DisplayWorkbookTab …

: オブジェクトをクリップボードへピクチャ（画像）としてコピー（CopyPicture メソッド）

オブジェクトをクリップボードへピクチャ（画像）としてコピー指定したオブジェクト …

PREV: オブジェクトをクリップボードへピクチャ（画像）としてコピー（CopyPicture メソッド）
NEXT: 切り取りモード、コピーモードの取得・解除（CutCopyMode プロパティ）