Handbuch BasicMaker 2010 - SoftMaker

Set pm = Nothing
End Sub
Borders (Sammlung)
Zugriffspfade für die direkte Formatierung:
Application Workbooks Item Sheets Item Range Borders
Application Workbooks ActiveSheet Range Borders
Application ActiveWorkbook ActiveSheet Range Borders
Application ActiveSheet Range Borders
Zugriffspfade für die bedingte Formatierung:
Application Workbooks Item Sheets Item Range FormatConditions Item Borders
Application Workbooks ActiveSheet Range FormatConditions Item Borders
Application ActiveWorkbook ActiveSheet Range FormatConditions Item Borders
Application ActiveSheet Range FormatConditions Item Borders
Statt Range können Sie auch alle anderen Objekte und Eigenschaften angeben, die ein Range-Objekt zurückgeben: ActiveCell, Selection, Rows(n),
Columns(n) und Cells(x, y). Beispiele für diese Zugriffspfade finden Sie beim Range-Objekt.
1 Beschreibung
Borders ist eine Sammlung, die die vier Umrandungslinien (links, rechts, oben und unten) von Zellen repräsentiert. Sie
erlaubt Ihnen, die Formatierung von jeweils einer der Umrandungslinien (zum Beispiel Liniendicke und -farbe) auszulesen
und zu ändern.
Die einzelnen Elemente der Borders-Sammlung sind vom Typ Border.
Geben Sie als Parameter von Borders an, welche Linie verändert werden soll. Zulässig sind folgende Werte:
pmBorderTop = -1 ' Linie oberhalb der Zellen
pmBorderLeft = -2 ' Linie links der Zellen
pmBorderBottom = -3 ' Linie unterhalb der Zellen
pmBorderRight = -4 ' Linie rechts der Zellen
pmBorderHorizontal = -5 ' Horizontale Gitternetzlinien
pmBorderVertical = -6 ' Vertikale Gitternetzlinien
Beispiel:
' Die Farbe der linken Linie von Zelle A1 auf Rot setzen
pm.ActiveSheet.Range("A1").Borders(pmBorderLeft).Color = smoColorRed
2 Zugriff auf das Objekt
Borders kann ein Tochterobjekt zweier Objekte sein:
Als Tochterobjekt eines Range-Objekts repräsentiert es die Umrandungen der Zellen in diesem Bereich, entsprechend
dem PlanMaker-Befehl Format > Umrandung.
Als Tochterobjekt eines FormatCondition-Objekts repräsentiert es die Umrandungen, die durch die bedingte Formatierung
ausgelöst werden.
Beispiele:
' Zelle A1 unten umranden
pm.ActiveSheet.Range("A1").Borders(pmBorderBottom).Type = pmLineStyleSingle
' Die linke Umrandung in der ersten bedingten Formatierung in A1 anzeigen
MsgBox pm.ActiveSheet.Range("A1").FormatConditions(1).Borders(pmBorderLeft).Type
250 BasicMaker und PlanMaker Handbuch BasicMaker 2010