次の方法で共有


RulerGuides オブジェクト (Publisher)

RulerGuide のコレクション ページ上のオブジェクトを整列するために使用するグリッド線を表すオブジェクト。

注釈

RulerGuides コレクションにルーラーグリッド線を追加するには、 Add メソッドを使用します。

コレクション内のルーラー ガイドの合計数 (水平方向と垂直方向) を返すには、 Count プロパティを使用します。

次の使用例は、作業中の文書の先頭ページに 0.5 インチ間隔で水平方向および垂直方向のルーラー ガイドを作成します。

Sub SetRulerGuides() 
 Dim intCount As Integer 
 Dim intPos As Integer 
 With ActiveDocument.Pages(1).RulerGuides 
 For intCount = 1 To 16 
 intPos = intPos + 36 
 .Add Position:=intPos, Type:=pbRulerGuideTypeVertical 
 Next intCount 
 intPos = 0 
 For intCount = 1 To 21 
 intPos = intPos + 36 
 .Add Position:=intPos, Type:=pbRulerGuideTypeHorizontal 
 Next intCount 
 End With 
End Sub

次の使用例は、Count プロパティを使用して、コレクション内の各ルーラー ガイドを削除します。

Sub RemoveAllGuides() 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).RulerGuides 
 For intCount = 1 To .Count 
 .Item(1).Delete 
 Next intCount 
 End With 
End Sub

メソッド

プロパティ

関連項目

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

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