Reset Size of pasted thumbnails through VBA

[Orada]

This should be simple but I'm not seeing it and even the Macro recorder doesn't give me a long winded solution.

I have information which has been pasted into a worksheet and column 2 contains essentially thumbnail images default size 1.96cm x 1.43cm. The problem is that the aspect ratio of some of these thumbnails has been distorted due to the sizing of adjacent pasted columns.

What I would like to achieve through VBA is - Select all Images > Format Picture > Size > Reset.

Thanks in advance.

 

[Domenic]

Try...

[color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Sub[/color] ResetImagesToOriginalSize()

    [color=darkblue]Dim[/color] oShape [color=darkblue]As[/color] Shape
    
    [color=darkblue]For[/color] [color=darkblue]Each[/color] oShape [color=darkblue]In[/color] ActiveSheet.Shapes
        [color=darkblue]If[/color] oShape.Type = msoPicture [color=darkblue]Then[/color]
            oShape.ScaleWidth 1, msoTrue, msoScaleFromTopLeft
            oShape.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color]
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Hope this helps!

 

[Orada]

Try...

[color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Sub[/color] ResetImagesToOriginalSize()

    [color=darkblue]Dim[/color] oShape [color=darkblue]As[/color] Shape
    
    [color=darkblue]For[/color] [color=darkblue]Each[/color] oShape [color=darkblue]In[/color] ActiveSheet.Shapes
        [color=darkblue]If[/color] oShape.Type = msoPicture [color=darkblue]Then[/color]
            oShape.ScaleWidth 1, msoTrue, msoScaleFromTopLeft
            oShape.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color]
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Hope this helps!

Perfect Domenic, thank you so much, now to drive to another learning difficulty