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

Objeto Window

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.