Classe Rectangle (Word VBA)

La classe Rectangle représente une partie du texte ou un graphique dans une page.

For Each

Voici un exemple de traitement des éléments Rectangle dans une collection

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

Propriétés

Height Renvoie un type long qui représente la hauteur d'un rectangle, en pixels.

7 
Dim lngHeight As Long
lngHeight = shp.Height

Left Renvoie un type long qui représente le nombre de pixels situés entre le bord gauche de la page et la bordure gauche d'un rectangle.

7 
Dim lngLeft As Long
lngLeft = shp.Left

Lines Renvoie une collection Lines qui représente les lignes d’une partie spécifiée de texte dans une page.

7 
Dim lnsLines As Lines
Set lnsLines = shp.Lines

Parent Renvoie un type de données Object qui représente l'objet parent de l'objet Rectangle spécifié.

7 
Dim objParent As Object
Set objParent = shp.Parent

Range Renvoie un objet Range qui représente la partie d'un document contenue dans un rectangle.

7 
Dim rngRange As Range
Set rngRange = shp.Range

RectangleType Renvoie une constante wdRectangleType qui représente le type du rectangle spécifié.

7 
Dim wrtRectangleType As WdRectangleType
wrtRectangleType = shp.RectangleType

Top Renvoie un type long qui représente le nombre de pixels situés entre le haut de la page et la bordure supérieure d’un rectangle.

7 
Dim lngTop As Long
lngTop = shp.Top

Width Cette propriété renvoie ou définit un type long qui représente la largeur, exprimée en points, d’un rectangle.

7 
Dim lngWidth As Long
lngWidth = shp.Width

Rectangles.Count Renvoie un type long qui représente le nombre de rectangles dans la collection.

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

Rectangles.Parent Renvoie un Object qui représente l'objet parent de l'objet Rectangles spécifié.

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