Notifications
Clear all

Macros para copiar um gráfico de uma planilha para outra

3 Posts
1 Usuários
0 Reactions
2,318 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caro Fernando,

Pode me ajudar?

Estou criando um arquivo e tentando criar uma macro que copie um gráfico de uma planilha para outra, porém, não roda.

Se puder me auxiliar?

Grata
Carina M.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/01/2011 6:47 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Olá, Carina... bem-vinda ao planilhando!!

Realmente o Fernando é fera, mas creio que outros usuários também possam ajudá-la.

Você quer copiar o gráfico de uma guia para outra do mesmo arquivo ou colar em outro arquivo?
Precisa manter os Dados de origem?
Pode postar o código que está utilizando?

PS: O fórum é dividido em assuntos. Há um específico para Macros e pode ser que esta mensagem seja migrada para lá. Fique atenta.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/01/2011 5:06 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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