Classe ColorScheme (PowerPoint VBA)

A classe ColorScheme representa um esquema de cores, que é um conjunto de oito cores usadas para os diferentes elementos de um slide, uma página de anotações ou um folheto, como o título ou o plano de fundo. (Observe que os esquemas de cores para slides, páginas de anotações e folhetos de uma apresentação podem ser definidos independentemente).

Set

Para usar uma variável de classe ColorScheme, ela primeiro precisa ser instanciada por exemplo

Dim cse as ColorScheme
Set cse = ActivePresentation.ColorSchemes(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo ColorScheme: ColorSchemes.Item, ColorSchemes.Add, Master.ColorScheme, Slide.ColorScheme, SlideRange.ColorScheme e Presentation.ColorSchemes

Colors

Retorna um objeto RGBColor que representa uma única cor em um esquema de cores.

Sintaxe : expression.Colors (SchemeColor)

SchemeColor: A cor individual no esquema de cores especificado.

Dim rgbColors As RGBColor
Set rgbColors = ActivePresentation.ColorSchemes(1).Colors(SchemeColor:=ppAccent1)

Count

Retorna o número de objetos na coleção especificada. Somente leitura.

Dim lngCount As Long
lngCount = ActivePresentation.ColorSchemes(1).Count

Delete

Exclui o objeto ColorScheme especificado.

ActivePresentation.ColorSchemes(1).Delete

Parent

Retorna o objeto parente para o objeto especificado.

ColorSchemes.Add

Adiciona um esquema de cores à coleção de esquemas disponíveis. Retorna um objeto ColorScheme que representa o esquema de cores adicionado.

O novo esquema de cores é baseado nas cores usadas no slide especificado ou no slide mestre, ou ainda no esquema de cores especificado de uma apresentação aberta. A coleção ColorSchemes pode conter até 16 esquemas de cores. Se você precisa adicionar outro esquema de cores e a coleção ColorSchemes já estiver cheia, use o método Delete para remover um esquema de cores existente. Observe que, embora o Microsoft PowerPoint verifique automaticamente se um esquema de cores é uma duplicata quando o usuário tenta adicioná-lo usando a interface do usuário, ele não o verifica antes de adicionar um esquema de cores programaticamente. O procedimento deve fazer sua própria verificação, a fim de evitar adicionar esquemas de cores redundantes.

Sintaxe : expression.Add (Scheme)

Scheme: O esquema de cores para adicionar. Pode ser um objeto ColorScheme de qualquer slide ou mestre ou um item na coleção ColorSchemes de qualquer apresentação aberta. Se você omitir esse parâmetro, o primeiro objeto ColorScheme (o primeiro esquema de cores padrão) na coleção ColorSchemes da apresentação especificada é usado.

Dim cse As ColorScheme
Set cse = ActivePresentation.ColorSchemes.Add()

ColorSchemes.Count

Retorna o número de objetos na coleção especificada. Somente leitura.

Dim lngCount As Long
lngCount = ActivePresentation.ColorSchemes.Count

ColorSchemes.Item

Retorna um único objeto ColorScheme da coleção ColorSchemes especificada.

Sintaxe : expression.Item (Index)

Index: O número de índice do único objeto ColorScheme da coleção a ser retornado.

Dim cse As ColorScheme
Set cse = ActivePresentation.ColorSchemes(Index:=1)

ColorSchemes.Parent

Retorna o objeto parente para o objeto especificado.