Freigeben über


Shape.DrawArcByThreePoints-Methode (Visio)

Erstellt ein Shape, dessen Pfad aus einem Bogen besteht, der durch drei als Parameter übergebene Punkte definiert ist.

Syntax

Ausdruck. DrawArcByThreePoints( _xBegin_ , _yBegin_ , _xEnd_ , _yEnd_ , _xControl_ , _yControl_ )

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
xBegin Erforderlich Double Die X-Koordinate des Anfangspunkts des Bogens.
yBegin Erforderlich Double Die Y-Koordinate des Anfangspunkts des Bogens.
xEnd Erforderlich Double Die X-Koordinate des Endpunkts des Bogens.
yEnd Erforderlich Double Die Y-Koordinate des Endpunkts des Bogens.
xControl Erforderlich Double Die X-Koordinate des Kontrollpunkts des Bogens.
yControl Erforderlich Double Die Y-Koordinate des Kontrollpunkts des Bogens.

Rückgabewert

Form

Bemerkungen

Alle Punkte sollten im Hinblick auf die Koordinatenposition des Masters, des Zeichenblatts oder der Gruppe, in dem bzw. der das Shape gezeichnet wird, in internen Zeichnungseinheiten angegeben werden.

Beispiel

Mit diesem VBA-Makro (Microsoft Visual Basic für Applikationen) wird gezeigt, wie die DrawArcByThreePoints-Methode zum Zeichnen eines Bogens auf dem Zeichenblatt verwendet wird.

Public Sub DrawArcByThreePoints_Example 
 
 Dim vsoShape As Visio.Shape 
 Set vsoShape = ActivePage.DrawArcByThreePoints(3, 3, 6, 8, 5, 5) 
 
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.