VBA Powerpoint - Altere todas as Fontes da apresentação - Change Font for Whole Presentation

Pois é, mais um script para o MS Powerpoint.

Este VBA poderá salvar sua vida quando alguém fiizer uma apresentação com estilos de fontes com as respectivas cores diferentes em cada página e, por não ter acesso ao Slide Mestre, precise mudar em cada Slide. Imagine! Precisar alterar os valores dos nomes das fontes, seus tamanhos e valores RGBs para os títulos e corpos de texto e talvez definir se serão Negrito e/ou Itálico.

Sub ChangeAllObj()

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

If oshp.HasTextFrame Then

If oshp.TextFrame.HasText 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

End If

End If

If oshp.PlaceholderFormat.Type = 2 Or oshp.PlaceholderFormat.Type = 7 Then

If oshp.HasTextFrame Then

If oshp.TextFrame.HasText 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

End If

End If

Next oshp

Next osld

End Sub

Tags: Powerpoint, Slide, UDF, fontes, mudar, objeto, font, change, presentation, RGB, color

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com