Pictrues in Excel

H

Hank Hendrix

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
 
J

JE McGimpsey

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
 
D

David McRitchie

Hi Hank,
What is the final disposition of this, would it be a catalog.
Would that catalog be online. Some articles on doing this in MS Word:
http://www.mvps.org/dmcritchie/excel/mailmerg.htm#photos
I think HTML is the best for this, unless you actually want a printed
version.

Add a picture to a comment:
http://www.contextures.com/xlcomments02.html#Picture

There have been some postings on this for Excel, the problem
is that you are at least usually storing a copy in Excel.
I'm not sure if anyone had a solution to that.

// someone else may have answered this already, this got delayed.
 
Top