Objeto de barra de dados (Excel)

Representa uma regra de formatação condicional da barra de dados. Aplicar uma barra de dados a um intervalo ajuda você a ver o valor de uma célula em relação a outras células.

Comentários

Todos os objetos de formatação condicional estão contidos em um objeto de coleção FormatConditions , que é filho de uma coleção Range . Você pode criar uma regra de formatação de barra de dados usando os métodos Add ou AddDatabar da coleção FormatConditions .

Você usa as propriedades MinPoint e MaxPoint do objeto Databar para definir os valores da barra mais curta e da barra mais longa de um intervalo de dados. Essas propriedades retornam um objeto ConditionValue , com o qual você pode especificar como os limites são avaliados.

O objeto Databar também fornece propriedades que permitem especificar uma linha de eixo exibida quando há valores negativos presentes e determinar a cor e a formatação de barras de dados.

Exemplo

O exemplo a seguir cria um intervalo de dados e, em seguida, aplica uma barra de dados ao intervalo. Você observará que, como há um valor extremamente baixo e alto no intervalo, os valores médios têm barras de dados de tamanho semelhante. Para que os valores médios não sejam ambíguos, o código de exemplo usa o objeto ConditionValue para alterar como os limites são avaliados como percentis.

Sub CreateDatabarCF() 
 
 Dim cfDatabar As Databar 
 
 ' Create a range of data with a couple of extreme values 
 With ActiveSheet 
 .Range("D1") = 1 
 .Range("D2") = 45 
 .Range("D3") = 50 
 .Range("D2:D3").AutoFill Destination:=Range("D2:D8") 
 .Range("D9") = 500 
 End With 
 
 Range("D1:D9").Select 
 
 ' Create a data bar with default behavior 
 Set cfDatabar = Selection.FormatConditions.AddDatabar 
 MsgBox "Because of the extreme values, middle data bars are very similar" 
 
 ' The MinPoint and MaxPoint properties return a ConditionValue object 
 ' which you can use to change threshold parameters 
 cfDatabar.MinPoint.Modify newtype:=xlConditionValuePercentile, _ 
 newvalue:=5 
 cfDatabar.MaxPoint.Modify newtype:=xlConditionValuePercentile, _ 
 newvalue:=75 
 
End Sub

Métodos

Propriedades

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.