6
フォーム上のコントロール（Controlオブジェクト）の「InSelection」プロパティで、デザインビュー上でのコントロールの選択状態を取得・設定することができます。”True”が選択状態、”False”が非選択状態です。
フォームのControlsコレクションからControlオブジェクトをループで取り出し、InSelectionプロパティが”True”であるものだけ処理することで、デザインビュー上で現在選択されているコントロールをリストアップすることができます。
プログラム
Sub SampleCode_06()
'選択されているコントロールを取得する
Dim ctl As Control
'アクティブフォームのすべてのコントロールのループ
For Each ctl In Screen.ActiveForm.Controls
With ctl
If .InSelection Then
'選択されていたらコントロールの名前を出力
Debug.Print .Name
End If
End With
Next ctl
End Sub
実行例
■実行前
■実行後
