Use a Userform button to insert image in worksheet

Hi Guys.

I have a user form that contains a number of buttons, each showing a different picture. I want to click on one of these buttons, which will then close the userform and attach the image to the cursor so i can then click where I want to place the image in the worksheet.
After clicking the location I want it to automatically open another userform that I will use to input data relevant to the picture.

I currently have it that when I click on the button it places the image on the selected cell, but I only want to select the location after I click the button

Any ideas?

Barry

Since you have full path to image file...

May be set public variable to hold image path. Set it when button is clicked.

Then use Worksheet_SelectionChange event, check if variable length > 0, if it is, insert image using variable, and using target position to adjust location.

So something like...

In standard module:

Public myImgPath As String
Sub LaunchShapes()
frmShapes.Show
End Sub

In Userform module:

Private Sub CommandButton1_Click()

myImgPath = "C:\FolderPath\Saved Pictures\test.JPG"
Unload Me

End Sub

In ThisWorkbook module.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim p

On Error GoTo ErrHandle:
If Len(myImgPath) > 0 Then
    Set p = Target.Parent.Pictures.Insert(myImgPath)
    p.Top = Target.Top
    p.Left = Target.Left
End If

ErrHandle:
    myImgPath = ""
End Sub

You might also hide the form, use Application.Inputbox(type:=8) to allow selecting a cell and then put the image there before finally unloading.