Add picture to textbox

[Chewyhairball]

Hi

I have used the macro recorder to add a picture to a textbox which works. It will run from a button.

However i would like it to allow me to chose the picture file as opposed to it being hard coded into the VBA.

I have tried to integrate Application.getopenfilename into the code but i cant figure it out.

any help would be appreciated

thanks

   ActiveSheet.Shapes.Range(Array("TextBox 4")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .UserPicture "H:\.My Work\Personal Stuff\signature.jpg"
        .TextureTile = msoFalse
        .RotateWithObject = msoTrue
    End With

 

[Chewyhairball]

figured it out

  ActiveSheet.Shapes.Range(Array("TextBox 4")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .UserPicture (Application.GetSaveAsFilename)
        .TextureTile = msoFalse
    End With