hyperlink - 如何使用 Interop 向幻灯片添加超链接

Question

如何使用 C# 将超链接添加到演示文稿内的具体幻灯片？现在我已经找到了如何超链接到一个站点：

TextRange.ActionSettings[Microsoft.Office.Interop.PowerPoint.PpMouseActivation.ppMouseClick].Hyperlink.Address = "http://www.google.com";

并找到 Last/First/Next 的选项

TextFrame.TextRange.ActionSettings[PpMouseActivation.ppMouseClick].Action = PpActionType.ppActionFirstSlide;

但不要滑动4

Answer 1

如果您在 PowerPoint 中手动添加设置，然后询问设置是什么，它会告诉您。例如，将幻灯片 4 的链接添加到文本框，确保选中文本框并运行：

Sub Thing()
    Dim oSh As Shape
    Set oSh = ActiveWindow.Selection.ShapeRange(1)
    With oSh
        Debug.Print .ActionSettings(1).Hyperlink.Address
        Debug.Print .ActionSettings(1).Hyperlink.SubAddress
    End With
End Sub

结果，一个空行（没有超链接地址）和一个子地址：

259,4,Title of slide 4

259 是 SlideID 4 是 SlideIndex “幻灯片 4 的标题”是幻灯片 4 上的标题文本

我相当确定 ID 和索引是必要的；标题不是。例如，在同一演示文稿中设置指向幻灯片 3 的链接：

Sub ThingTwo()
    Dim oSh As Shape
    Set oSh = ActiveWindow.Selection.ShapeRange(1)
    With oSh
        .ActionSettings(1).Hyperlink.Address = ""
        .ActionSettings(1).Hyperlink.SubAddress = "258,3,"
    End With
End Sub

在 c# 中进行操作...留给读者作为练习。