F5SpecialObjectsOK 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

On Tue, 30 Oct 2007 16:30:00 -0700, askog
wrote:

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?