12 | ラベルとテキストボックスの関連を削除する | ||
テキストボックスやコンボボックスなど、入力や選択を行うコントロールと関連付けられたラベルコントロール(テキストボックスなどの標題表示用のラベル)は、テキストボックスなどの「ラベル名」プロパティ(VBAでは「LabelName」プロパティ)で取得・設定できます。 そのプロパティに「""(長さゼロの文字列)」を代入することで、テキストボックスなどとラベルとの関連付けを削除し、それぞれが独立した状態に変えることができます。・・・・逆に任意のラベルコントール名を代入すれば関連付けを行うことができます プログラム
Sub SampleCode_12() 'ラベルとテキストボックスの関連を削除する Dim ctl As Control Dim strLableName As String 'アクティブフォームのすべてのコントロールのループ For Each ctl In Screen.ActiveForm.Controls With ctl 'はじめからラベル名プロパティがないときのエラーを無視 On Error Resume Next 'ラベル名プロパティをクリア .Properties("LabelName") = "" On Error GoTo 0 End With Next ctl End Sub 実行例
■実行前■実行後(デザインビューでラベルのハンドルが消えています) |
|||
|
Copyright © T'sWare All rights reserved |