2
フォーム上のコントロール（Controlオブジェクト）の「Name」プロパティを調べることで、その名前を取得することができます。また「InSelection」プロパティを設定することで、デザインビュー上での選択／非選択状態を切り替えることができます。
フォームのControlsコレクションからControlオブジェクトをループで取り出し、それぞれのNameプロパティを取得、その値に応じて条件分岐することで、特定の名前のコントロールだけを処理することができます。またInSelectionプロパティを”True”に設定することで、そのコントロールを選択状態にすることができます。
プログラム
Sub SampleCode_02()
'特定の名前のコントロールを選択状態する
Dim ctl As Control
'アクティブフォームのすべてのコントロールのループ
For Each ctl In Screen.ActiveForm.Controls
With ctl
If Left(.Name, 3) = "ラベル" Then
'名前が"ラベル"で始まるときは選択状態にする
.InSelection = True
End If
End With
Next ctl
End Sub
実行例
■実行前
■実行後
