Microsoft Office Forums - View Single Post - [Solved] Insert a picture from userform into bookmark in word document

gmayor · 02-15-2022, 10:14 PM

You need to save the image from the userform as a temporary file then insert that temporary file at the bookmark.

Call the image using the following sub as follows:

Code:

UserformImageToBM "Proposal", Image1.Picture

Code:

Private Sub UserFormImageToBM(strbmName As String, oImage As Object)
'Graham Mayor - http://www.gmayor.com
'UserformImageToBM "bookmarkName", Image1.Picture
Dim oRng As Range
Dim TempFile As String
Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    TempFile = Replace(FSO.GetTempName, "tmp", "bmp")
    SavePicture oImage, TempFile
    With ActiveDocument
        On Error GoTo lbl_Exit
        Set oRng = .Bookmarks(strbmName).Range
        oRng.Text = ""
        oRng.InlineShapes.AddPicture _
                FileName:=TempFile, LinkToFile:=False, _
                SaveWithDocument:=True
        oRng.End = oRng.End + 1
        oRng.Bookmarks.Add strbmName
    End With
    Kill TempFile
lbl_Exit:
    Set FSO = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub