Richard,

Got this via the macro recorder and a bit of tweaking

ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Bob\My Documents\My
Pictures\classic_beetle.jpg"). _
Select
With Selection.ShapeRange
.ScaleWidth 0.76, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.77, msoFalse, msoScaleFromTopLeft
.Left = ActiveSheet.Columns("B").Left
.Top = ActiveSheet.Rows(3).Top
End With


--

HTH

RP

"wraithlead" wrote in message
...

Need assistance. I have the file paths. need to import up to 15 photos
saved as jpegs. if i could get them to be a certain size, that would be
a good bonus. Could i use:

object.Picture = LoadPicture( pathname )

?

I'm still kinda new...

Thanks,

Richard


--
wraithlead
------------------------------------------------------------------------
wraithlead's Profile:
http://www.excelforum.com/member.php...o&userid=11578
View this thread: http://www.excelforum.com/showthread...hreadid=268598