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

実行例
■実行前



■実行後(デザインビューでラベルのハンドルが消えています)

| Index | Prev | Next |



Copyright © T'sWare All rights reserved