VBA Powerpoint - Retirando o negrito - UnBold

Vamos lá, outro script para o MS Powerpoint.

Procurar nos espaços reservados e caixas de texto da apresentação por textos em negrito, retirando o negrito.

Sub unbold()

Dim osld As Slide

Dim oshp As Shape

Dim oTemp As TextRange

Dim i As Integer

For Each osld In ActivePresentation.Slides

For Each oshp In osld.Shapes

If oshp.HasTextFrame Then

If oshp.TextFrame.HasText Then

Set oTemp = oshp.TextFrame.TextRange

For i = 1 To Len(oTemp)

If oTemp.Characters(i).Font.Bold = True Then _

oTemp.Characters(i).Font.Bold = False

Next

End If

End If

Next oshp

Next osld

Set oTemp = Nothing

End Sub

Tags: Powerpoint, Slide, UDF, fontes, bold, negrito, unbold

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com