Hi
Try this code originally from Tom Ogilvy. Replace cell B9 with the cell you
want to use.
Range("B9").MergeArea.Select
Set pic = ActiveSheet.Pictures.Insert("C:\Pictures\Sample.jp g")
pic.Height = Range("B9").MergeArea.Height
pic.Width = Range("B9").MergeArea.Width
HTH
Ken
|