Fernando, veja os exemplos no tópico abaixo, no arquivo que anexei, apesar de trazer uma imagem da Web, da para adptar se referir a uma outra planilha e na rotina tem as opções de formatação da imagem.Se não acertar, mais tarde posto outro exemplo.

viewtopic.php?f=20&t=1767&start=0&st=0&sk=t&sd=a

abraços

Se puder mandar outro exemplo ficarei grato...

Se puder mandar outro exemplo ficarei grato...

1

Essa Macro basica de copiar imagem.

Sub Copiar()
For i = 1 To Sheets("Plan1").Shapes.Count
Sheets("Plan1").Shapes(i).Copy
Sheets("Plan2").Paste
Sheets("Plan2").Shapes(i).Left = Sheets("Plan1").Shapes(i).Left
Sheets("Plan2").Shapes(i).Top = Sheets("Plan1").Shapes(i).Top
Next
End Sub