提取與附加到PowerPoint中的「操作」按鈕的宏關聯的VBA代碼

Question

我有大約25個PowerPoint演示文稿，每個幻燈片至少有45張幻燈片。在每張幻燈片上有四個可能的答案和一個提示與問題相關的提示的幫助按鈕。每個答案和幫助按鈕都是一個啓動宏的PowerPoint動作按鈕。

我正在嘗試將所有問題/答案/提示遷移到SQL數據庫中。在使用Excel和Word之前，我曾與Office.Interop一起工作過，並且我擁有充足的SQL數據庫經驗，所以我沒有預見到實際提取問題和答案的文本部分並將其放入數據庫中的任何問題。

我不知道該怎麼做是給一個幻燈片上的對象 - >獲取操作按鈕信息 - >獲取宏名稱 - >最後得到宏的vb代碼。從那裏我可以弄清楚如何解析出哪個是正確的答案，以及提示的文字是什麼。

任何幫助/想法將不勝感激。

Answer 1

爲了讓您的項目的名稱運行宏設置，你會遇到這樣的事情：

Sub ActionSettingName() 
    Dim p As Presentation 
    Set p = ActivePresentation 
    Dim s As Slide 
    Dim sh As Shape 
    Dim macroName As String 
    For Each s In p.Slides 
     For Each sh In s.Shapes 
      If sh.Type = msoGroup Then 
       Dim gs As Shape 
       For Each gs In sh.GroupItems 
        PrintMacroName gs 
       Next 
      Else 
       PrintMacroName sh 
      End If 
     Next 
    Next 
End Sub 
Sub PrintMacroName(sh As Shape) 
    If sh.ActionSettings(ppMouseClick).Action = ppActionRunMacro Then 
     macroName = sh.ActionSettings(ppMouseClick).Run 
     Debug.Print macroName 
    End If 
End Sub 

UPDATE：要獲取TextRanges ActionSettings，請看下面：

Sub ActionSettingName() 
    Dim p As Presentation 
    Set p = ActivePresentation 
    Dim s As Slide 
    Dim sh As Shape 
    For Each s In p.Slides 
     For Each sh In s.Shapes 
      Dim tr As TextRange 
      Set tr = sh.TextFrame.TextRange 
      Dim macroName As String 
      For i = 1 To tr.Runs.Count 
       macroName = tr.Runs(i).ActionSettings(ppMouseClick).Run 
       If Len(macroName) > 0 Then 
        Dim runText As String 
        runText = tr.Runs(i).Text 
        Debug.Print "RUN: " & runText & vbCrLf & "MACRO: " & macroName 
       End If 
      Next 
     Next 
    Next 
End Sub 

然後，您需要從最後一次For/Next循環內的VBE中搜索並提取該宏（以及其他任何您需要的內容）。

有一個few references on SO關於如何提取Excel/Word中的所有宏並使用VBProject模型 - 這些技術與PowerPoint完全相同。有關更好的示例，請參見Programmatically extract macro (VBA) code from Word 2007 docs。在Programming The VBA Editor上存在一個更全面的VBProject對象模型介紹。