Views

Histats

Vitrine

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



André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias