19
コマンドボタンコントロールの「ポイントしたときのカーソル」プロパティは、VBAでは「CursorOnHover」プロパティで取得・設定します。
フォームのControlsコレクションからControlオブジェクトをループで取り出し、そのコントロールがコマンドボタン（ControlTypeプロパティが組み込み定数acCommandButton）なら、CursorOnHoverプロパティに”ハイパーリンクの手”を表す組み込み定数「acCursorOnHoverHyperlinkHand」を代入します。
- ハイパーリンクの手acCursorOnHoverHyperlinkHand
- 既定のカーソルacCursorOnHoverDefault
プログラム
Sub SampleCode_19()
'コマンドボタンのポイントしたときのカーソルをハイパーリンクの手にする
Dim ctl As Control
'アクティブフォームのすべてのコントロールのループ
For Each ctl In Screen.ActiveForm.Controls
With ctl
If .ControlType = acCommandButton Then
'コマンドボタンならポイントしたときのカーソルプロパティを変更
.CursorOnHover = acCursorOnHoverHyperlinkHand
End If
End With
Next ctl
End Sub
実行例
■実行前
■実行後
