Compartilhar via


Objeto ExtraColors (PowerPoint)

Representa as cores extras de uma apresentação. O objeto pode conter até oito cores, cada uma das quais é representada por um valor vermelho-verde-azul (RGB).

Exemplo

Use a propriedade ExtraColors para retornar o objeto ExtraColors. Use ExtraColors (índice), em que o índice é o número de índice de cor extra, para retornar o valor vermelho-verde-azul (RGB) para uma única cor extra. O exemplo a seguir adiciona um retângulo ao slide um da apresentação ativa e define sua cor de preenchimento de primeiro plano como a primeira cor extra. Se não houver pelo menos uma cor extra definida para a apresentação, este exemplo falhará.

With ActivePresentation
    Set rect = .Slides(1).Shapes _
        .AddShape(msoShapeRectangle, 50, 50, 100, 200)
    rect.Fill.ForeColor.RGB = .ExtraColors(1)
End With

Use o método Add para adicionar uma cor extra. O exemplo a seguir adiciona uma cor extra à apresentação ativa (se a cor ainda não tiver sido adicionada).

ActivePresentation.ExtraColors.Add RGB(69, 32, 155)

Confira também

Referência de modelo de objeto do PowerPoint

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.