次の方法で共有


MasterPages オブジェクト (Publisher)

その後、文書内のすべてのページをデザインする文書のページのマスターを表します。 MasterPages オブジェクトは、 ページ のコレクション オブジェクトです。

注釈

Document.MasterPages プロパティを使用して MasterPages オブジェクトを取得します。

マスター ページでオートシェイプとテキスト ボックスを操作するには、 Page.Shapes プロパティを使用します。

次の使用例は、マスター ページに 2 つのルーラー ガイドを追加し、作業中の文書の各ページを 4 分割します。

Sub ChangeMasterPage() 
 Dim intWidth As Integer 
 Dim intHeight As Integer 
 
 With ActiveDocument 
 intWidth = .PageSetup.PageWidth 
 intWidth = intWidth / 2 
 intHeight = .PageSetup.PageHeight 
 intHeight = intHeight / 2 
 With .MasterPages(1).RulerGuides 
 .Add Position:=intWidth, _ 
 Type:=pbRulerGuideTypeVertical 
 .Add Position:=intHeight, _ 
 Type:=pbRulerGuideTypeHorizontal 
 End With 
 End With 
End Sub

次の使用例は、作業中の文書の各ページに表示されるマスター ページの左上隅に小さな赤いハート形を追加します。

Sub AddShapeToMasterPage() 
 ActiveDocument.MasterPages(1).Shapes.AddShape(Type:=msoShapeHeart, _ 
 Left:=36, Top:=36, Width:=36, Height:=36).Fill _ 
 .ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0) 
End Sub

メソッド

プロパティ

関連項目

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

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