以編程方式在PowerPoint中設置文字陰影屬性

PowerPoint有兩種陰影 - 形狀和文字。形狀的陰影可以通過右鍵點擊一個形狀（包括文本框）進行設置，選擇格式文本，然後選擇陰影或通過影子財產上的每個形狀使用VBA：以編程方式在PowerPoint中設置文字陰影屬性

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

怎麼辦我使用VBA設置了文字 shadow的屬性？在UI中，可以通過右鍵單擊文本來訪問這些文件，選擇格式文本效果，然後選擇影子。我已經做了一些在線挖掘，並且一直無法找到可以通過PowerPoint的VBA API訪問這些屬性的位置。

來源

2010-03-22 Ben Gribaudo

您會希望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

來源

2010-03-22 18:49:23

謝謝。發現你提供的信息很難。我嘗試了一些谷歌搜索，不能拿出來。 – 2010-03-24 00:03:04

樂於幫助本！另請注意，如果您只想使用標準文本陰影（可從功能區欄中獲得的文本陰影），則可以使用Dim Tr作爲TextRange（** not **'TextRange2'），然後選擇Set tr = sh.TextFrame.TextRange'（**不** **'TextFrame2'），最後只是'tr.Font.Shadow = True' – 2010-03-24 03:33:03

以編程方式在PowerPoint中設置文字陰影屬性

回答

相關問題