One way:

Select the picture or pictures,

Public Sub FormatPicture()
Dim i As Long
With Selection
For i = 1 To .Count
If TypeName(.Item(i)) = "Picture" Then
With .Item(i).ShapeRange
.LockAspectRatio = msoTrue
.Width = Application.InchesToPoints(2)
End With
End If
Next i
End With
End Sub


In article ,
"Hank Hendrix" wrote:

I insert a lot of pictures (jpg) into spreadsheets.
How can I have all pictures that I insert have the same 2" wide format.

I don't want to convert the picture unless it is used in excel.

At present I have to format each picture and resize it after it is inserted.
Is there a shortcut for this?
Thanks
Hank