vba - PowerPoint 中的分支幻灯片 (VBA)

Question

我正在尝试创建一个后退按钮，但使用超链接只是将我带到上一页并以循环结束......例如如果我的幻灯片 1 有指向幻灯片 3、4 和 5 的链接，则将 3 个链接滑动到 6 和 7。如果我当前在幻灯片 7 上并单击返回，它会成功将我带回幻灯片 3，但随后我想单击返回并以幻灯片 1 结束，而不是回到幻灯片 7(希望我说得有点道理!)。

我认为我这样做的唯一方法是使用 VBA 任何人都可以就创建后退按钮的最佳方式给我一些建议吗？ (我使用的是 PowerPoint 2007)

Answer 1

我今天在一个类似的问题上苦苦挣扎，做了一个小“面包屑”——powerpoint 生成器。目前还没有链接功能，但如果您愿意，可以实现它:
Github Project

代码的基本部分

 Public Sub breadcrumbs(ByVal count As Integer, ByRef titles() As String)
    Dim cntr As Integer
    Dim content() As String
    Dim margin As Integer
    Dim width As Integer
    '----------------------------

    ' Set Titles
    content = titles
    cntr = 0
    ' Set width
    width = ((Application.ActivePresentation.PageSetup.SlideWidth - (margin * count * 2) - 20) / count) - 50

    ' Loop through all slides
    For Each sld In Application.ActivePresentation.Slides
        ' generate breadcrumb for each title
        For Each con In content
            sld.Shapes.AddShape(1, (50 + (width * cntr)), 15, width, 50).TextFrame.TextRange.Text = con
            cntr = cntr + 1
        Next con
        cntr = 0

    Next sld

End Sub