Klasse Style (Excel VBA)

Die Klasse Style stellt eine Formatvorlagenbeschreibung für einen Bereich dar.

Die wichtigste Prozeduren der Klasse Style sind Delete und Styles.Add

Set

Um eine Style -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim sty as Style
Set sty = ActiveCell.Style

Die folgenden Prozeduren können zum Festlegen der Style Klassenvariablen verwendet werden : DisplayFormat.Style, Range.Style, Slicer.Style, Styles.Item, Styles.Add und Workbook.Styles

For Each

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

Dim sty As Style
For Each sty In Application.Styles
	
Next sty

Methoden

Die Hauptmethoden der Klasse Style sind

Delete - Löscht das Objekt.

ActiveCell.Style.Delete

Styles.Add - Erstellt eine neue Formatvorlage und fügt sie der Liste mit den für die aktuelle Arbeitsmappe verfügbaren Formatvorlagen hinzu.

Dim strName As String: strName = 
Dim sty As Style
Set sty = ActiveWorkbook.Styles.Add(Name:=strName)

Andere Methoden

Styles.Merge - Führt die Formatvorlagen aus einer anderen Arbeitsmappe in der Styles-Auflistung zusammen.

Eigenschaften

AddIndent Gibt zurück oder legt einen booleschen Wert, der angibt, ob Text automatisch eingezogen wird, wenn die Textausrichtung in einer Zelle auf gleiche Verteilung (entweder horizontal oder vertikal) festgelegt ist.

ActiveCell.Style.AddIndent = True

Borders Gibt eine Borders -Auflistung zurück, die die Rahmen einer Formatvorlage oder eines Zellbereichs darstellt (einschließlich eines Bereichs, der als Teil eines bedingten Formats definiert ist).

Dim brdsBorders As Borders
Set brdsBorders = ActiveCell.Style.Borders

BuiltIn True, wenn die Formatvorlage integriert ist.

Dim booBuiltIn As Boolean
booBuiltIn = ActiveCell.Style.BuiltIn

Font Gibt ein Font -Objekt zurück, das die Schriftart des angegebenen Objekts darstellt.

Dim fntFont As Font
Set fntFont = ActiveCell.Style.Font

FormulaHidden Gibt einen Boolean-Wert zurück, der angibt, ob die Formel ausgeblendet ist, wenn das Arbeitsblatt geschützt ist, oder legt diesen Wert fest.

ActiveCell.Style.FormulaHidden = True

HorizontalAlignment Gibt einen XlHAlign -Wert zurück, der die horizontale Ausrichtung für das angegebene Objekt darstellt, oder legt diesen fest.

ActiveCell.Style.HorizontalAlignment = xlHAlignCenter

IncludeAlignment True , wenn die Formatvorlage die Eigenschaften AddIndent, HorizontalAlignment, VerticalAlignment, WrapText, IndentLevelund Orientation des Style -Objekts enthält.

ActiveCell.Style.IncludeAlignment = True

IncludeBorder True , wenn die Formatvorlage die Eigenschaften Color, ColorIndex, Linienartund Gewichtung des Border -Objekts enthält.

ActiveCell.Style.IncludeBorder = True

IncludeFont True, wenn die Formatvorlage die Schriftarteigenschaften Background, Bold, Color, ColorIndex, FontStyle, Italic, Name, Size, Strikethrough, Subscript, Superscript und Underline enthält.

ActiveCell.Style.IncludeFont = True

IncludeNumber True, wenn die Formatvorlage die NumberFormat-Eigenschaft enthält.

ActiveCell.Style.IncludeNumber = True

IncludePatterns True , wenn die Formatvorlage die Eigenschaften Color, ColorIndex, InvertIfNegative, Pattern, PatternColorund PatternColorIndex des Interior -Objekts enthält.

ActiveCell.Style.IncludePatterns = True

IncludeProtection True, wenn die Formatvorlage die Schutzeigenschaften FormulaHidden und Locked enthält.

ActiveCell.Style.IncludeProtection = True

IndentLevel Gibt einen Long-Wert zurück, der die Einzugsebene für die Formatvorlage darstellt, oder legt diesen Wert fest.

ActiveCell.Style.IndentLevel =

Interior Gibt ein Interior-Objekt zurück, das den Innenbereich des angegebenen Objekts darstellt.

Dim intInterior As Interior
Set intInterior = ActiveCell.Style.Interior

Locked Gibt einen Boolean-Wert zurück, der angibt, ob das Objekt gesperrt ist, oder legt diesen fest.

ActiveCell.Style.Locked = True

MergeCells True, wenn die Formatvorlage zusammengeführte Zellen enthält.

ActiveCell.Style.MergeCells = True

Name Gibt einen String -Wert, der den Namen des Objekts darstellt.

Dim strName As String
strName = ActiveCell.Style.Name

NameLocal Gibt den Namen des Objekts in der Sprache des Benutzers zurück oder legt diesen fest.

Dim strNameLocal As String
strNameLocal = ActiveCell.Style.NameLocal

NumberFormat Gibt einen String-Wert zurück, der den Formatierungscode für das Objekt darstellt, oder legt diesen Wert fest.

ActiveCell.Style.NumberFormat =

NumberFormatLocal Gibt einen String-Wert zurück, der den Formatierungscode des Objekts als Zeichenfolge in der Sprache des Benutzers darstellt, oder legt diesen Wert fest.

ActiveCell.Style.NumberFormatLocal =

Orientation Gibt einen XlOrientation -Wert zurück, der die Textausrichtung darstellt, oder legt diesen fest.

ActiveCell.Style.Orientation = xlDownward

Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveCell.Style.Parent

ReadingOrder Gibt die Lesereihenfolge für das angegebene Objekt zurück oder legt diese fest.

ActiveCell.Style.ReadingOrder =

ShrinkToFit Gibt einen Boolean-Wert zurück, der angibt, ob Text automatisch an die verfügbare Spaltenbreite angepasst wird, oder legt diesen Wert fest.

ActiveCell.Style.ShrinkToFit = True

Value Gibt einen String-Wert zurück, der den Namen der angegebenen Formatvorlage darstellt.

Dim strValue As String
strValue = ActiveCell.Style.Value

VerticalAlignment Gibt einen XlVAlign -Wert zurück, der die vertikale Ausrichtung des angegebenen Objekts darstellt, oder legt diesen fest.

ActiveCell.Style.VerticalAlignment = xlVAlignBottom

WrapText Gibt einen Boolean-Wert zurück, der angibt, ob der Text im Objekt in Microsoft Excel umbrochen wird, oder legt diesen Wert fest.

ActiveCell.Style.WrapText = True

Styles.Count Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveWorkbook.Styles.Count

Styles.Item Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Dim styItem As Style
Set styItem = ActiveWorkbook.Styles(Index:=1)

Styles.Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveWorkbook.Styles.Parent