inserting pictures

  • Thread starter Thread starter Kris
  • Start date Start date
K

Kris

Is there a way to limit the size (proportations) of a
picture when inserting it into a worksheet? It comes in
as a full page that then needs to be resized to about 3" x
5" to fit in a cell. Thanks.
 
Can you use a macro? this example will fit the picture within cell C1.

Option Explicit
Sub testme01()

Dim myPict As Picture

With ActiveSheet.Range("c1")
Set myPict = .Parent.Pictures.Insert("C:\mypict.bmp")
myPict.Top = .Top
myPict.Width = .Width
myPict.Height = .Height
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
End With

End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Manually, you can hold the alt-key down when you resize/move the picture. It'll
snap-to the edge of the cell.
 
Back
Top