✔ Programação GLOBAL®: VBA Powerpoint: Torne homogêneas todas as fontes e cores da sua apresentação.

Sabe aquelas situações onde você recebe uma apresentação do MS Office Powerpoint e precisa deixar todos os Slides com a mesma cor e as mesmas fontes:

Geralmente isso leva um tempo enorme, além de ser muito chato.

Pois bem, seus problemas acabaram com o código abaixo as mudanças em todos os Slides serão efetuadas automaticamente de uma só vez e de modo automatizado.

Excelente não é mesmo...Divirta-se!

Sub allchange()
Dim osld As Slide, oshp As Shape
  For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPlaceholder Then
'Title text change values as required
If oshp.PlaceholderFormat.Type = 1 or oshp.PlaceholderFormat.Type = 3 Then
  With oshp.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 36
.Color.RGB = RGB(0, 0, 255)
.Bold = msoFalse
.Italic = msoFalse
.Shadow=false
End With
End If
If oshp.PlaceholderFormat.Type = 2 or oshp.PlaceholderFormat.Type = 7 Then
  'Body text change values as required
With oshp.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 24
.Color.RGB = RGB(255, 0, 0)
.Bold = msoFalse
.Italic = msoFalse
.Shadow=false
End With
  End If
End If
Next oshp
Next osld
End Sub