Guru do Excel e Power BI

Olá pessoal!
Estou trabalhando em um arquivo no qual desejo incluir automaticamente alguns rótulos em um gráfico.
Fiz uma versão reduzida do arquivo para enviar para vocês.
Na Plan1, o botão inserir copia as células e cola como imagem na célula desejada. Foi esta a forma que eu encontrei de atualizar estes rótulos automaticamente.
O problema fica na hora de excluir os rótulos existentes para adicionar outros. A forma que eu encontrei para fazer foi selecionar o intervalo em que estão os rótulos, recortar, colar em outra aba e usar o comando
Activesheet.shapes.selectall
Selection.delete
O problema é que quando o comando recortar é executado (mesmo até antes de colar e excluir) o gráfico e todas as imagens da aba apenas ficam visíveis com zoom 100%. Eu não faço ideia do porque.
Tentei desativar e depois ativar o screenupdate mas não adiantou.
As imagens voltam ao normal depois que salvo o arquivo, fecho e abro de novo.
Aguardo ajuda de vocês.
Se tiverem alguma outra forma de atualizar rótulos automaticamente, eu aceito!
Muito obrigado desde já!

Experimente.
Altere a rotina para incluir shapes/rotulos

Código: Selecionar todos

Sub Macro1()
    
    Sheets("Plan1").Select
    Range("B8").Select
    Selection.Copy
    Range("h23").Select
    ActiveSheet.Pictures.Paste.Select
    Range("a40") = Selection.Name
    
    Range("B9").Select
    Selection.Copy
    Range("h15").Select
    ActiveSheet.Pictures.Paste.Select
    Range("a41") = Selection.Name
    
    Range("B10").Select
    Selection.Copy
    Range("h8").Select
    ActiveSheet.Pictures.Paste.Select
    Range("a42") = Selection.Name
    
End Sub

e a rotina para excluir shape/rotulo

Código: Selecionar todos

Sub Macro2()
For x = 40 To 42
    ActiveSheet.Shapes(Cells(x, 1).Value).Delete
    Cells(x, 1) = ""
Next
End Sub

Vc pode resolver o seu problema com os rótulos sem uso de macro apenas selecionando Formatar Rótulos de Dados / Valor a Partir das Células.

Veja exemplo na planilha anexa.

Guru do Excel e Power BI

Imagens ficam visíveis apenas a zoom 100% após executar macr

Imagens ficam visíveis apenas a zoom 100% após executar macr

Re: Imagens ficam visíveis apenas a zoom 100% após executar

Re: Imagens ficam visíveis apenas a zoom 100% após executar