Clase Databar (Excel VBA)

La clase Databar representa una regla de formato condicional de barra de datos.

Los principales procedimientos de la clase Databar son Delete, FormatConditions.Add, FormatConditions.AddAboveAverage, FormatConditions.AddColorScale, FormatConditions.AddDatabar, FormatConditions.AddIconSetCondition, FormatConditions.AddTop10, FormatConditions.AddUniqueValues y FormatConditions.Delete

Set

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

Dim dtb as Databar
Set dtb = ActiveCell.FormatConditions(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Databar : FormatConditions.AddDatabar, FormatConditions.AddDatabar, FormatConditions.AddDatabar, FormatConditions.AddDatabar, FormatConditions.AddDatabar, FormatConditions.AddDatabar, FormatConditions.AddDatabar y Range.FormatConditions

For Each

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

Dim dtbFormatCondition As Databar
For Each dtbFormatCondition In ActiveCell.FormatConditions
	
Next dtbFormatCondition

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Add with its procedures FormatConditions.Add, FormatConditions.AddAboveAverage, FormatConditions.AddDatabar, FormatConditions.AddIconSetCondition y FormatConditions.AddTop10

Métodos

Los principales métodos de la clase Databar son

Delete - Elimina el objeto de reglas de formato condicional especificado.

ActiveCell.FormatConditions(1).Delete

FormatConditions.AddColorScale - Devuelve un nuevo objeto ColorScale que representa una regla de formato condicional que utiliza gradaciones en los colores de celda para indicar las diferencias relativas entre los valores de las celdas incluidas en un rango seleccionado.

Dim lngColorScaleType As Long: lngColorScaleType = 
Dim cseAddColorScale As ColorScale
Set cseAddColorScale = ActiveCell.FormatConditions.AddColorScale(ColorScaleType:=lngColorScaleType)

FormatConditions.AddUniqueValues - Devuelve un nuevo objeto UniqueValues que representa una regla de formato condicional para el rango especificado.

Dim uvsAddUniqueValues As UniqueValues
Set uvsAddUniqueValues = ActiveCell.FormatConditions.AddUniqueValues()

FormatConditions.Delete - Elimina el objeto.

ActiveCell.FormatConditions.Delete

Otros Métodos

ModifyAppliesToRange - Establece el rango de celdas al que se aplica esta regla de formato.

SetFirstPriority - Establece el valor de prioridad para esta regla de formato condicional en 1 para que se evalúe antes que todas las demás reglas en la hoja de cálculo.

SetLastPriority - Establece el orden de evaluación para esta regla de formato condicional para que se evalúe después que todas las demás reglas en la hoja de cálculo.

FormatConditions.Item - Devuelve un solo objeto de una colección.

Propiedades

AppliesTo Devuelve un objeto Range que especifica el rango de celdas al que se aplica la regla de formato.

Dim rngAppliesTo As Range
Set rngAppliesTo = ActiveCell.FormatConditions(1).AppliesTo

AxisColor Devuelve el color del eje para las celdas con formato condicional como barras de datos.

Dim fcrAxisColor As FormatColor
Set fcrAxisColor = ActiveCell.FormatConditions(1).AxisColor

AxisPosition Devuelve o establece la posición del eje de las barras de datos especificada por una regla de formato condicional.

ActiveCell.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic

BarBorder Devuelve un objeto que especifica el borde de una barra de datos.

Dim dbbBarBorder As DataBarBorder
Set dbbBarBorder = ActiveCell.FormatConditions(1).BarBorder

BarColor Devuelve un objeto FormatColor que se puede utilizar para modificar el color de las barras en un formato condicional de barra de datos.

Dim fcrBarColor As FormatColor
Set fcrBarColor = ActiveCell.FormatConditions(1).BarColor

BarFillType Devuelve o establece cómo se rellena una barra de datos con color.

ActiveCell.FormatConditions(1).BarFillType = xlDataBarFillGradient

Direction Devuelve o establece la dirección en que se muestra la barra de la barra de la barra.

ActiveCell.FormatConditions(1).Direction =

Formula Devuelve o establece un valor String que representa una fórmula que determina los valores a los que se aplicará la barra de datos.

ActiveCell.FormatConditions(1).Formula =

MaxPoint Devuelve un objeto ConditionValue que especifica el modo en que se evalúa la barra más larga para un formato condicional de barra de datos.

Dim cveMaxPoint As ConditionValue
Set cveMaxPoint = ActiveCell.FormatConditions(1).MaxPoint

MinPoint Devuelve un objeto ConditionValue que especifica el modo en que se evalúa la barra más corta para un formato condicional de barra de datos.

Dim cveMinPoint As ConditionValue
Set cveMinPoint = ActiveCell.FormatConditions(1).MinPoint

NegativeBarFormat Devuelve el objeto NegativeBarFormat asociado a una regla de formato condicional de barra de datos.

Dim nbfNegativeBarFormat As NegativeBarFormat
Set nbfNegativeBarFormat = ActiveCell.FormatConditions(1).NegativeBarFormat

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveCell.FormatConditions(1).Parent

PercentMax Devuelve o establece un valor Long que especifica el largo de la barra de datos más larga como un porcentaje del ancho de la celda.

ActiveCell.FormatConditions(1).PercentMax =

PercentMin Devuelve o establece un valor Long que especifica el largo de la barra de datos más corta como un porcentaje del ancho de la celda.

ActiveCell.FormatConditions(1).PercentMin =

Priority Devuelve o establece el valor de prioridad de la regla de formato condicional.

ActiveCell.FormatConditions(1).Priority =

PTCondition Devuelve un valor Boolean que indica si el formato condicional se aplica a una tabla dinámica.

Dim booPTCondition As Boolean
booPTCondition = ActiveCell.FormatConditions(1).PTCondition

ScopeType Devuelve o establece una de las constantes de la enumeración XlPivotConditionScope , que determina el ámbito del formato condicional cuando se aplica a una tabla dinámica.

ActiveCell.FormatConditions(1).ScopeType = xlDataFieldScope

ShowValue Devuelve o establece un valor Boolean que especifica si se muestra el valor de la celda en caso de que se aplique al rango el formato condicional de barra de datos.

ActiveCell.FormatConditions(1).ShowValue = True

StopIfTrue Devuelve o establece un valor Boolean que determina si se deben evaluar reglas adicionales de formato en la celda si la regla actual da como resultado True.

Dim booStopIfTrue As Boolean
booStopIfTrue = ActiveCell.FormatConditions(1).StopIfTrue

Type Devuelve una de las constantes de la enumeración XlFormatConditionType , que especifica el tipo de formato condicional.

Dim xlfcType As XlFormatConditionType
xlfcType = ActiveCell.FormatConditions(1).Type

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

Dim lngCount As Long
lngCount = ActiveCell.FormatConditions.Count

FormatConditions.Parent Devuelve el objeto primario del objeto especificado.

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