Classe DisplayFormat (Excel VBA)

La classe DisplayFormat représente les paramètres d’affichage d’un objet Range associé.

Set

Pour utiliser une variable de classe DisplayFormat, elle doit d'abord être instanciée, par exemple

Dim dft as DisplayFormat
Set dft = ActiveCell.DisplayFormat

Les variables du type DisplayFormat peuvent être définies à l'aide de la procédure Range.DisplayFormat

Propriétés

AddIndent Renvoie une valeur qui indique si Microsoft Excel met automatiquement en retrait le texte de l'objet Range associé lorsque l'alignement du texte dans une cellule est défini sur une distribution égale à l'horizontal ou à la verticale, tel qu'il est affiché dans l'interface utilisateur actuelle. . En lecture seule.

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

Borders Renvoie un objet Borders qui représente les bordures de l'objet Range associé tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

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

Characters Renvoie un objet Characters qui représente une plage de caractères dans le texte de l'objet Range associé tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

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

Font Renvoie un objet font qui représente la police de la plage associée telle qu'elle est affichée dans l'interface utilisateur actuelle. En lecture seule.

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

FormulaHidden Renvoie une valeur qui indique si la formule de l'objet Range associé est masquée lorsque la feuille de calcul est protégée, tel qu'il est affiché dans l'interface utilisateur active. En lecture seule.

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

HorizontalAlignment Renvoie une valeur qui représente l'alignement horizontal de l'objet Range associé tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

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

IndentLevel Renvoie une valeur qui représente le niveau de retrait de l'objet Range associé tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

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

Interior Renvoie un objet Interior qui représente l'intérieur de l'objet Range associé tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

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

Locked Renvoie une valeur qui indique si l'objet Range associé est verrouillé tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

Dim booLocked As Boolean
booLocked = ActiveCell.DisplayFormat.Locked

MergeCells Renvoie une valeur qui indique si l'objet Range associé contient des cellules fusionnées telles qu'elles s'affichent dans l'interface utilisateur actuelle. En lecture seule.

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

NumberFormat Renvoie une valeur qui représente le code du format de l'objet Range associé tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

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

NumberFormatLocal Renvoie une valeur qui représente le code du format de l'objet Range associé sous la forme d'une chaîne dans la langue de l'utilisateur tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

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

Orientation Renvoie une valeur qui représente l'orientation du texte de l'objet Range associé tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

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

Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

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

ReadingOrder Renvoie l'ordre de lecture de l'objet Range associé tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

Dim xlroReadingOrder As XlReadingOrder
xlroReadingOrder = ActiveCell.DisplayFormat.ReadingOrder

ShrinkToFit Renvoie une valeur qui indique si Microsoft Excel réduit automatiquement le texte pour qu'il s'ajuste à la largeur de colonne disponible de l'objet Range associé tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

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

Style Renvoie une valeur contenant un objet style qui représente le style de l'objet Range associé tel qu'il est affiché dans l'interface utilisateur actuelle.

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

VerticalAlignment Renvoie une valeur qui représente l'alignement vertical de l'objet Range associé tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

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

WrapText Renvoie une valeur qui indique si Microsoft Excel renvoie le texte de l'objet Range associé tel qu'il est affiché dans l'interface utilisateur actuelle. En lecture seule.

Dim booWrapText As Boolean
booWrapText = ActiveCell.DisplayFormat.WrapText