VBA Excel Basic - Como mudar a Cor e o Tamanho da Fonte em um Range- How To Change The Font Color And Font Size Of A Particular Range

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Sim, mais tópicos voltados para quem está iniciando na utilização do VBA - Visual Basic for Application.

Que tal aprender a mudar a Cor e o Tamanho das fontes usados num Range?

SSub sbExample4()

    'Pode usar a propriedade Interior.ColorIndex

    Range("B1:B10").Font.ColorIndex = 3 ' 3=Red

End Sub

brazilsalesforceeffectiveness@gmail.com

       

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