Método Window.RangeFromPoint (Word)
Devuelve el objeto Range o Shape que se encuentra en el punto especificado por el par de coordenadas de posición de pantalla.
Sintaxis
expresión. RangeFromPoint (x, y)
expresión requerida. Variable que representa un objeto Window.
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 | Distancia vertical, en píxeles, desde la parte superior de la pantalla al punto. |
Valor devuelto
Objeto
Comentarios
Si no hay intervalo o forma se encuentra en el par de coordenadas especificado, el método devuelve Nothing.
Ejemplo:
En este ejemplo se crea un nuevo documento y se agrega una estrella de cinco puntas. A continuación, se obtiene la ubicación en la pantalla de la forma y se calcula donde es el centro de la forma. Con estas coordenadas, en el ejemplo se utiliza el método RangeFromPoint para devolver una referencia a la forma y cambiar su color de relleno.
Dim pLeft As Long
Dim pTop As Long
Dim pWidth As Long
Dim pHeight As Long
Dim newShape As Object
Dim newDoc As New Document
With newDoc
.Shapes.AddShape msoShape5pointStar, _
288, 100, 100, 72
.ActiveWindow.GetPoint pLeft, pTop, _
pWidth, pHeight, .Shapes(1)
Set newShape = .ActiveWindow.RangeFromPoint(pLeft _
+ pWidth * 0.5, pTop + pHeight * 0.5)
newShape.Fill.ForeColor.RGB = RGB(80, 160, 130)
End With
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.