Propriété FillFormat.TextureName (Publisher)

Renvoie une chaîne indiquant le nom du fichier de texture personnalisée pour le remplissage spécifié. En lecture seule.

Syntaxe

expression. TextureName

Expression Variable qui représente un objet FillFormat .

Valeur renvoyée

Chaîne

Remarques

Utilisez la méthode UserTextured pour définir le fichier de texture du remplissage.

Exemple

Cet exemple ajoute un ovale à la composition active. Si la forme un de la composition active possède un remplissage avec une texture définie par l'utilisateur, ce nouvel ovale utilisera le même remplissage que la forme un. Si la forme un utilise un autre type de remplissage, l'ovale utilisera un remplissage vert marbré.

Dim ffNew As FillFormat 
 
With ActiveDocument.Pages(1).Shapes 
 Set ffNew = .AddShape(Type:=msoShapeOval, _ 
 Left:=0, Top:=0, Width:=200, Height:=90).Fill 
 
 With .Item(1).Fill 
 If .Type = msoFillTextured And _ 
 .TextureType = msoTextureUserDefined Then 
 ffNew.UserTextured _ 
 TextureFile:=.TextureName 
 Else 
 ffNew.PresetTextured _ 
 PresetTexture:=msoTextureGreenMarble 
 End If 
 End With 
End With 

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.