Powerpoint vba：在所有文本上删除/隐藏突出显示

Question

在Office 365的PowerPoint中，有一项新功能： 文字突出显示 https://support.office.com/en-us/article/highlight-your-text-28623777-d955-4fcf-bbc5-a50051552219。 使用此新功能，我可以突出显示形状中的文本，但以后想删除或隐藏（对于ppt的学生版）。 对于Word，我发现了一个可以正常工作的Makro：

Sub UnHighlight
Dim rngTemp As Range 
Set rngTemp = ActiveDocument.Range(Start:=0, End:=0) 
With rngTemp.Find 
.ClearFormatting 
.Highlight = True 
With .Replacement 
.ClearFormatting 
.Highlight = False 
End With 
.Execute Replace:=wdReplaceAll, Forward:=True, 
 FindText:="", _ 
ReplaceWith:="", Format:=True 
End With
End sub

（https://docs.microsoft.com/de-de/office/vba/api/word.find.highlight）

有任何想法适合Powerpoint吗？

从WORD这样的东西中适应POWERPOINT也会有所帮助：

Sub PrintWithoutHighlight()
With ActiveDocument
 .ActiveWindow.View.Showhighlight = False
 .PrintOut
End With
End Sub

或隐藏突出显示：

Sub HighlightingHide()
ActiveDocument.ActiveWindow.View.Showhighlight = _
Not ActiveDocument.ActiveWindow.View.Showhighlight
End Sub

来源：https://docs.microsoft.com/de-de/office/vba/api/word.view.showhighlight

谢谢。