在powerpoint-有对象变量这样的东西，如果是这样，我如何将其传递到VBA脚本？

Question

例如，如果我制作一个像方形一样的特定形状并将其命名，但是然后想将其传递给一个脚本 - 我将如何进行此操作？似乎我可以在单击时将VBA脚本分配给形状，但它只会将VBA脚本作为独立事件运行 - 如何将信息“传递”到该VBA脚本 - 例如，如果相同的VBA脚本将根据形状名称的差异而以不同的方式运行...

我想做这样的事情：

Sub TestA(x As String)

Shell ("explorer.exe """ + x + """")

End Sub

其中x可以是属性 - 或者如果可能的话我只能将它链接到的每个形状命名为 - 它想知道如何将其传递到这里？

Answer 1

只需使用形状.Name属性？

Sub TestA()
Dim x as String
x = ActivePresentation.Slides(1).Shapes("Your_Shape_Name").Name

Shell ("explorer.exe """ + x + """")

End Sub

Answer 2

如果您将TestClick指定给形状：

Sub TestClick(oShape As Shape)
    Debug.Print oShape.Name
    'take some action depending on value of Name property...
End Sub

请参阅：http://office.microsoft.com/en-us/powerpoint-help/change-the-action-settings-of-a-button-picture-or-clip-art-HA010256555.aspx