Classe ColorFormat - a cor de um objeto (PowerPoint VBA)
A classe ColorFormat representa a cor de um objeto de uma cor, a cor de primeiro plano ou plano de fundo de um objeto com um preenchimento gradual ou padronizado ou a cor do ponteiro. Você pode definir cores para um valor vermelho-verde-azul explícito (usando a propriedade RGB ) ou para uma cor no esquema de cores (usando a propriedade SchemeColor ).
Para usar uma variável de classe ColorFormat, ela primeiro precisa ser instanciada por exemplo
Dim cft as ColorFormat
Set cft = ActivePresentation.SlideShowSettings.PointerColor
Os procedimentos a seguir podem ser usados para definir variáveis do tipo ColorFormat: AnimationSettings.DimColor, ColorEffect.By, ColorEffect.From, ColorEffect.To, EffectInformation.Dim, EffectParameters.Color2, FillFormat.BackColor, FillFormat.ForeColor, Font.Color, Guide.Color, LineFormat.BackColor, LineFormat.ForeColor, ShadowFormat.ForeColor, SlideShowSettings.PointerColor ...
SlideShowView.PointerColor, ThreeDFormat.ContourColor, ThreeDFormat.ExtrusionColor.Brightness
Retorna ou define o brilho da imagem especificada ou objeto OLE. O valor dessa propriedade deve ser um número de 0,0 mais esmaecido a 1,0 (mais brilhante). Leitura/gravação única.
ActivePresentation.SlideShowSettings.PointerColor.Brightness = 0.3
ObjectThemeColor
Retorna ou define a cor do tema do objeto ColorFormat especificado. Leitura/gravação.
O valor da propriedade ObjectThemeColor pode ser uma destas constantes MsoThemeColorIndex .
ActivePresentation.SlideShowSettings.PointerColor.ObjectThemeColor = msoThemeColorMixed
RGB
Retorna ou define o valor vermelho-verde-azul RGB da cor especificada. Leitura/gravação.
ActivePresentation.SlideShowSettings.PointerColor.RGB = RGB(128, 128, 0)
SchemeColor
Retorna ou define a cor do esquema de cores aplicado que está associada ao objeto especificado. Leitura/gravação. Aqui você pode encontrar os valores possíveis para
O valor da propriedade SchemeColor pode ser uma destas constantes PpColorSchemeIndex .
ActivePresentation.SlideShowSettings.PointerColor.SchemeColor = RGB(0,0,255)'blue
TintAndShade
Define ou retorna a luminosidade ou escurecimento da cor de uma forma especificada. Leitura/gravação.
Você pode inserir um valor de-1 (mais escuro) até 1 (mais claro) para a propriedade TintAndShade , 0 (zero) é neutro.
ActivePresentation.SlideShowSettings.PointerColor.TintAndShade =
Type
Representa o tipo de cor. Somente leitura.
O valor da propriedade Type pode ser uma destas constantes MsoColorType .
Dim mctType As Office.MsoColorType
mctType = ActivePresentation.SlideShowSettings.PointerColor.Type