VBA Powerpoint - 如何突出显示选定的文本

Question

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

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

我也可以使用 Excel 上的应用程序 onkeys 等键盘快捷键触发宏吗？

这会很棒

Answer 1

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

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