Freigeben über


Shape.Offset-Methode (Visio)

Versetzt ein Shape um den angegebenen Wert.

Syntax

Ausdruck. Offset (Entfernung)

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Distance Erforderlich Double Gibt den Abstand an, um den das Shape versetzt wird.

Rückgabewert

Nichts

Bemerkungen

Das Aufrufen der Offset-Methode entspricht dem Klicken auf Abstand auf der Microsoft Visio-Benutzeroberfläche (klicken Sie auf der Registerkarte Entwicklertools in der Gruppe Shape-Design auf Vorgänge).

Für eine angegebene Linie oder Kurve wird das Versetzen als ein Linien- oder Kurvenpaar implementiert, das den gleichen Abstand von der ursprünglichen Linie oder Kurve aufweist. Versetzte Shapes erben Linienmuster von den ursprünglichen Shapes. Sie erben keine Füllmuster oder Text von den ursprünglichen Formen.

Beispiel

Mit diesem VBA-Makro (Microsoft Visual Basic für Applikationen) wird gezeigt, wie die Offset-Methode verwendet wird, um ein Linien-Shape um einen angegebenen Wert zu versetzen.

Public Sub Offset_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = Application.ActiveWindow.Page.DrawLine(3, 3, 6, 6) 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select vsoShape, visSelect 
 vsoShape.Offset(2) 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.