How to edit the code to fit image within specific cell?

[Eric]

Does anyone have any suggestions on how to edit the following code to fit
image within specific cell?

I would like to locate the image cover the cell from B10 (left top corner)
to C 13 ( right bottom corner),
Does anyone have any suggestions on how to resize the and fit within
specific cells?
Thanks in advance for any suggestions
Eric

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myPic As Object
If Target.Address = "$A$1" Then
On Error Resume Next
Set myPic = ActiveSheet.Pictures(1)
On Error GoTo 0
If Not myPic Is Nothing Then myPic.Delete

If Range("A1") = 1 Then
ActiveSheet.Pictures.Insert ("C:\TempPic.JPG")
Else
ActiveSheet.Pictures.Insert ("C:\TempPic2.JPG")
End If

End If
End Sub

 

[ryguy7272]

This will change the size of any image to fit in Column B:
Public Sub Zoom_Pic()
With Worksheets("Picture to Column").Shapes("Picture 1")
.Left = Range("B:B").Left
.Width = Range("B:B").Width
End With
End Sub

You will have to rename the sheet and the picture.

 

[Eric]

Thank you very much for suggestions
Could you please tell what I should replace for "Picture 1" for specific
image?
I have try .Shapes("C:\TempPic.JPG"), but does not work.
Thank you very much for any suggestions
Eric

 

[ryguy7272]

Properties must be set to 'move but don't size with cells'. The picture must
be named, like naming a range (located in the upper left hand corner of the
sheet). Try that and see how you get along.

 

[Eric]

Thank you for your reply
Could you please show me any example? I don't understand what properties you
are talking about, and don't know how to code it.
Thank you very much for any suggestions
Eric

 

[ryguy7272]

ok, send me an email:
(e-mail address removed)