Views

Histats

Vitrine

VBA Powerpoint - Retirando o negrito - UnBold

powerpoint-header.jpg

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 Brazil®

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