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
|