Программная настройка свойств тени текста в PowerPoint

Question

PowerPoint имеет два вида теней - форму и текст. Тени формы можно установить, щелкнув правой кнопкой мыши форму (включая текстовое поле), выбрав Формат текста , затем выбрав Тень или используя VBA через свойство Shadow для каждой фигуры:

For Each Slide In ActivePresentation.Slides
  For Each Shape In Slide.Shapes
     Shape.Shadow.Size = 100
     ''# etc
  Next
Next

Как мне установить текст свойства тени, используя VBA? В пользовательском интерфейсе к ним можно получить доступ, щелкнув правой кнопкой мыши по тексту, выбрав Форматировать текстовый эффект , затем выбрав Тень . Я немного покопался в Интернете и не смог найти, где эти свойства могут быть доступны через VBA API PowerPoint.

Answer 1

Вам понадобится объект TextRange2.Вы можете получить это через его родителя TextFrame2.Вот пример того, как вы можете установить тени для текста:

Sub setTextShadow()
Dim sh As Shape
Set sh = ActivePresentation.Slides(4).Shapes(1)
Dim tr As TextRange2
Set tr = sh.TextFrame2.TextRange
    With tr.Font.Shadow
        .OffsetX = 10
        .OffsetY = 10
        .Size = 1
        .Blur = 4
        .Transparency = 0.5
        .Visible = True
    End With
End Sub