次の方法で共有


Application.SnapToGuides プロパティ (Publisher)

True をガイドを使用して文書内のページにオブジェクトを配置します。 読み取り/書き込みが可能な Boolean です。

構文

SnapToGuides

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

戻り値

Boolean

次の使用例は、1 ページ目に水平および垂直のルーラー ガイドを 0.5 インチごとに追加し、さらにオプションを設定し、ページ上のオブジェクトをガイドに沿って配置します。

Sub SetSnapOptions() 
 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 
 intPos = 0 
 For intCount = 1 To 21 
 intPos = intPos + 36 
 .Add Position:=intPos, Type:=pbRulerGuideTypeHorizontal 
 Next 
 End With 
 With Application 
 .SnapToGuides = True 
 .SnapToObjects = True 
 End With 
End Sub

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

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