User Form for view, inserting or changing a photo in a cell

[bisel]

Hello All,

I am a novice at writing efficient VBA code and hoping someone might be able to help me.

I have a workbook and would like to use the Excel capability to insert an image into a cell by having the user select an image located on their computer's hard drive somewhere. I like the idea of inserting an image into a cell because of the capability to retain sort order and filtering.

My concept is that the user would click to select a cell on the sheet and then give them the option to edit the image associated with that cell. If the user selects that option to edit the image, then have a user form open. Probably call the user form "Image Editor" or something like that. When the form initializes, I want the form to look like something like this ...

The User Form will initialize and show a preview of the current image associated with the cell that the user selects. The image will be in the cell not overlayed over the cell. Of course, if there is no image in the cell, merely show a blank. I then would think of having two control buttons to remove or replace the current image. My thought is that if there is no image in the cell, then the replace button would merely add one from a folder that the user would select. Lastly, the close the button would merely close the user form.

I know how to create simple user forms and understand the concept of initialize and activate events. Closing the form is no problem for me. What I need assistance with is how to create the VBA code so that when the user selects the component on the sheet, the form would initialize and show the preview of the currently associated image (if there is one).

Has anyone done anything like this? Can you point me in the right direction?

Thanks,

Steve

 

[Artik]

I focused too much on the NdNoviceHlp problem without reading the post with understanding. Without having a 365 version, you cannot use the InsertPictureInCell method. So you only need such code to insert an image into a cell (as long as you have 365):

Sub BBB()
    Dim wks As Worksheet
    Dim is365 As Boolean

    On Error Resume Next
    is365 = (Application.Evaluate("=LAMBDA(x, x^2)(2)") = 4)
    On Error GoTo 0

    If is365 Then
        Set wks = ActiveSheet

        With wks.Range("D2")
            .InsertPictureInCell "D:\Pictures\MyPicture.jpg"
        End With
    Else
        MsgBox "Unfortunately, you must have an Office 365 subscription", vbExclamation
    End If

End Sub

Artik