VBA Power Point：如何更改Powerpoint表單元格中的選定文本？

Question

我在PowerPoint的表格單元格中選擇了文本，如下圖所示在PowerPoint中的表格

當我運行如下的vba sub時

Sub changeSelectedText()
    Set ppapp = GetObject(, "Powerpoint.application")
    Set pppres = ppapp.ActivePresentation
    Dim text As String
    text = "cell content change"
    selectionType = ppapp.ActiveWindow.Selection.Type
    ppapp.ActiveWindow.Selection.TextRange.text = text


End Sub

該錯誤發生在以下行：ppapp.ActiveWindow.Selection.TextRange.text = text

因此，我無法在powerpoint的表格單元中更改所選文本。

Answer 1

如果您的代碼將在PowerPoint本身中運行，則可以：

Sub changeSelectedText()

    Dim text As String
    text = "cell content change"
    ActiveWindow.Selection.TextRange.text = text

End Sub

如果您是從其他應用程序驅動PPT，請嘗試使用此工具。 Aircode。 未經測試。 告誡執行者：

Sub changeSelectedText()
    Dim ppapp as object
    Dim pppres as Object
    Set ppapp = GetObject(, "Powerpoint.application")
    Set pppres = ppapp.ActivePresentation
    Dim text As String
    text = "cell content change"
    ' You haven't declared selectionType and don't
    ' use it for anything, so I've commented it out
    ' selectionType = ppapp.ActiveWindow.Selection.Type
    ppapp.ActiveWindow.Selection.TextRange.text = text

End Sub