從powerpoint 2010文本中刪除陰影效果VBA

Question

我想通過宏刪除演示文稿的任何幻燈片中的所有文本框的所有陰影效果。 下面的宏與PowerPoint 2007中運行良好，但與2010年

Sub NoTextShadows() 

    Dim oSld As Slide 
    Dim oShp As Shape 

    For Each oSld In ActivePresentation.Slides 
     For Each oShp In oSld.Shapes 
      If oShp.HasTextFrame Then 
       If oShp.TextFrame.HasText Then 
        oShp.TextFrame.TextRange.Font.Shadow = msoFalse 
        oShp.Shadow.Visible = msoFalse 
       End If 
      End If 
     Next oShp 
    Next oSld 

End Sub 

工作請提出任何想法來解決此。謝謝。

Answer 1

我做了一些測試，發現PowerPoint 2010中的陰影可以顯示爲文本（特定）和一般形狀。奇怪的是，兩個陰影可以獨立應用於形狀，但只有其中的一個可以被宏刪除。下面是我做的，除去影子一層：

oShp.Shadow.Size = 0 
OShp.Shadow.Blur = 0 
oShp.Shadow.Visible = msoFalse 

嘗試增加內部的主For循環這些線路，看到

欲瞭解更多信息，Working with Properties of the ShadowFormat Class in Office 2010