Как исправить Wordart в Powerpoint с помощью VBA

Question

Я работаю над PowerPoint 2007. Я хочу исправить слово с помощью VBA. Исправления могут включать выравнивание, изменение размера и т. Д.

Пожалуйста, предложите мне, как я могу это сделать.

Answer 1

Вот пример:

With ActivePresentation.Slides(1).Shapes(1)
    .ScaleWidth 1.38, msoFalse, msoScaleFromBottomRight
    .TextEffect.Text = "Your Text Here again"
    .IncrementRotation -15#
End With

Выше предполагается, что ваш Wordart является единственной формой на слайде 1.

Для получения дополнительной информации попробуйте записать макрос и посмотреть на полученный код.