title: Powerpoint 2016 Text Transparency
body: <p>I need to set the Transparency of Text in a shape via VBA, in fact I need to set the transparency for the whole shape but it's the text I'm stuck with.</p>
  
  <p>I just can't seem to navigate the object model to find the Transparency Property</p>
  
  <pre><code>Function SetTransparency(Value As Single)
  On Error GoTo AbortNameShape
  
  If ActiveWindow.Selection.ShapeRange.Count = 0 Then
      MsgBox "No Shapes Selected"
      Exit Function
  End If
  
  With ActiveWindow.Selection.ShapeRange
      .Fill.Transparency = Value
      .Line.Transparency = Value
      .TextFrame.TextRange. **HELP**  .Transparency = Value
      End With
  AbortNameShape:
  MsgBox Err.Description
  
  End Function
  </code></pre>
  
  <p>Google has given me</p>
  
  <pre><code>.TextFrame.TextRange.Characters.Font.Fill.Transparency
  </code></pre>
  
  <p>From <a href="https://www.mrexcel.com/forum/excel-questions/510589-transparent-text-shapes-textbox-1-a.html" rel="nofollow noreferrer">https://www.mrexcel.com/forum/excel-questions/510589-transparent-text-shapes-textbox-1-a.html</a></p>
  
  <p>But that fails on the <code>.Fill</code> property of <code>Font</code> object not existing.  I'm assuming MS have changed the object model in the 10 years that have passed since the answer was given, but I'm stuck for a current approach.</p>
  
  <p>Thanks</p>