vba形状的集合

Question

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

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

Object不支持此属性或方法。 的

 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，因此无法联系到{p> Nothing。您应该将其初始化为New Collection。

除此之外，删除括号：

ar.Add myshape

使用括号，您尝试向形状对象的默认属性的值添加集合，Shape没有默认属性。