[[20090318104857]]　『アクティブシート上にあるコマンドボタンを削除』（shut）　ページの最後に飛ぶ

『アクティブシート上にあるコマンドボタンを削除』（shut）

 アクティブシート上にあるコマンドボタンを全て一気に削除したいのですが、
 マクロを教えて下さい。
 消したいブックが数多くあるのでお願い致します。

 コントロールツールボックスのコマンドボタンのみを削除します。
 他の種類のコントロール(チェックボックスなど)やフォームのコントロール
 などは対象外です。

 Dim obj As OLEObject
  For Each obj In ActiveSheet.OLEObjects
    If TypeOf obj.Object Is MSForms.CommandButton Then
       obj.Delete
    End If
  Next
 (MARBIN)

出来ました！（shut）

 >消したいブックが数多くあるのでお願い致します。

 見落としてました。
 指定のフォルダ内の全てのブックの全てのシートの
 コントロールツールボックスのコマンドボタンを削除します。

 Dim fol As String
 Dim wbmei As String
 Dim wb As Workbook
 Dim ws As Worksheet
 Dim obj As OLEObject
  fol = "フォルダのフルパス"
  wbmei = Dir(fol & "\*.xls")
  Do While wbmei <> ""
   Set wb = Workbooks.Open(fol & "\" & wbmei)
   For Each ws In wb.Worksheets
    For Each obj In ws.OLEObjects
     If TypeOf obj.Object Is MSForms.CommandButton Then
        obj.Delete
     End If
    Next obj
   Next ws
   wb.Save
   wb.Close
   wbmei = Dir()
  Loop
 (MARBIN)

げげっ！そんな事が可能なんですかっ！（shut）

 一つずつ開いて実行で十分OKと思ってましたが、
 試してみます。

コメント返信：

[ 一覧(最新更新順) ]

[[20090318104857]] 『アクティブシート上にあるコマンドボタンを削除』（shut） ページの最後に飛ぶ

[[20090318104857]]　『アクティブシート上にあるコマンドボタンを削除』（shut）　ページの最後に飛ぶ