View.ActivePage プロパティ (Publisher)

Microsoft Publisher のウィンドウに現在表示されているページを表す Page オブジェクトを返します。

構文

式。ActivePage

式View オブジェクトを表す変数。

戻り値

Page

例

次の使用例は、作業中のページを JPEG の図として保存します。 この例を PathToFile 機能させるには、有効なファイル パスに置き換える必要があることに注意してください。

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

次の使用例は、作業中のページに、ページの中央で交差する水平および垂直のルーラー ガイドを追加します。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。