VBA Powerpoint - Как выделить выделенный текст

Question

Я хотел бы выделить выделенный текст цветом, но это не работает. Не могли бы вы помочь мне с этим?

Sub ShadingLtYellow()
    ActiveWindow.Selection.TextRange.HighlightColor.RGB = RGB(255, 255, 175)
End Sub

Также можно ли запускать макрос с помощью сочетания клавиш, например клавиш приложений в Excel?

Это было бы здорово

Answer 1

TextRange для обратной совместимости со старыми версиями PowerPoint. В текущих версиях (2010 и более поздних) вместо этого используйте объект Textrange2 , у него есть Highlight:

ActiveWindow.Selection.TextRange2.Font.Highlight.RGB = RGB(255, 255, 175)