Getting information from a radio button form

[TychaBrahe]

I have a script. One of the lines of the script current reads

InsertLogo "c:\poet\ebp.jpg"

This passes the name of a graphic to a sub that inserts that graphic into a spreadsheet.

What I want to do is popup a form with two radioboxes. The selection of the radioboxes controls which graphic is inserted into the form. What I have so far is

Dim GraphicChoice
Load frmGraphicChoice
frmGraphicChoice.Show

InsertLogo "c:\poet\" & GraphicChoice
Unload frmGraphicChoice

The popup has this code.

Private Sub CommandButton1_Click()
Unload Me
End Sub


Private Sub OptionButton1_Click()
GraphicChoice = "ebp.jpg"
End Sub


Private Sub OptionButton2_Click()
GraphicChoice = "dsc.jpg"
End Sub

This isn't working. Any suggestions?

 

[Tinbendr]

You are missing the code to insert the picture.

Private Sub CommandButton1_Click()
Dim Pix As Picture
dim MyPath as string

Mypath = "C:\My Documents\"
    Set Pix = ActiveSheet.Pictures.Insert(MyPath & GraphicChoice)
    With Pix
        'Position the picture
        'Change the cell range as required.
        .Top = Range("D10").Top
        .Left = Range("D10").Left
    End With

        Unload Me
End Sub