1
フォーム上のコントロール（Controlオブジェクト）の「InSelection」プロパティで、デザインビュー上でのコントロールの選択状態を取得・設定することができます。”True”が選択状態、”False”が非選択状態です。
フォームのControlsコレクションからControlオブジェクトをループで取り出し、それぞれのInSelectionプロパティを”True”に設定することで、そのフォームのすべてのコントロールを選択状態にすることができます。
プログラム
Sub SampleCode_01()
'すべてのコントロールを選択状態にする
Dim ctl As Control
'アクティブフォームのすべてのコントロールのループ
For Each ctl In Screen.ActiveForm.Controls
'選択状態にする
ctl.InSelection = True
Next ctl
End Sub
実行例
■実行前
■実行後
