Veja em viewtopic.php?f=20&t=18499&hilit=+%2Aimage%2A se lhe auxilia

Na verdade esse redefinir faz voltar a medida padrão da imagem. Algumas imagens as vezes se dimensionam sozinhas quando é dado zoom, ocultado e exibido linhas, colunas, etc... mesmo quando imagem está bloqueada para alterar largura e altura, mover, etc... Clicando nesse redefinir as imagens voltam a medida padrão. Apartir desse link que me passou acredito que é possivel alterar as medidas, mas será que tem a opção de apenas voltar ao padrão? Default?

Seria assim:

Sub Macro2()
For Each sh In ActiveSheet.Shapes
MsgBox sh.Name 'Ver nome da imagem
ActiveSheet.Shapes.Range(Array(sh.Name)).Select
With Selection.ShapeRange
.ScaleHeight 1#, msoTrue, msoScaleFromTopLeft
.ScaleWidth 1#, msoTrue, msoScaleFromTopLeft
End With
Next
End Sub