Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Représente l'arrière-plan d'une page.
Remarques
Utilisez la propriété Background d’un objet Page pour renvoyer un objet PageBackground .
Utilisez la propriété Exists pour déterminer si un arrière-plan existe déjà pour l’objet Page spécifié.
Utilisez la propriété Fill pour renvoyer un objet FillFormat.
Utilisez la méthode Delete pour supprimer un arrière-plan de la page spécifiée.
Exemple
L'exemple suivant crée un objet PageBackground et lui affecte l'arrière-plan de la première page du document actif.
Dim objPageBackground As PageBackground
Set objPageBackground = ActiveDocument.Pages(1).Background
L'exemple suivant s'appuie sur l'exemple précédent. Tout d'abord un objet PageBackground est créé et affecté de l'arrière-plan de la première page du document actif. Ensuite, un test est effectué pour case activée si un arrière-plan existe déjà pour la page. Si ce n’est pas le cas, vous en créez un en appelant la méthode Create de l’objet PageBackground .
Dim objPageBackground As PageBackground
Set objPageBackground = ActiveDocument.Pages(1).Background
If objPageBackground.Exists = False Then
objPageBackground.Create
End If
L'exemple suivant s'appuie sur l'exemple précédent. Tout d'abord un objet PageBackground est créé et affecté de l'arrière-plan de la première page du document actif. Ensuite, un test est effectué pour case activée si un arrière-plan existe déjà pour la page. Si ce n’est pas le cas, vous en créez un en appelant la méthode Create de l’objet PageBackground . Un objet FillFormat est renvoyé à l'aide de la propriété Fill de l'objet PageBackground. Certaines des propriétés disponibles de l'objet FillFormat sont ensuite définies.
Dim objPageBackground As PageBackground
Dim objFillFormat As FillFormat
Set objPageBackground = ActiveDocument.Pages(1).Background
If objPageBackground.Exists = False Then
objPageBackground.Create
End If
Set objFillFormat = objPageBackground.Fill
With objFillFormat
.BackColor.RGB = RGB(Red:=0, GReen:=155, Blue:=99)
.ForeColor.RGB = RGB(Red:=155, GReen:=234, Blue:=0)
.TwoColorGradient msoGradientDiagonalDown, 4
End With
L'exemple suivant supprime l'arrière-plan de la première page du document actif. Cet exemple suppose que la page spécifiée a un arrière-plan existant. Une erreur d’exécution se produit si la page ne contient pas d’arrière-plan.
ActiveDocument.Pages(1).Background.Delete
Méthodes
Propriétés
Voir aussi
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.