Microsoft Office Tutorials and References
In Depth Information
10.1.4 Schriftformatierung für Zellbereich auswählen
If Not Erfolg Then _
MsgBox "Kein Muster ausgewählt"
End Sub
Abbildung 10.3 zeigt das Ergebnis.
Abbildung 10.3
Dialogfeld »Zellen formatieren« (Ausfüllen)
Zur Erläuterung:
Die Konstante ist xlDialogPatterns .
Button OK
Falls der Benutzer den Button OK betätigt, wird der ausgewählte Zell-
bereich mit dem gewählten Muster formatiert.
10.1.4
Schriftformatierung für Zellbereich auswählen
Ähnlich wie ein Muster kann eine Schriftformatierung ausgewählt werden:
xlDialogFont-
Properties
Sub AuswahlSchriftformatierung()
Dim Erfolg As Boolean
ThisWorkbook.Worksheets("Tabelle1"). _
Range("A1:C3").Select
Erfolg = Application.Dialogs _
(xlDialogFontProperties).Show
If Not Erfolg Then _
MsgBox "Keine Schriftformatierung ausgewählt"
End Sub
Das Ergebnis ist in Abbildung 10.4 dargestellt.
Zur Erläuterung:
Die Konstante ist xlDialogFontProperties .
Button »OK«
Falls der Benutzer den Button OK betätigt, wird der ausgewählte Zell-
bereich mit den gewählten Schrifteigenschaften formatiert.
Search JabSto ::




Custom Search