Powerpoint VBA-如何存储信息'；在'；形状？

假设我在子系统中有以下代码：

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

现在，我可以根据其

.Name

定义搜索，甚至可以在代码中使用该名称（例如，我可以为形状的名称设置一些字符串值）

我的问题是-有没有其他方法让我在形状中存储值？具体来说，是多个字符串和整数

---

如果没有，当我根据子模块中的某些字符串和整数变量设置形状文本时，是否有方法允许其他子模块使用这些信息位？

您可以使用square.tags集合-square.tags.Add“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

---

您可以使用square.tags集合-square.tags.Add“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