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. Page active

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. Remarque qui PathToFile doit être remplacé par un chemin d’accès de fichier valide pour que 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.