Classe ColorSchemes (PowerPoint VBA)

Uma coleção de todos os objetos ColorScheme da apresentação especificada. Cada objeto ColorScheme representa um esquema de cores, que é um conjunto de cores que são usados juntos em um slide.

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

Dim css as ColorSchemes
Set css = ActivePresentation.ColorSchemes

As variáveis ​​de classe ColorSchemes podem ser definidas usando o procedimento Presentation.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.

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()

Count

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

Dim lngCount As Long
lngCount = ActivePresentation.ColorSchemes.Count

Item

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

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)