Hi
I've got quite a few excel files to redo, each with hundreds of shapes in them. Some of them are pictures, some of them are standard shapes like square, diamond etc. Pictures are a mess and I would like to resize all of them to same size (which they should be in the beginning)
Dim ws As Worksheet
Dim shp As Shape
For Each ws In ActiveWorkbook.workshets
For Each shp In ws.Shapes
shp.Width = 2
shp.Height = 2
Next shp
Next ws
it will change the size of all shapes, including standard ones. How do I limit it to pictures only?
Thanks for help
I've got quite a few excel files to redo, each with hundreds of shapes in them. Some of them are pictures, some of them are standard shapes like square, diamond etc. Pictures are a mess and I would like to resize all of them to same size (which they should be in the beginning)
Dim ws As Worksheet
Dim shp As Shape
For Each ws In ActiveWorkbook.workshets
For Each shp In ws.Shapes
shp.Width = 2
shp.Height = 2
Next shp
Next ws
it will change the size of all shapes, including standard ones. How do I limit it to pictures only?
Thanks for help