Classe FillFormat (PowerPoint VBA)

La classe FillFormat représente la mise en forme du remplissage d'une forme. Ce remplissage peut être uni, dégradé, à texture, à motif, à image ou semi-transparent.

Set

Pour utiliser une variable de classe FillFormat, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe FillFormat : ChartFormat.Fill, Shape.Fill, ShapeRange.Fill et TableBackground.Fill

Thèmes

Certaines procédures de cette classe ont été regroupées en thèmes et sont décrites sur des pages thématiques séparées

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

Méthodes

Autre Méthodes

PresetGradient - Affecte un dégradé prédéfini au remplissage spécifié.

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

Propriétés

GradientAngle Renvoie ou définit l'angle du remplissage dégradé pour le format de remplissage spécifié. En lecture-écriture.

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

GradientDegree Renvoie une valeur qui indique la densité (claire ou foncée) d’un dégradé monochrome appliqué au remplissage. En lecture seule.

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

GradientStops Renvoie la collection GradientStops associée au format de remplissage spécifié. En lecture seule.

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

GradientVariant Renvoie, sous la forme d’un nombre entier de 1 à 4 pour la plupart des dégradés, la variante de dégradé du remplissage spécifié. En lecture seule.

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

Parent Renvoie l’objet parent de l’objet spécifié.

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

Pattern Définit ou renvoie une valeur qui représente le motif appliqué au remplissage spécifié. En lecture seule.

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

PresetGradientType Renvoie le type de dégradé prédéfini du remplissage spécifié. En lecture seule.

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

PresetTexture Renvoie la texture prédéfinie du remplissage spécifié. En lecture seule.

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

RotateWithObject Renvoie ou définit si le remplissage pivote avec la forme spécifiée. En lecture-écriture.

ActiveWindow.RangeFromPoint.Fill.RotateWithObject = msoTrue

TextureAlignment Renvoie ou définit l'alignement (l'origine de la grille de coordonnées) de la mosaïque de la texture de remplissage. En lecture-écriture.

ActiveWindow.RangeFromPoint.Fill.TextureAlignment = msoTextureAlignmentMixed

TextureHorizontalScale Renvoie ou définit le facteur d’échelle horizontal pour la texture de remplissage. Lecture-écriture.

ActiveWindow.RangeFromPoint.Fill.TextureHorizontalScale =

TextureName Cette propriété renvoie le nom du fichier de texture personnalisée pour le remplissage indiqué. En lecture seule.

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

TextureOffsetX Renvoie ou définit le décalage horizontal (en points) de la texture par rapport à l’origine. Lecture-écriture.

ActiveWindow.RangeFromPoint.Fill.TextureOffsetX =

TextureOffsetY Renvoie ou définit le décalage vertical (en points) de la texture par rapport à l’origine. Lecture-écriture.

ActiveWindow.RangeFromPoint.Fill.TextureOffsetY =

TextureTile Renvoie ou définit si la texture de remplissage est en mosaïque ou centrée. En lecture-écriture.

ActiveWindow.RangeFromPoint.Fill.TextureTile = msoTrue

TextureType Cette propriété renvoie le type de texture du remplissage spécifié. En lecture seule.

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

TextureVerticalScale Renvoie ou définit le facteur d’échelle vertical pour la texture de remplissage. Lecture-écriture.

ActiveWindow.RangeFromPoint.Fill.TextureVerticalScale =

Transparency Renvoie ou définit le degré de transparence du remplissage, de l’ombre ou du trait en tant que valeur comprise entre 0.0 (opaque) et 1.0 (transparent). Lecture-écriture.

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

Type Représente le type de couleur. En lecture seule.

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