VBA - Output 幻燈片名稱到文本框 PowerPoint

Question

我正在嘗試復制幻燈片名稱（而不是標題）以顯示在同一張幻燈片的文本框中。 我可以將 output 的幻燈片名稱的整個列表獲取到外部文件或立即出現在 Window 中。 是否有某種復制/粘貼語法或孤立的 output 可以工作？

Answer 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