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)

VBA Powerpoint - How to highlight selected text