ActiveX Button for Inserting Picture

[afenrick86]

I am trying to create a button in my spreadsheet that when clicked on will prompt the user to insert an image. I have most of the sheet locked down so I just want them to be able to click on the button and then the button pop up the Insert Picture prompt displays. It doesn't need to select the picture for them, just give them the option to select their file.

I don't care where the image shows up on the sheet because they can move and resize it on the sheet to where it belongs, but I am trying to remove the step of having them click "Insert > Picture" from the ribbon. Is this possible? I'm assuming so, but just have no idea how to do it.

 

[RickXL]

Hi,

Try something like this:

Private Sub CommandButton1_Click()
    Application.CommandBars.ExecuteMso ("PictureInsertFromFile")
End Sub

Regards,

 

[afenrick86]

Thank you so much, RickXL! That is exactly what I was trying to do. Thankfully it is a simple solution.

 

[afenrick86]

One last thing. That works great for the command button, but how can I tell it to position to a certain cell and only be a certain size on the sheet?

I want the image to be inserted in to cell H20 and not extend more than 500 pixels to the right or 500 pixels down, but I also want to constrain the proportions of the image. Is that a macro within the button or within the sheet?