Carina, a rotina abaixo Copia o Grafico de Nome na Planilha Ataiva para a Planilha 2, é só fazer as alterações dos nomes:
Sub CopiaGrafico()
'Seleciona o Grafico "Gráfico 1" na Planilha Ativa
ActiveSheet.ChartObjects("Gráfico 1").Activate
'Copia o Grafico "Gráfico 1" na Planilha Ativa
ActiveSheet.ChartObjects("Gráfico 1").Copy
Range("A1").Select
'Seleciona Plan2
Sheets("Plan2").Select
'Cola o Grafico
ActiveSheet.Paste
Range("A1").Select
End Sub
A rotina é bem básica para entender melhor, mas poderiámos fazer de forma direta :
Sub CopiaCola()
'Copia o Grafico "Gráfico 1" na Planilha Ativa
ActiveSheet.ChartObjects("Gráfico 1").Copy
'cola na Plan2
Sheets("Plan2").Paste
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 30/01/2011 12:37 am