Propriété View.ActivePage (Publisher)

Renvoie un objet Page qui représente la page actuellement affichée dans la fenêtre Microsoft Publisher.

Syntaxe

expression. ActivePage

expression Variable qui représente un objet View .

Valeur renvoyée

Page

Exemple

Cet exemple enregistre la page active sous la forme d'une image JPEG. Notez que doit être remplacé par un chemin de fichier valide pour que PathToFile cet exemple fonctionne.

Sub SavePageAsPicture() 
 ActiveView.ActivePage.SaveAsPicture _ 
 FileName:="PathToFile" 
End Sub

Cet exemple ajoute à la page active une règle horizontale et une règle verticale qui se coupent au point central de la page.

Sub SetRulerGuidesOnActivePage() 
 Dim intHeight As Integer 
 Dim intWidth As Integer 
 
 With ActiveView.ActivePage 
 intHeight = .Height / 2 
 intWidth = .Width / 2 
 With .RulerGuides 
 .Add Position:=intHeight, Type:=pbRulerGuideTypeHorizontal 
 .Add Position:=intWidth, Type:=pbRulerGuideTypeVertical 
 End With 
 End With 
End Sub

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.