Clase FillFormat (PowerPoint VBA)

La clase FillFormat representa el formato de relleno de una forma. Una forma puede tener un relleno sólido, degradado, de textura, de entramado, de imagen o semitransparente.

Set

Para usar una variable de clase FillFormat, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase FillFormat : ChartFormat.Fill, Shape.Fill, ShapeRange.Fill y TableBackground.Fill

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

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

Métodos

Otros Métodos

PresetGradient - Establece un degradado preestablecido para el relleno especificado.

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

Propiedades

GradientAngle Devuelve o establece el ángulo del relleno degradado para el formato de relleno especificado. Lectura y escritura.

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

GradientDegree Devuelve un valor que indica la claridad u oscuridad del relleno degradado de un color. Solo lectura.

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

GradientStops Devuelve la colección GradientStops asociada con el formato de relleno especificado. Solo lectura.

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

GradientVariant Devuelve la variante de degradado del relleno especificado como valor entero de 1 a 4 para la mayoría de los rellenos de degradado. Solo lectura.

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

Parent Devuelve el objeto primario del objeto especificado.

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

Pattern Establece o devuelve un valor que representa la trama aplicada al relleno especificado. Solo lectura.

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

PresetGradientType Devuelve el tipo de color de degradado para el relleno especificado. Solo lectura.

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

PresetTexture Devuelve la textura preestablecida del relleno especificado. Solo lectura.

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

RotateWithObject Devuelve o establece si el relleno gira con la forma especificada. Lectura y escritura.

ActiveWindow.RangeFromPoint.Fill.RotateWithObject = msoTrue

TextureAlignment Devuelve o establece la alineación (el origen de la cuadrícula de coordenadas) del mosaico de relleno de textura. Lectura y escritura.

ActiveWindow.RangeFromPoint.Fill.TextureAlignment = msoTextureAlignmentMixed

TextureHorizontalScale Devuelve o establece el factor de escala horizontal para el relleno con textura. Lectura y escritura.

ActiveWindow.RangeFromPoint.Fill.TextureHorizontalScale =

TextureName Devuelve el nombre del archivo de textura personalizada para el relleno especificado. Solo lectura.

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

TextureOffsetX Devuelve o establece el desplazamiento horizontal de la textura desde el origen, en puntos. Lectura y escritura.

ActiveWindow.RangeFromPoint.Fill.TextureOffsetX =

TextureOffsetY Devuelve o establece el desplazamiento vertical de la textura desde el origen en puntos. Lectura y escritura.

ActiveWindow.RangeFromPoint.Fill.TextureOffsetY =

TextureTile Devuelve o establece si el relleno con textura es un relleno en mosaico o centrado. Lectura y escritura.

ActiveWindow.RangeFromPoint.Fill.TextureTile = msoTrue

TextureType Devuelve el tipo de textura para el relleno especificado. Solo lectura.

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

TextureVerticalScale Devuelve o establece el factor de escalado vertical del relleno con textura. Lectura y escritura.

ActiveWindow.RangeFromPoint.Fill.TextureVerticalScale =

Transparency Devuelve o establece el grado de transparencia del relleno, la sombra o la línea especificados como un valor entre 0,0 (opaco) y 1,0 (transparente). Lectura y escritura.

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

Type Representa el tipo de relleno. Solo lectura.

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