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.

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Eric" wrote:

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

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" wrote:

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.

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Eric" wrote:

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

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.


--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Eric" wrote:

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" wrote:

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.

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Eric" wrote:

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

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" wrote:

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.


--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Eric" wrote:

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" wrote:

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.

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Eric" wrote:

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

ok, send me an email:

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Eric" wrote:

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" wrote:

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.


--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Eric" wrote:

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" wrote:

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.

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Eric" wrote:

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