[[20090212204811]]　『テキストボックスの削除』（テキスト）　ページの最後に飛ぶ

『テキストボックスの削除』（テキスト）

 複数のSheetがあります。
 すべてのSheet内に含まれるテキストボックスで作成したものを一気に削除する
 マクロを教えてほしいのですが。

 シートに配置できるテキストボックスと言う名称が付けられている物には、2種類あります。

 コマンドバー「図形描画」にあるテキストボックスと
 コマンドバー「コントロールツールボックス」にあるテキストボックスです。

 標準モジュールに

 '=======================================================
 Sub test()
    Dim ole As OLEObject
    With ActiveSheet
       .TextBoxes.Delete '「図形描画」にあるテキストボックスの一括削除
 '　　　以下は、「コントロールツールボックス」にあるテキストボックスの削除コードです。
 '　　　どちらか片方だけなら、他方は削除してください
       For Each ole In .OLEObjects
          If TypeOf ole.Object Is MSForms.TextBox Then
             ole.Delete
          End If
       Next
    End With
 End Sub

 但し、「コントロールツールボックス」にあるテキストボックスの場合、
 上記のようなコードは、モジュール変数を初期化してしまうので
 そのようなことをしている場合は、注意が必要ですよ！！

 ichinose

 どうもありがとうございました。
 下の方で出来ましたが、・・BooK内の全部のシートをという事は出来ないのでしょうか？

 Sub test()
    Dim ole As OLEObject
    With ActiveSheet
       .TextBoxes.Delete '「図形描画」にあるテキストボックスの一括削除
    End With
 End Sub

 Sub test()
    Dim sht As Object
    For Each sht In ActiveWorkbook.Sheets
       sht.TextBoxes.Delete
    Next
 End Sub
 これを機に始められては？　ＶＢＡを・・・。

 ichinose

コメント返信：

[ 一覧(最新更新順) ]

[[20090212204811]] 『テキストボックスの削除』（テキスト） ページの最後に飛ぶ

[[20090212204811]]　『テキストボックスの削除』（テキスト）　ページの最後に飛ぶ