Classe Rectangle (Word VBA)

La classe Rectangle représente une partie du texte ou un graphique dans une page. Pour utiliser une variable de classe Rectangle, elle doit d'abord être instanciée, par exemple

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

Height

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

Dim shp As Rectangle: Set shp =  
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.

Dim shp As Rectangle: Set shp =  
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.

Pour définir par programme la mise en page dans un document, utilisez la collection Lines et les objets associés et les propriétés.

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

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

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

RectangleType

Renvoie une constante wdRectangleType qui représente le type du rectangle spécifié. Ici on trouve valeurs possible pour WdRectangleType.

Rectangles dans Microsoft Word sont des sections au sein d'une page dans un document contenant des types spécifiques d'informations.

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

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.

Dim shp As Rectangle: Set shp =  
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.

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