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

Propiedades

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

7 
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.

7 
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.

7 
Dim lnsLines As Lines
Set lnsLines = shp.Lines

Parent Devuelve un objeto Object que representa el objeto primario del objeto Rectangle especificado.

7 
Dim objParent As Object
Set objParent = shp.Parent

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

7 
Dim rngRange As Range
Set rngRange = shp.Range

RectangleType Devuelve una constante WdRectangleType que representa el tipo de rectángulo especificado.

7 
Dim wrtRectangleType As WdRectangleType
wrtRectangleType = shp.RectangleType

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.

7 
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.

7 
Dim lngWidth As Long
lngWidth = shp.Width

Rectangles.Count Devuelve un Long que representa el número de rectángulos de la colección.

Dim rcts As Rectangles: Set rcts =  
Dim lngCount As Long
lngCount = rcts.Count

Rectangles.Parent Devuelve un objeto Object que representa el objeto primario del objeto Rectangles especificado.

Dim rcts As Rectangles: Set rcts =  
Dim objParent As Object
Set objParent = rcts.Parent