Sub Insere_Image()
'
' insere_image Macro
'
'
ActiveSheet.Pictures.Insert( _
"C:\Program Files\Microsoft Office\MEDIA\CAGCAT10\j0302827.jpg").Select
End Sub
Sub Deplace_image()
Range("A1").Select
ActiveSheet.DrawingObjects.Select
Selection.Cut
Range("G12").Select
ActiveSheet.Paste
End Sub