Clase Style (Excel VBA)

La clase Style representa la descripción de un estilo para un rango.

Los principales procedimientos de la clase Style son Delete y Styles.Add

Set

Para usar una variable de clase Style, primero debe ser instanciado, por ejemplo

Dim sty as Style
Set sty = ActiveCell.Style

Los siguientes procedimientos se pueden usar para establecer variables de clase Style : DisplayFormat.Style, Range.Style, Slicer.Style, Styles.Item, Styles.Add y Workbook.Styles

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Style en una colección.

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

Métodos

Los principales métodos de la clase Style son

Delete - Elimina el objeto.

ActiveCell.Style.Delete

Styles.Add - Crea un nuevo estilo y lo agrega a la lista de estilos disponibles en el libro activo.

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

Otros Métodos

Styles.Merge - Combina los estilos de otro libro en la colección Styles.

Propiedades

AddIndent Devuelve o establece un valor booleano que indica si se aplica sangría al texto automáticamente cuando la alineación del texto de una celda se establece en una distribución Igualada (ya sea horizontal o vertical).

ActiveCell.Style.AddIndent = True

Borders Devuelve una colección Borders que representa los bordes de un estilo o de un rango de celdas (incluido un rango definido como parte de un formato condicional).

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

BuiltIn True si el estilo es un estilo integrado. Boolean de solo lectura.

Dim booBuiltIn As Boolean
booBuiltIn = ActiveCell.Style.BuiltIn

Font Devuelve un objeto Font que representa la fuente del objeto especificado.

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

FormulaHidden Devuelve o establece un valor de tipo Boolean que indica si la fórmula se ocultará cuando la hoja de cálculo esté protegida.

ActiveCell.Style.FormulaHidden = True

HorizontalAlignment Devuelve o establece un valor XlHAlign que representa la alineación horizontal del objeto especificado.

ActiveCell.Style.HorizontalAlignment = xlHAlignCenter

IncludeAlignment True si el estilo incluye las propiedades AddIndent, HorizontalAlignment, VerticalAlignment, WrapText, IndentLevely Orientation del objeto Style . Boolean de lectura y escritura.

ActiveCell.Style.IncludeAlignment = True

IncludeBorder True si el estilo incluye las propiedades color, ColorIndex, LineStyley Weight del objeto Border . Boolean de lectura y escritura.

ActiveCell.Style.IncludeBorder = True

IncludeFont True si el estilo incluye las propiedades de fuente Background, Bold, Color, ColorIndex, FontStyle, Italic, Name, Size, Strikethrough, Subscript, Superscript y Underline. Boolean de lectura y escritura.

ActiveCell.Style.IncludeFont = True

IncludeNumber True si el estilo incluye la propiedad NumberFormat. Boolean de lectura y escritura.

ActiveCell.Style.IncludeNumber = True

IncludePatterns True si el estilo incluye las propiedades color, ColorIndex, InvertIfNegative, Pattern, PatternColory PatternColorIndex del objeto interior . Boolean de lectura y escritura.

ActiveCell.Style.IncludePatterns = True

IncludeProtection True si el estilo incluye las propiedades de protección FormulaHidden y Locked. Boolean de lectura y escritura.

ActiveCell.Style.IncludeProtection = True

IndentLevel Devuelve o establece un valor de tipo Long que representa el nivel de sangría del estilo.

ActiveCell.Style.IndentLevel =

Interior Devuelve un objeto Interior que representa el interior del objeto especificado.

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

Locked Devuelve o establece un valor de tipo Boolean que indica si el objeto está bloqueado.

ActiveCell.Style.Locked = True

MergeCells Es True si el estilo contiene celdas combinadas. Variante de lectura y escritura.

ActiveCell.Style.MergeCells = True

Name Devuelve un valor de tipo String que representa el nombre del objeto.

Dim strName As String
strName = ActiveCell.Style.Name

NameLocal Devuelve o establece el nombre del objeto en el idioma del usuario. String de solo lectura.

Dim strNameLocal As String
strNameLocal = ActiveCell.Style.NameLocal

NumberFormat Devuelve o establece un valor de tipo String que representa el código de formato del objeto.

ActiveCell.Style.NumberFormat =

NumberFormatLocal Devuelve o establece un valor de tipo String que representa el código de formato del objeto, en forma de cadena de caracteres en el idioma del usuario.

ActiveCell.Style.NumberFormatLocal =

Orientation Devuelve o establece un valor XlOrientation que representa la orientación del texto.

ActiveCell.Style.Orientation = xlDownward

Parent Devuelve el objeto primario del objeto especificado. Solo lectura.

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

ReadingOrder Devuelve o establece el orden de lectura del objeto especificado. Puede ser una de las siguientes constantes XlReadingOrder : xlRTL (de derecha a izquierda), xlLTR (de izquierda a derecha) o xlContext. Long de lectura y escritura.

ActiveCell.Style.ReadingOrder =

ShrinkToFit Devuelve o establece un valor de tipo Boolean que indica si el texto se reduce automáticamente para ajustarse al ancho de columna disponible.

ActiveCell.Style.ShrinkToFit = True

Value Devuelve un valor de tipo String que representa el nombre del estilo especificado.

Dim strValue As String
strValue = ActiveCell.Style.Value

VerticalAlignment Devuelve o establece un valor XlVAlign que representa la alineación vertical del objeto especificado.

ActiveCell.Style.VerticalAlignment = xlVAlignBottom

WrapText Devuelve o establece un valor de tipo Boolean que indica si Microsoft Excel ajusta de forma automática el texto del objeto.

ActiveCell.Style.WrapText = True

Styles.Count Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveWorkbook.Styles.Count

Styles.Item Devuelve un solo objeto de una colección.

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

Styles.Parent Devuelve el objeto primario del objeto especificado. Solo lectura.

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