Ativar Rotulo de Dados em Grafico no Excel
Citação de Kindrazki em 22 de março de 2012, 15:37É comum montarmos gráficos sobre tabela dinamica, e assim permitindo ao usuário fazer mudanças no layout usando os recursos do excel. Ao fazer tais mudanças, os rótulos de dados apresentados sobre o gráfico no excel, em muitas vezes se perde, e para tanto criamos uma macro que irá resolver o problema.
Criar a macro com os seguintes comandos:
[code]
Sub Ativarotulo()
'
' Ativarotulo Macro
''
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetElement (msoElementDataLabelShow)
End Sub
[/code]No Vba,fazer a chamada da Macro no evento PivotTableUpdate
[code]
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Call Ativarotulo
End Sub
[/code]
É comum montarmos gráficos sobre tabela dinamica, e assim permitindo ao usuário fazer mudanças no layout usando os recursos do excel. Ao fazer tais mudanças, os rótulos de dados apresentados sobre o gráfico no excel, em muitas vezes se perde, e para tanto criamos uma macro que irá resolver o problema.
Criar a macro com os seguintes comandos:
[code]
Sub Ativarotulo()
'
' Ativarotulo Macro
'
'
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetElement (msoElementDataLabelShow)
End Sub
[/code]
No Vba,fazer a chamada da Macro no evento PivotTableUpdate
[code]
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Call Ativarotulo
End Sub
[/code]
Citação de Kindrazki em 22 de março de 2012, 16:04Assim parece funcionar melhor:
[code]
Sub Ativarotulo()
'
' Ativarotulo Macro
''
ActiveSheet.ChartObjects("Gráfico 2").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetElement (msoElementDataLabelCenter)
End Sub[/code]
Assim parece funcionar melhor:
[code]
Sub Ativarotulo()
'
' Ativarotulo Macro
'
'
ActiveSheet.ChartObjects("Gráfico 2").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetElement (msoElementDataLabelCenter)
End Sub
[/code]
