Question

我有以下代码在powerpoint上创建一个简单的图形。

Sub test()

    Dim myTextBox As Shape

    'Set element 1
    With ActivePresentation.Slides(1)
        Set myTextBox = .Shapes.AddShape(msoShapeRectangle, 15, 10, 20, 30)
        myTextBox.Fill.BackColor.RGB = RGB(170, 170, 170)
        Set myTextBox1 = .Shapes.AddTextbox(msoTextOrientationVertical, 10, 50, 20, 60)
        myTextBox1.TextFrame.TextRange.Text = "JAN"
    End With

    With ActivePresentation.Slides(1)
        Set myTextBox = .Shapes.AddShape(msoShapeRectangle, 40, 20, 20, 20)
        myTextBox.Fill.BackColor.RGB = RGB(170, 170, 170)
        Set myTextBox1 = .Shapes.AddTextbox(msoTextOrientationVertical, 35, 50, 20, 60)
        myTextBox1.TextFrame.TextRange.Text = "FEB"
    End With

一切正常。但是，当有人点击文本元素时，我希望触发此方法。

所以我想说我有一个名为“Rechthoek 43”的元素。我应该如何调整我的代码，以便在单击“Rechthoek 43”

时调用test（）方法

Answer 1

应该能够选择你的形状并做：

插入 - ＆gt;链接 - ＆gt;操作并选择运行宏（您的宏）

不确定这是否仅适用于目前无法测试的操作按钮。

替代方法是编写一个类来检测形状的选择。

操作按钮信息：

Add commands to your presentation with action buttons

此处的视频演示将动作添加到普通形状（似乎有可能）

Tutorial 2 - Assign Macro to a Shape

单击powerpoint中的元素时触发功能

1 个答案: