|
||
Новости Энциклопедия переводчика Блоги Авторский дневник Форум Работа Декларация Поиск О нас пишут Награды Читальня Конкурсы Опросы | ||
|
||
Новости Энциклопедия переводчика Блоги Авторский дневник Форум Работа Декларация Поиск О нас пишут Награды Читальня Конкурсы Опросы | ||
А не могли бы вы чуть подробнее про "заражен азиатчиной" - что это значит? Мне надо бюро как-то объяснить/предупредить про эту проблему.
Sub FarEastFontsToArial()
Dim oSh As Shape
Dim oSl As Slide
For Each oSl In ActivePresentation.Slides
For Each oSh In oSl.Shapes
If oSh.HasTextFrame Then
oSh.TextFrame.TextRange.Font.NameFarEast = "Arial"
End If
Next
Next
For Each oSh In ActivePresentation.SlideMaster.Shapes
If oSh.HasTextFrame Then
oSh.TextFrame.TextRange.Font.NameFarEast = "Arial"
End If
Next
If ActivePresentation.HasTitleMaster Then
For Each oSh In ActivePresentation.TitleMaster.Shapes
If oSh.HasTextFrame Then
oSh.TextFrame.TextRange.Font.NameFarEast = "Arial"
End If
Next
End If
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4