Clase DisplayFormat (Excel VBA)

La clase DisplayFormat representa la configuración de presentación de un objeto Range asociado.

Set

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

Dim dft as DisplayFormat
Set dft = ActiveCell.DisplayFormat

Las variables de tipo DisplayFormat se pueden establecer utilizando el procedimiento Range.DisplayFormat

Propiedades

AddIndent Devuelve un valor que indica si Microsoft Excel aplica sangría automáticamente al texto del objeto Range asociado cuando la alineación del texto de una celda se establece en una distribución Igualada (ya sea horizontal o vertical), tal y como se muestra en la interfaz de usuario actual .

Dim rngAddIndent As Range
Set rngAddIndent = ActiveCell.DisplayFormat.AddIndent

Borders Devuelve un objeto Borders que representa los bordes del objeto Range asociado tal como se muestra en la interfaz de usuario actual.

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

Characters Devuelve un objeto Characters que representa un rango de caracteres dentro del texto del objeto Range asociado tal como se muestra en la interfaz de usuario actual.

Dim chrsCharacters As Characters
Set chrsCharacters = ActiveCell.DisplayFormat.Characters

Font Devuelve un objeto Font que representa la fuente del rango asociado tal como se muestra en la interfaz de usuario actual.

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

FormulaHidden Devuelve un valor que indica si la fórmula del objeto Range asociado está oculta cuando la hoja de cálculo está protegida, ya que se muestra en la interfaz de usuario actual.

Dim rngFormulaHidden As Range
Set rngFormulaHidden = ActiveCell.DisplayFormat.FormulaHidden

HorizontalAlignment Devuelve un valor que representa la alineación horizontal del objeto Range asociado tal y como se muestra en la interfaz de usuario actual.

Dim rngHorizontalAlignment As Range
Set rngHorizontalAlignment = ActiveCell.DisplayFormat.HorizontalAlignment

IndentLevel Devuelve un valor que representa el nivel de sangría del objeto Range asociado tal y como se muestra en la interfaz de usuario actual.

Dim rngIndentLevel As Range
Set rngIndentLevel = ActiveCell.DisplayFormat.IndentLevel

Interior Devuelve un objeto interior que representa el interior del objeto Range asociado tal como se muestra en la interfaz de usuario actual.

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

Locked Devuelve un valor que indica si el objeto de intervalo asociado está bloqueado tal como se muestra en la interfaz de usuario actual.

Dim booLocked As Boolean
booLocked = ActiveCell.DisplayFormat.Locked

MergeCells Devuelve un valor que indica si el objeto Range asociado contiene celdas combinadas tal y como se muestra en la interfaz de usuario actual.

Dim rngMergeCells As Range
Set rngMergeCells = ActiveCell.DisplayFormat.MergeCells

NumberFormat Devuelve un valor que representa el código de formato del objeto Range asociado tal como se muestra en la interfaz de usuario actual.

Dim rngNumberFormat As Range
Set rngNumberFormat = ActiveCell.DisplayFormat.NumberFormat

NumberFormatLocal Devuelve un valor que representa el código de formato del objeto Range asociado como una cadena en el idioma del usuario tal y como se muestra en la interfaz de usuario actual.

Dim rngNumberFormatLocal As Range
Set rngNumberFormatLocal = ActiveCell.DisplayFormat.NumberFormatLocal

Orientation Devuelve un valor que representa la orientación del texto del objeto Range asociado tal como se muestra en la interfaz de usuario actual.

Dim rngOrientation As Range
Set rngOrientation = ActiveCell.DisplayFormat.Orientation

Parent Devuelve el objeto primario del objeto especificado.

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

ReadingOrder Devuelve el orden de lectura del objeto Range asociado tal y como se muestra en la interfaz de usuario actual.

Dim xlroReadingOrder As XlReadingOrder
xlroReadingOrder = ActiveCell.DisplayFormat.ReadingOrder

ShrinkToFit Devuelve un valor que indica si Microsoft Excel reduce automáticamente el texto para que quepa en el ancho de columna disponible del objeto Range asociado, tal como se muestra en la interfaz de usuario actual.

Dim rngShrinkToFit As Range
Set rngShrinkToFit = ActiveCell.DisplayFormat.ShrinkToFit

Style Devuelve un valor, que contiene un objeto Style , que representa el estilo del objeto Range asociado tal como se muestra en la interfaz de usuario actual.

Dim styStyle As Style
Set styStyle = ActiveCell.DisplayFormat.Style

VerticalAlignment Devuelve un valor que representa la alineación vertical del objeto Range asociado tal como se muestra en la interfaz de usuario actual.

Dim rngVerticalAlignment As Range
Set rngVerticalAlignment = ActiveCell.DisplayFormat.VerticalAlignment

WrapText Devuelve un valor que indica si Microsoft Excel ajusta el texto del objeto Range asociado tal como se muestra en la interfaz de usuario actual.

Dim booWrapText As Boolean
booWrapText = ActiveCell.DisplayFormat.WrapText