View Single Post
  #2   Report Post  
JE McGimpsey
 
Posts: n/a
Default

one way:

Insert the image then run this macro. Adjust the cell reference as
desired:

Public Sub PositionAndScalePic()
Dim rArea As Range
Dim dFactor As Double
Set rArea = ActiveSheet.Range("J5").MergeArea
With ActiveSheet.Pictures
With .Item(.Count)
.Top = rArea.Top
.Left = rArea.Left
dFactor = rArea.Width / .Width
.Width = rArea.Width
.Height = .Height * dFactor
If .Height rArea.Height Then
dFactor = rArea.Height / .Height
.Height = rArea.Height
.Width = .Width * dFactor
End If
.Placement = xlMoveAndSize
End With
End With
End Sub



In article ,
"dave" wrote:

can anyone tell me how to insert an image into excel so it appears in the
same place every time also so it resizes to the merged cells i have created