20
フォーム上のコントロール（Controlオブジェクト）の”名前”はその「Name」プロパティで取得・設定することができます。
その名前の一部を置換したい場合には、通常の文字列処理として、Replace関数を使うなどしてNameプロパティを書き換えます。
プログラム
Sub SampleCode_20()
'コントロール名の一部を置換する
Dim ctl As Control
'アクティブフォームのすべてのコントロールのループ
For Each ctl In Screen.ActiveForm.Controls
With ctl
If .ControlType = acLabel Then
'ラベルなら名前の「ラベル」を「lbl」に置換
.Name = Replace(.Name, "ラベル", "lbl")
End If
End With
Next ctl
End Sub
実行例
■実行前
■実行後
