Sizing photos to one format.

[Guest]

I want to select all of the photos in a worksheet and and resize them to
approximately 4" x 6". I know I can do it photo by photo with format, can I
do all of them together?

 

[Gord Dibben]

F5>Special>Objects>OK to select all pictures.

Run this macro.

Sub Reset_Shapes()
Dim sh As Shape
On Error GoTo whoops
For Each sh In ActiveSheet.Shapes
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Height = 288# ' 4"
.Width = 430# ' 6"
.Rotation = 0#
End With
Next sh
Exit Sub
whoops:
MsgBox "You have not selected any picture(s)"
End Sub


Gord Dibben MS Excel MVP

 

[Earl Kiosterud]

You can select them all, then do the Format - Picture once. To select them, click the
first, then Ctrl-click the remaining ones one at a time. Another way is to turn on the
Select Objects button (white arrow on the drawing toolbar, then lassoo them. Be sure to
turn Select Objects back off, as you can't select cells while it's on.
--
Regards from Virginia Beach,

Earl Kiosterud
www.smokeylake.com

Note: Top-posting has been the norm here.
Some folks prefer bottom-posting.
But if you bottom-post to a reply that's
already top-posted, the thread gets messy.
When in Rome...