VBA Power Point: как изменить выделенный текст в ячейке таблицы в PowerPoint?

Question

Я выбрал текст в ячейке таблицы powerpoint, как показано на рисунке ниже таблица в powerpoint

, когда я запускаю подпрограмму vba, как показано ниже

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