Klasse Rectangle (Word VBA)

Die Klasse Rectangle stellt einen Bereich mit Text oder Grafik auf einer Seite dar. Um eine Rectangle -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Height

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


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


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

Mit der Lines-Auflistung und den zugehörigen Objekten und Eigenschaften kann das Seitenlayout in einem Dokument programmatisch definiert werden.


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

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


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

RectangleType

Gibt eine WdRectangleType -Konstante zurück, die den Typ für das angegebene Rechteck darstellt. Dies sind mögliche Werte für WdRectangleType.

Rechtecke in Microsoft Word sind Bereiche auf einer Seite in einem Dokument, die bestimmte Arten von Informationen enthalten.


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

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.


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

Width

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


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