現在選択中のコントロール一覧

質問

現在選択中のコントロール一覧を
Debug.Printに書き出すことはできますか？

アクセスのフォームにコントロールが複数あるのですが
画像のように現在選択中のコントロールだけをDebug.Printに書き出したいのですが、
どのようなコードを書けばいいでしょうか？

コントロール+シフトキーで選択中にしています。
ご回答よろしくお願いします。

回答No.1

30246kiku · ベストアンサー

InSelection　で判別します。以下一例です。

Public Sub Sample()
　　Dim ctl As Control

　　With Screen.ActiveForm
　　　　For Each ctl In .Controls
　　　　　　If (ctl.InSelection) Then Debug.Print ctl.Name
　　　　Next
　　End With
End Sub

今後、以下が参考になることがあるかもしれません。

ラベルとコントロールの関連付けを解除する関数
http://hatenachips.blog34.fc2.com/blog-entry-296.html

お礼

すごーい！
取得できました
ありがとうございました。