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

  • Thread starter Thread starter Eric
  • Start date Start date
E

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
 
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.
 
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
 
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.
 
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
 
Back
Top