VBA - 将幻灯片名称输出到文本框 PowerPoint

【问题标题】：VBA - Output Slide Name to a text box PowerPointVBA - 将幻灯片名称输出到文本框 PowerPoint
【发布时间】：2020-10-14 02:50:52
【问题描述】：

我正在尝试复制幻灯片名称（而不是标题）以使幻灯片显示在同一张幻灯片的文本框中。我可以获取幻灯片名称的整个列表以输出到外部文件或出现在即时窗口中。是否有某种复制/粘贴语法或隔离输出可以工作？

【问题讨论】：

标签： vba export powerpoint slide names

【解决方案1】：

stackoverflow 问题的期望是您展示您的工作代码，以便人们可以看到您尝试过的内容，并为您提出的问题添加上下文。但是也许可以尝试这样的事情，它只是为每张幻灯片添加一个包含幻灯片名称的文本框：

Option Explicit

Public Sub SlideNames()

    Dim WorkSlide As Slide
    Dim WorkTextBox As Shape
        
    For Each WorkSlide In Application.ActivePresentation.Slides
        Set WorkTextBox = WorkSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 100, 20)
        WorkTextBox.TextFrame.TextRange.Text = WorkSlide.Name
    Next

End Sub

【讨论】：

这正是我所需要的。太感谢了。我试图重新设计某人 9 年前的代码，但在这个过程中完全迷失了。