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

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

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

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

No.1 ベストアンサー 回答者： 30246kiku 回答日時： 2013/01/17 11:50

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 …

この回答へのお礼

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

お礼日時：2013/01/17 21:36