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