Classe FillFormat (PowerPoint VBA)

A classe FillFormat representa a formatação de preenchimento de uma forma. Uma forma pode ter um preenchimento sólido, gradual, texturizado, padronizado, de figura ou semitransparente.

Set

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

Dim fft as FillFormat
Set fft = ActiveWindow.RangeFromPoint.Fill

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo FillFormat: ChartFormat.Fill, Shape.Fill, ShapeRange.Fill e TableBackground.Fill

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

Format with its procedures BackColor, ForeColor, GradientColorType, GradientStyle, OneColorGradient, TwoColorGradient e Visible
Picture with its procedures PictureEffects e UserPicture

Métodos

Estes são os principais métodos da classe

PresetGradient - Define o preenchimento especificado com um gradiente predefinido.

Dim lngVariant As Long: lngVariant = 1
ActivePresentation.Slides(1).Shapes(1).Fill.PresetGradient Style:=msoGradientMixed, Variant:=lngVariant, PresetGradientType:=msoPresetGradientMixed

Propriedades

GradientAngle Retorna ou define o ângulo do preenchimento gradual para o formato de preenchimento especificado. Leitura/gravação.

ActivePresentation.Slides(1).Shapes(1).Fill.GradientAngle = 45

GradientDegree Retorna um valor que indica o quão escuro ou claro é um preenchimento gradual de uma cor. Somente leitura.

Dim sngGradientDegree As Single
sngGradientDegree = ActivePresentation.Slides(1).Shapes(1).Fill.GradientDegree

GradientStops Retorna a coleção GradientStops associada ao formato de preenchimento especificado. Somente leitura.

Dim gssGradientStops As Office.GradientStops
Set gssGradientStops = ActivePresentation.Slides(1).Shapes(1).Fill.GradientStops

GradientVariant Retorna a variação de gradiente do preenchimento especificado como um valor inteiro de 1 a 4 para a maioria dos preenchimentos graduais. Somente leitura.

Dim lngGradientVariant As Long
lngGradientVariant = ActivePresentation.Slides(1).Shapes(1).Fill.GradientVariant

Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Fill.Parent

Pattern Define ou retorna um valor que representa o padrão aplicado ao preenchimento especificado. Somente leitura.

Dim mptPattern As Office.MsoPatternType
mptPattern = ActivePresentation.Slides(1).Shapes(1).Fill.Pattern

PresetGradientType Retorna o tipo de gradiente predefinido para o preenchimento especificado. Somente leitura.

Dim mpgPresetGradientType As Office.MsoPresetGradientType
mpgPresetGradientType = ActivePresentation.Slides(1).Shapes(1).Fill.PresetGradientType

PresetTexture Retorna à textura predefinida para o preenchimento especificado. Somente leitura.

Dim mptPresetTexture As Office.MsoPresetTexture
mptPresetTexture = ActivePresentation.Slides(1).Shapes(1).Fill.PresetTexture

RotateWithObject Retorna ou define se o preenchimento gira com a forma especificada. Leitura/gravação.

ActiveWindow.RangeFromPoint.Fill.RotateWithObject = msoTrue

TextureAlignment Retorna ou define o alinhamento a origem da grade coordenada para a colocação lado a lado de preenchimento de textura. Leitura/gravação.

ActiveWindow.RangeFromPoint.Fill.TextureAlignment = msoTextureAlignmentMixed

TextureHorizontalScale Retorna ou define o fator de escala horizontal para o preenchimento de textura. Leitura/gravação.

ActiveWindow.RangeFromPoint.Fill.TextureHorizontalScale =

TextureName Retorna o nome do arquivo de textura personalizado do preenchimento especificado. Somente leitura.

Dim strTextureName As String
strTextureName = ActivePresentation.Slides(1).Shapes(1).Fill.TextureName

TextureOffsetX Retorna ou define o deslocamento horizontal da textura em relação à origem, em pontos. Leitura/gravação.

ActiveWindow.RangeFromPoint.Fill.TextureOffsetX =

TextureOffsetY Retorna ou define o deslocamento vertical da textura em relação à origem, em pontos. Leitura/gravação.

ActiveWindow.RangeFromPoint.Fill.TextureOffsetY =

TextureTile Retorna ou define se o preenchimento de textura é disposto lado a lado ou centralizado. Leitura/gravação.

ActiveWindow.RangeFromPoint.Fill.TextureTile = msoTrue

TextureType Retorna o tipo de textura do preenchimento especificado. Somente leitura.

Dim mttTextureType As Office.MsoTextureType
mttTextureType = ActivePresentation.Slides(1).Shapes(1).Fill.TextureType

TextureVerticalScale Retorna ou define o fator de escala vertical para o preenchimento de textura. Leitura/gravação.

ActiveWindow.RangeFromPoint.Fill.TextureVerticalScale =

Transparency Retorna ou define o grau de transparência do preenchimento, sombreamento ou linha especificada, como um valor entre 0,0 opaco e 1,0 (claro). Leitura/gravação.

ActivePresentation.Slides(1).Shapes(1).Fill.Transparency = 0.5

Type Representa o tipo de preenchimento. Somente leitura.

Dim mftType As Office.MsoFillType
mftType = ActiveWindow.RangeFromPoint.Fill.Type