4
フォームのControlsコレクションからControlオブジェクトをループで取り出し、「ControlType」プロパティや「Name」プロパティ、あるいはその他のプロパティ値に応じて条件分岐することで、条件に一致する特定のコントロールだけのプロパティを取得・設定することができます。
それによってデザイン上の複数のコントロールに対して同じプロパティ値に一括変更することができ、色やスタイルなど外観をすべて同じように整えることができます。
プログラム
Sub SampleCode_04()
'特定のコントロールのプロパティを一括変更する
Dim ctl As Control
'アクティブフォームのすべてのコントロールのループ
For Each ctl In Screen.ActiveForm.Controls
With ctl
If .ControlType = acLabel Then
'ラベルなら背景スタイルを普通にして背景色を変更する
.BackStyle = 1
.BackColor = RGB(240, 170, 220)
End If
End With
Next ctl
End Sub
実行例
■実行前
■実行後
