Clase Rectangle (Word VBA)

La clase Rectangle representa una parte de texto o un gráfico en una página.

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Rectangle en una colección.

Dim lin As Line: Set lin = 
Dim shp As Rectangle
For Each shp In lin.Rectangles
	With shp
		
	End With
Next shp

Height

Devuelve un valor de tipo Long que representa el alto de un rectángulo, en píxeles.

Dim shp As Rectangle: Set shp =  
Dim lngHeight As Long
lngHeight = shp.Height

Left

Devuelve un valor de tipo Long que representa el número de píxeles desde el borde izquierdo de la página hasta el borde izquierdo de un rectángulo.

Dim shp As Rectangle: Set shp =  
Dim lngLeft As Long
lngLeft = shp.Left

Lines

Devuelve una colección Lines que representa las líneas en una parte especificada del texto de una página.

Utilice la colección de líneas y objetos relacionados y propiedades para definir el diseño de página de un documento mediante programación.

Dim objRectangle As Rectangle 
Dim objLines As Lines 
 
Set objRectangle = ActiveDocument.ActiveWindow _ 
 .Panes(1).Pages(1).Rectangles(1) 
 
If objRectangle.RectangleType = wdTextRectangle Then _ 
 Set objLines = objRectangle.Lines

Range

Devuelve un objeto Range que representa la parte de un documento que está incluida dentro de un rectángulo.

Dim shp As Rectangle: Set shp =  
Dim rngRange As Range
Set rngRange = shp.Range

RectangleType

Devuelve una constante WdRectangleType que representa el tipo de rectángulo especificado. Aquí puede ver valores posibles para WdRectangleType.

Los rectángulos en Microsoft Word son secciones dentro de una página en un documento que contienen tipos específicos de información.

Dim objRectangle As Rectangle 
 
Set objRectangle = ActiveDocument.ActiveWindow _ 
 .Panes(1).Pages(1).Rectangles(1) 
 
If objRectangle.RectangleType = wdTextRectangle Then 
 objRectangle.Range.CheckSpelling 
End If

Top

Devuelve un Long que representa el número de píxeles desde la parte superior de la página hasta la parte superior de un rectángulo.

Dim shp As Rectangle: Set shp =  
Dim lngTop As Long
lngTop = shp.Top

Width

Devuelve o establece un valor de tipo Long que representa el ancho, en puntos, de un rectángulo.

Dim shp As Rectangle: Set shp =  
Dim lngWidth As Long
lngWidth = shp.Width