Olá amigos,
Como faço para adaptar o código abaixo para que exiba o grafico gerado na planilha "NovoGrafico" num userform.
Sub Grafico1()
'Cria um grafico Vazio'
Charts.Add
'Adiciona a fonte de dados ao grafico'
ActiveChart.SetSourceData Source:=Sheets("Dados").Range("A2:H42"), PlotBy:=xlColumns
'Cria o grafico numa nova planilha e o nomeia'
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="NovoGrafico"
End Sub
DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]
Postado : 03/02/2014 12:29 pm