коллекция фигур vba

Question

Я хочу хранить кнопки в какой-то коллекции, arraylist,
так что я могу добавлять и удалять динамически.

Я пытался использовать Collection, но, похоже, это не тот выбор, поскольку я получил ошибку при достижении 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, и Shape не имеет свойства по умолчанию.