我试图在powerpoint中写一个vba宏来读取32张幻灯片,将每个幻灯片备注部分的等式复制到第三张幻灯片上的表格中 . 到目前为止,我已成功编写宏来循环幻灯片,从幻灯片的notes部分复制文本并将其粘贴到表格中的正确位置 . 我被卡住的地方是我无法复制等式,因为它是格式化的 . 例如,如果我在方程对象中有4个平方,我可以复制4 ^ 2的文本并将文本粘贴为4 ^ 2 . 有没有办法复制整个方程并将整个方程粘贴为对象而不仅仅是方程式中的文本?

Sub update_answers()
Dim shp As Shape
Dim nRow As Integer
Dim nCol As Integer
For Each shp In ActivePresentation.Slides(3).Shapes
    With shp
        If .HasTable Then
            For nRow = 1 To 8
                For nCol = 1 To 4
                    ActivePresentation.Slides(4 * (nRow - 1) + nCol + 3).NotesPage.Shapes(2).TextFrame.TextRange.Copy
                    shp.Table.Cell(nRow, nCol).Shape.TextFrame.TextRange.Paste
                Next nCol
            Next nRow
        End If
    End With
Next shp
End Sub

我试图复制整个形状.Shapes(2).copy然而下一行单元格形状没有粘贴方法,并将其粘贴到文本范围是不匹配 . 然后我尝试将.Shapes(2)分配给变量,以便我可以使用调试器检查它,但这会导致运行时错误 .

任何关于如何复制方程式对象并将其粘贴到表格中的帮助,或者如何使用文本创建新的方程式都将非常感激(我也很感激有关调试powerpoint中的VBA以获得自我授权以解决这些问题的技巧问题我自己)