Powerpoint VBA - Как хранить информацию «в форме»?

Question

Скажем, у меня есть следующий код внутри подпрограммы:

With square
        .Fill.ForeColor.RGB = RGB(255, 255, 255)
        .Fill.Transparency = 1
        .Name = "Foo"
End With

Теперь я могу определять поиски на основе его .Name и даже использовать это имя в коде (например, я мог бы установить некоторую строкузначение имени формы).

Мой вопрос - есть ли другой способ для меня хранить значения «внутри» фигуры? В частности, несколько строк и целых чисел.

Если нет, когда я задаю текст фигуры на основе некоторых строковых и целочисленных переменных внутри подпрограммы, можно ли разрешить другому подпрограмме использовать эти битыинформация

Answer 1

Вы можете использовать коллекцию square.tags - square.tags.Добавить "NAME", VALUE. Есть пример

With square
        .Fill.ForeColor.RGB = RGB(255, 255, 255)
        .Fill.Transparency = 1
        .Name = "Foo"
        .Tags.Add "Tag 1", 1
        .Tags.Add "Tag 2", 2
        ' Reading
        For a = 1 To .Tags.Count
            Debug.Print .Tags.Name(a), .Tags.Value(a)
        Next a
End With