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