User image attached to a record

[gemcgraw]

I am on a rather unique project in my spare time- I am assisting an elder lady who loves her laptop and surfing the online resources. She owns a small used book store and would like to have a simple Excel spreadsheet where she can recall a book title, see a scanned image of the cover and know what to look for on the shelf. I envision writing a User form for more simplicity and ease of use. With this form, she can add new titles, assign a shelf location, and other information. I'm snagged on the best way it incorporate the image that she will be scanning. I need a way for her to point the image control to the folder where she will be storing the images scanned.

Would I set a blank, unassigned image control on the form, then when the Book is selected from a Combobox the link/path tied to the image would populate the imagine control? This much makes sense to me; however, I'm hung up on how to create the "Attach file" functionality for her to operate. She will need to navigate to the image, select it, then the path is converted to a link and stored in the spreadsheet. I haven't even begun to code for this until I get a good concept nailed down. Any brainstorming and suggestions would be appreciated.

 

[Norie]

Perhaps you could use a button to open a dialog to allow the user to select a thumbnail of the image.

Dim fd As FileDialog
Dim strPictureLink As String

    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd
        .AllowMultiSelect = False
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        .InitialView = msoFileDialogViewThumbnail
        .InitialFileName = "C:\Users\Norie\Pictures\"

        If .Show = -1 Then
            strPictureLink = .SelectedItems(1)
        End If

    End With

 

[gemcgraw]

Thanks, Norie! This is perfect. I just couldn't get my head wrapped around this segment of the project. I do appreciate your help.

Perhaps you could use a button to open a dialog to allow the user to select a thumbnail of the image.

Dim fd As FileDialog
Dim strPictureLink As String

    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd
        .AllowMultiSelect = False
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        .InitialView = msoFileDialogViewThumbnail
        .InitialFileName = "C:\Users\Norie\Pictures\"

        If .Show = -1 Then
            strPictureLink = .SelectedItems(1)
        End If

    End With