VBA Powerpoint - Mudando as cores dos Objetos - Change My Colour

Olá novamente!

Segue mais um script para o MS Powerpoint.

Esse código irá alterar a cor de qualquer objeto. Ajusta os valores de R, G e B [atualmente 255,0,0], para obter a cor desejada.

Sub ChangeColor (oshp As Shape)

On Error GoTo errhandler

Let oshp.Fill.ForeColor.RGB = RGB(255, 0, 0)

Exit Sub

errhandler:

MsgBox "Desculpe, ocorreu um erro!"

End Sub

Tags: Powerpoint, Slide, UDF, cores, cor, mudando, objeto, change, color, colour

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com