VBAボタンのコレクションを削除する

Question

次のスクリプトを使用してExcelでボタンを作成していますが、範囲はどこに配置したいのですか？

Sub CreateAddButton(rng As Range) 
    Dim btn As Button 
    With Worksheets("User") 
     Set btn = .Buttons.Add(rng.Left, rng.Top, rng.width, rng.Height) 
     With btn 
      .name = "Add" 
      .Caption = "Add Column" 
      .OnAction = "CreateVariable" 
     End With 
    End With 
End Sub 

この方法で生成されたすべてのボタンを削除できる方法が問題ですか？可能であれば、グローバル変数から遠ざけたいと思っています。どんな援助も感謝して受け取ります。 James

Answer 1

私はTimのメソッドに特定の名前を使用することをお勧めします。グローバル変数は必要ありません。たとえば、あなたは、各ボタン名に 「_ || ForDeletion」サフィックスを追加することができ、その後Formsボタンは別の代替けれども（しゃれが意図していない）、あなたを提供し、削除ルーチン

.Name = "Add_||ForDeletion" 

にそれを探しますAlternativeTextの「プロパティ」、「Web」の下にテキストを格納し、これを削除ルーチンの識別子として使用できます。範囲をループするとき

下部にある[削除ルーチンがエラーを回避するために後方に動作

Sub TesMe() 
    Call CreateAddButton([a2]) 
End Sub 

Sub CreateAddButton(rng As Range) 
    Dim btn As Button 
    With Worksheets("User") 
     Set btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height) 
     With btn 
      .Name = "Add" 
      .Caption = "Add Column" 
      .OnAction = "CreateVariable" 
      .ShapeRange.AlternativeText = "MyCollection" 
     End With 
    End With 
End Sub 


Sub GetMyButtons() 
    Dim btns As Object 
    Dim lngRow As Long 
    Set btns = Sheets("User").Buttons 
    For lngRow = btns.Count To 1 Step -1 
     If btns(lngRow).ShapeRange.AlternativeText = "MyCollection" Then 
      MsgBox "Found one", vbCritical 
      btns(lngRow).Delete 
     End If 
    Next 
End Sub 

Answer 2

VBAのボタンはShapesコレクションにあります。あなたは使用することができます。

Sub deleteButtons() 
Dim btn As Shape 

For Each btn In ActiveSheet.Shapes 
    If btn.AutoShapeType = msoShapeStyleMixed Then btn.Delete 
Next 

End Sub 

msoShapeStyleMixedは、すべてのフォームとActiveXコントロールのタイプのようです。