Visual Basic copiar gráfico e colar como imagem com vba dando erro de formatação

[Flávia de Oliveira Batista]

Bom dia,

 

Tenho uma programação em VBA que copia um gráfico e cola como imagem, mas no momento da colagem (não sei porquê) o código cola a imagem com formação diferente do gráfico original.

Quando rodo o código apenas apertando o play ele cola errado, mas se rodo no modo depuração total (aquele linha a linha) funciona normalmente.

Segue a imagem de como é o GRÁFICO ORIGINAL e como ele fica COLADO COMO IMAGEM PELO VBA, perceba que a formatação dos rótulos de dados está alterada. Alguém saberia dizer o porquê e como resolver este problema?

Coloquei o código resumido que estou usando, todas as variáveis estão declaradas anteriormente e têm valor. inclusive essa programação está dentro de um loop que copia e cola muitos gráficos, e só 1 está dando este erro.

Desde já agradeço.

 

Workbooks(PlanilhaOrigem).Activate
                             Sheets(AbaOrigem).Select
                             ActiveSheet.ChartObjects(nome).Select
                             ActiveChart.ChartArea.Copy
Workbooks(PastaAtual).Activate
                Sheets(Aba).Activate
                Range(CelulaDestino).Select
                ActiveSheet.Pictures.Paste.Select

 

 

 

[Basole]

@Flávia de Oliveira Batista não tenho como testar agora, mas experimente substituir essas linhas no seu código:

 

ActiveChart.ChartArea.Select

ActiveChart.CopyPicture xlScreen, xlBitmap, xlScreen

ActiveSheet.Paste