Inserting picture in cell

[Zahhhaaaa]

Hello again,

I'm using code

Dim filters As String
Dim filename As Variant    
' Define the file selection filters.    
filters = "Image Files,*.bmp;*.tif;*.jpg;*.png,PNG (*.png),*.png,TIFF (*.tif),*.tif,JPG (*.jpg),*.jpg,All Files (*.*),*.*"    
' Get the file name.    
filename = Application.GetOpenFilename( _        
filters, 0, "Select Image", "Take It", False)    
If filename = False Then Exit Sub    
' Insert the picture.    
InsertPicture CStr(filename), Application.Selection
End Sub
' Insert a picture into a cell.
Sub InsertPicture(filename As String, location As Range)
Dim pic As Picture    
Set pic = ActiveSheet.Pictures.Insert(filename)   
pic.Top = location.Top    
pic.Left = location.Left

to add picture in excel, how do I have to change this code that picture appears on range A51:D66??

 

[Tom Urtis]

Instead of your code, try this which works for me based on the result you want:

Sub InsertPicture2()
Dim myPicture As Variant
myPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Select Picture to Import")
If myPicture = False Then Exit Sub
Application.ScreenUpdating = False
Dim iLeft#, iTop#, iWidth#, iHeight#
With Range("A51")
iLeft = .Left
iTop = .Top
.Select
End With
Set myPicture = ActiveSheet.Pictures.Insert(myPicture)
With Range("A51:D66")
iWidth = .Width: iHeight = .Height
End With
With myPicture
.Width = iWidth: .Height = iHeight
End With
Application.ScreenUpdating = True
End Sub

 

[Zahhhaaaa]

Hmmm... it works but it's adding every picture at range a3:d18, I don't know why it does that

Here's code I tried to use;

Private Sub CommandButton4_Click()
Dim filters As String
Dim filename As Variant
' Define the file selection filters.
filters = "Image Files,*.bmp;*.tif;*.jpg;*.png,PNG (*.png),*.png,TIFF (*.tif),*.tif,JPG (*.jpg),*.jpg,All Files (*.*),*.*"
' Get the file name.
filename = Application.GetOpenFilename( _
filters, 0, "Select Image", "Take It", False)
If filename = False Then Exit Sub
' Insert the picture.
InsertPicture CStr(filename), Application.Selection
End Sub
' Insert a picture into a cell.
Sub InsertPicture(filename As String, location As Range)
Dim pic As Picture
With ActiveSheet.Range("A51:D66")
Set pic = ActiveSheet.Pictures.Insert(filename)
pic.Top = location.Top
pic.Left = location.Left
pic.Placement = xlMoveAndSize
End With
End Sub

This works too but it doesn't add image into wanted cell-range, but somewhere a49 and so on.. I'm so close now

 

[Tom Urtis]

If you run my macro as is, it should do for you what it does for me, which is to place a picture on your worksheet and snap it into range A51:D66.

 

[Zahhhaaaa]

I did, but it still adds picture at range a3:d18, I even tried it on a blank sheet and it does same thing there.

 

[Tom Urtis]

I cannot reproduce the behavior you are describing. I just tested my InsertPicture2 macro again with a picture from another folder and had the same successful result, putting a picture into range A51:D66.

 

[Zahhhaaaa]

Hmmm...

Thing is, I'm creating somesort of diary, I have code attached to commandbutton that's hiding/unhiding rows 28:66. I have placed commandbutton "add picture" at cell A49 which appears everytime I unhide rows. I tried to use your code and but it placed image at range A3:d18

could this cause the problem?

 

[Tom Urtis]

Without you having posted such other code I could not begin to guess. If you experiment with whatever you are doing, and again, just mine without any intervention or association with your code, you will eventually uncover the answer.

 

[Zahhhaaaa]

Ok.. hmmm.. Are there any similar codes like previous you gave? User can select item and them add it at specific range

 

[Tom Urtis]

Not from me, it works so it's the only one I use. But you might find other examples with other syntaxes on this or other boards. We've come full circle in that respect with this topic, sorry I cannot assist further. Good luck.