vba 超链接和形状创建

Question

我有一个可以创建形状的子例程，但是我的代码有两个问题：

• 我必须指定将在哪张幻灯片上创建此形状。如果我想同时在多张幻灯片上创建相同的形状，这是一个问题。我该如何做到这一点？我应该用什么替换 activepresentation.slides(x)？
• 我希望该形状具有指向特定幻灯片的超链接。我的代码有什么问题来实现这一目标？当我尝试将动作分配给我创建的形状时，它给了我一个错误。

---

Sub createshape()
    Dim oshp As Shape
    Dim osld As Slide

    'old code
    Set osld = ActivePresentation.Slides(1)
    Set oshp = osld.Shapes.AddShape(msoShapeRectangle, 485, 15, 104, 60)
     oshp.ActionSettings (ppMouseClick)
         .Action = ppActionHyperlink
         .Hyperlink.Address = SlideNumber
         .Hyperlink.SubAddress = 1 'this should take the hyperlink to slide 1 i hope.
End Sub

我想自动执行此功能，因为我将多次对许多幻灯片执行相同的操作。

Answer 1

这样的东西会作用于当前幻灯片。我测试了幻灯片 2 的超链接以确保代码有效（并且没有使用 1 作为默认值）

Sub CreateShape()
    Dim oShp As Shape
    Dim oSld As Slide
    Set oSld = ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideIndex)
    Set oShp = oSld.Shapes.AddShape(msoShapeRectangle, 485, 15, 104, 60)
    With oShp.ActionSettings(ppMouseClick)
        .Action = ppActionHyperlink
        '.Hyperlink.Address = SlideNumber
        .Hyperlink.SubAddress = 2
    End With
End Sub