Powerpoint vba: Удалить / Скрыть выделение всего текста - PullRequest
Новая
       9

Powerpoint vba: Удалить / Скрыть выделение всего текста

0 голосов
/ 26 декабря 2018

В PowerPoint для Office 365 появилась новая функциональность: Подсветка текста .

С помощью этой новой функции я могу выделять текст в фигурах, но позже хочу удалить или скрыть его (длястуденческая версия ппт).Для Word I нашел макрос, который работает : 

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

Есть идеи, чтобы адаптировать это для 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

Заранее спасибо.

...