Inserting a picture option

[styler]

I cant seem to find any help on how to set up a button that when you press it a browse box will pop up, allow the user to select a picture and insert it onto a blank worksheet at the end of a document.

Can anyone help me with this or is it impossible.

Cheers
Si

 

[R_Stephens]

Hi there,

Try the following (paste it into the code for your button). Its very basic, opens up the Open dialog box (limiting you to JPG and BMP files, and inserts what ever file you choose into Sheet2. The picture is currently set to be inserted at the top left of sheet 2, you can change this by selecting a different cell before inserting the image. (change the ActiveSheet.Cells(1, 1).Select line)

Dim filetoopen As String
filetoopen = Application.GetOpenFilename("Picture Files (*.jpg;*.bmp), *.jpg;*.bmp")
If filetoopen <> "False" Then
    Sheets("Sheet2").Activate
    ActiveSheet.Cells(1, 1).Select
    ActiveSheet.Pictures.Insert(filetoopen).Select
End If

Hope this helps

Richard

 

[styler]

That works well, thanks. Is there a way I can tweak the code to generate a worksheet automatically and insert the picture in there? or is that too much.

Regards
Si

 

[R_Stephens]

Hi,

Try the following, it will add a worksheet and put your picture in it.

Dim filetoopen As String
Dim sheetno As Integer
sheetno = ActiveWorkbook.Sheets.Count
filetoopen = Application.GetOpenFilename("Picture Files (*.jpg;*.bmp), *.jpg;*.bmp")
If filetoopen <> "False" Then
    Worksheets.Add after:=Sheets(sheetno)
    ActiveSheet.Cells(1, 1).Select
    ActiveSheet.Pictures.Insert(filetoopen).Select
End If

Hope this helps

Richard

 

[styler]

That is so cool, thanks. It works a treat.