VBA Powerpoint - How to highlight selected text

Question

我想将所选文本突出显示为某种颜色，但这不起作用。你能帮我吗？

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

我还可以使用键盘快捷键（例如 Excel 上的应用程序键）触发宏吗？

这太好了

Answer 1

TextRange 是为了向后兼容旧版本的 PowerPoint。对于当前版本（2010 及更高版本），请使用Textrange2对象，它具有突出显示：

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