VB Code to resize an image

[ateebali]

New<article>

This code I am using but the issue is width of picture, it is not fixing in A34:C34 and stretching it all the way to Column P

Please please help

Sub GetPic()
Dim fNameAndPath As Variant
Dim img As Picture
fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported")
If fNameAndPath = False Then Exit Sub
Set img = ActiveSheet.Pictures.Insert(fNameAndPath)
With img
'Resize Picture to fit in the range....
.Left = ActiveSheet.Range("A34").Left
.Top = ActiveSheet.Range("A34").Top
.Width = ActiveSheet.Range("A34:C34").Width
.Height = ActiveSheet.Range("A34:A48").Height
.Placement = 1
.PrintObject = True
End With
End Sub​

</article>

 

[BarryL]

It worked for me when i switched the width with the height. Can you try that?

Sub GetPic()
Dim fNameAndPath As Variant
Dim img As Picture
fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported")
If fNameAndPath = False Then Exit Sub
Set img = ActiveSheet.Pictures.Insert(fNameAndPath)
With img
'Resize Picture to fit in the range....
.Left = ActiveSheet.Range("A34").Left
.Top = ActiveSheet.Range("A34").Top
.Height = ActiveSheet.Range("A34:A48").Height
.Width = ActiveSheet.Range("A34:C34").Width
.Placement = 1
.PrintObject = True
End With
End Sub

 

[ateebali]

Thanks dear, yes width issue now resolved but now height issue is there like now height is reduced with cell A34:C38
IT SHOULD BE A34:C48