18
オプションボタンコントロールと関連付けられたラベルコントロールは、オプションボタンの「LabelName/ラベル名」プロパティで取得できます。
また、フォームのControlsコレクションからControlオブジェクトをループで取り出し、そのコントロールがオプションボタン（ControlTypeプロパティが組み込み定数acOptionButton）なら、そのLabelNameプロパティの値を取得、さらにそこに記されたラベルのLabelオブジェクトを参照することで、そのラベルの関するプロパティを設定できます。
次のプログラムでは、ラベルのプロパティのうち「Top/上位置」プロパティを操作して、オプションボタンより60Twipだけ上になるよう再配置しています（60は適当な数値です）。
プログラム
Sub SampleCode_18()
'オプションボタンに関連したラベルの位置を微調整する
Dim ctl As Control
Dim lbl As Label
'アクティブフォームのすべてのコントロールのループ
For Each ctl In Screen.ActiveForm.Controls
With ctl
If .ControlType = acOptionButton Then
'オプションボタンコントロールのとき
'ラベル名プロパティからラベルコントロールを取得
Set lbl = Screen.ActiveForm.Controls(.Properties("LabelName"))
'ラベルの上位置をオプションボタンの少し上にする
lbl.Top = .Top - 60
End If
End With
Next ctl
End Sub
実行例
■実行前
■実行後
