Klasse Rectangle (Word VBA)

Die Klasse Rectangle stellt einen Bereich mit Text oder Grafik auf einer Seite dar.

For Each

Hier ist ein Beispiel für die Verarbeitung der Rectangle -Elemente in einer Sammlung

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

Eigenschaften

Height Gibt einen Wert vom Typ Long zurück, der die Höhe eines Rechtecks in Pixel darstellt.

7 
Dim lngHeight As Long
lngHeight = shp.Height

Left Gibt einen Wert vom Typ Long zurück, der die Anzahl der Pixel vom linken Rand der Seite bis zum linken Rand eines Rechtecks darstellt.

7 
Dim lngLeft As Long
lngLeft = shp.Left

Lines Gibt eine Lines -Auflistung zurück, die die Zeilen in einem angegebenen Textteil in einer Seite darstellt.

7 
Dim lnsLines As Lines
Set lnsLines = shp.Lines

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Rectangle-Objekts darstellt.

7 
Dim objParent As Object
Set objParent = shp.Parent

Range Gibt ein Range -Objekt zurück, das den Teil eines Dokuments darstellt, der in einem Rechteck enthalten ist.

7 
Dim rngRange As Range
Set rngRange = shp.Range

RectangleType Gibt eine WdRectangleType -Konstante zurück, die den Typ für das angegebene Rechteck darstellt.

7 
Dim wrtRectangleType As WdRectangleType
wrtRectangleType = shp.RectangleType

Top Gibt einen Wert vom Typ Long zurück, der die Anzahl der Pixel vom oberen Rand der Seite bis zum oberen Rand eines Rechtecks darstellt.

7 
Dim lngTop As Long
lngTop = shp.Top

Width Zurückgeben oder Festlegen einer Long , der die Breite des Rechtecks in Punktdarstellt.

7 
Dim lngWidth As Long
lngWidth = shp.Width

Rectangles.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Rechtecke in der Auflistung darstellt.

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

Rectangles.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Rectangles-Objekts darstellt.

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