vba形状集合

Question

我想在某种集合，arraylist，
中存储按钮，以便我可以动态添加和删除。

我试图使用集合，但似乎它不是选择，因为当达到ar.Add（）时出现错误。

对象不支持此属性或方法。

Public Sub removeAllFormsWithAdd() 
Dim myshape As Shape 
Dim ar As Collection 
For Each myshape In ActiveSheet.Shapes 
    If (myshape.FormControlType = xlButtonControl) Then 
    If (myshape.TextFrame.Characters.Text = "name") Then 
     ar.Add (myshape) 
     Debug.Print "next shape:" & myshape.TextFrame.Characters.Text & "-" 
    End If 
    End If 
    Next myshape 
End Sub 

我该如何得到它？

Answer 1

ar.Add()未达到ar是Nothing。您应该将其初始化为New Collection。

除此之外，删除括号：

ar.Add myshape 

随着括号，您要添加到集合形状对象的默认属性的值，并Shape没有一个默认属性。