в powerpoint 2016, мне нужно использовать vba для изменения имени шрифта, размера, цвета и т. Д. Текущей позиции текстового курсора.поэтому я подумал, что этот код может помочь:
If ActiveWindow.Selection.Type = ppSelectionText Then
With ActiveWindow.Selection.TextRange.Font
'some code to change the name & size etc, like .name="Arial"
End With
End If
проблема: когда я нажимал на пустое текстовое поле и запускал макрос, он работал, и я мог печатать с нужным стилем шрифта.но когда я набрал сначала sth, а затем запустил макрос, он не работал!(Я имею в виду, что это не повлияло на мою последующую печать.)
Может кто-нибудь помочь, пожалуйста?