Как изменить шрифт выделения в PowerPoint 2013 с помощью VBA

Я хотел бы изменить для выделения текста в PowerPoint 2013 шрифт, чтобы он был жирным и «Couirier New». Я попытался с помощью этого сценария VBA изменить шрифт:

Sub chengeFont()
    With ActiveDocument.Selection
        With .Font
            .Name = "Courier New"
        End With
    End With
End Sub

Но это не работает. Какие-либо предложения?


vba powerpoint-2013
person Drago    schedule 08.03.2017    source источник
comment
я не уверен, но я думаю, что это похоже на selection.style.fontfamily= Courier New .fontstyle=Bold или font.bold=true   -  person Sivaprasath Vadivel    schedule 08.03.2017

Ответы (1)


arrow_upward
2
arrow_downward

Это изменит шрифт и сделает его жирным, когда вы его запустите.

With ActiveWindow.Selection.TextRange.Font
    .Name = "Courier New"
    .Bold = msoTrue
End With

Поскольку вы запускаете его из выбора, документ всегда должен быть активным, в противном случае вам нужно будет изменить ActiveWindow

person Mr.Burns    schedule 08.03.2017
comment
Это не работает для текста в графике SmartArt, есть идеи, как это обойти? - person wizlog; 12.03.2018