DocumentWindow.RangeFromPoint-Methode (PowerPoint)
Gibt das Shape -Objekt, das sich an der durch die Bildschirmpositionskoordinaten angegeben ist. Wenn an den Koordinaten angegebenen Stelle keine Form befindet, gibt die Methode Nothing zurück.
Syntax
Ausdruck. RangeFromPoint (x, y)
Ausdruck Eine Variable, die ein DocumentWindow-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| x | Erforderlich | Long | Der horizontale Abstand (in Pixeln) vom linken Rand des Fensters zu dem Punkt. |
| y | Erforderlich | Long | Der vertikale Abstand (in Pixeln) vom oberen Rand des Fensters zu dem Punkt. |
Beispiel
In diesem Beispiel wird Folie 1 unter Verwendung der Koordinaten (288, 100) einen neuen 5 Zacken hinzugefügt. Klicken Sie dann die Koordinaten von Punkt in Pixel konvertiert, wird die RangeFromPoint -Methode verwendet, um einen Verweis auf das neue Objekt zurückgeben und ändert die Füllfarbe der Star. Beachten Sie, dass das Beispiel nur funktioniert, wenn Sie den Code schrittweise durchlaufen und möglicherweise auf einen Fehler mit der -Methode verweisen. Die vorletzte Zeile zum Festlegen eines Verweises auf das Objekt myShape schlägt zur Laufzeit fehl, es sei denn, der Code wird schrittweise durchlaufen.
Dim myPointX As Integer, myPointY As Integer
Dim myShape As Object
ActivePresentation.Slides(1).Shapes _
.AddShape(msoShape5pointStar, 288, 100, 100, 72).Select
myPointX = ActiveWindow.PointsToScreenPixelsX(288)
myPointY = ActiveWindow.PointsToScreenPixelsY(100)
Set myShape = ActiveWindow.RangeFromPoint(myPointX, myPointY)
myShape.Fill.ForeColor.RGB = RGB(80, 160, 130)
Siehe auch
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.