Método DocumentWindow.RangeFromPoint (PowerPoint)
Devuelve el objeto de forma que se encuentra en el punto especificado por el par de coordenadas de posición de pantalla. Si no hay ninguna forma se encuentra en el par de coordenadas especificado, el método devuelve Nothing.
Sintaxis
expresión. RangeFromPoint (x, y)
Expresión Variable que representa un objeto DocumentWindow .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| x | Obligatorio | Long | Distancia horizontal, en píxeles, desde el borde izquierdo de la pantalla hasta ese punto. |
| y | Obligatorio | Long | La distancia vertical (en píxeles) desde la parte superior de la pantalla hasta el punto. |
Ejemplo:
En este ejemplo se agrega una nueva estrella de cinco puntas a la diapositiva uno con las coordenadas (288, 100). A continuación, convierte a dichas coordenadas de puntos a píxeles, utiliza el método RangeFromPoint para devolver una referencia al nuevo objeto y cambia el color de relleno de la estrella. Tenga en cuenta que el ejemplo no funciona a menos que recorra el código, lo que posiblemente apunte a un error con el método . Se produce un error en la penúltima línea para establecer una referencia al objeto myShape en tiempo de ejecución a menos que se pase por el código.
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)
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.