Objeto DataBar (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 da 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.

Use 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 que você especifique uma linha de eixo que é exibida quando os valores negativos estão presentes e para especificar a cor e a formatação das barras de dados.

Exemplo

O exemplo a seguir cria um intervalo de dados e aplica uma barra de dados ao intervalo. Você observará que, como há um valor extremamente baixo e alto no intervalo, os valores intermediários 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.