Insert specific picture and add specific Text to it

Syasthe · #1 11-01-2017, 06:32 AM

Hello

I need a macro, which opens a folder, where I have my pictures. Then, depending on which picture I choose, it should insert a certain text. The pictures will be inserted in a table cell and the text should appear in the next table cell.

For better understanding, I need it to insert warning signs in manuals and the description of the warning signs. So the pictures and descriptions are always the same.

To open the Folder, I thought, something like this could work:

Code:

    Dim sPath As String
    Dim sPicPath As String
    Dim lRes As Long
    
    sPicPath = "C:\Temp"
    sPath = Options.DefaultFilePath(path:=wdPicturesPath)
    Options.DefaultFilePath(path:=wdPicturesPath) = sPicPath
    lRes = Application.Dialogs(wdDialogInsertPicture).Show
    Options.DefaultFilePath(path:=wdPicturesPath) = sPath

I found this code and it works, but I don't know how to continue. I'm new to VBA.

Thank you for your time

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Mail Merge Rules - IF, OR Function to Insert Specific text	larry11	Mail Merge	2	06-25-2017 06:15 AM
Insert Text with specific Font Size	Nick70	PowerPoint	1	08-10-2016 09:56 AM
How to insert text at specific location as bold	PRA007	Word VBA	7	01-05-2016 10:12 PM
Macro to Insert text into the beginning on specific paragraphs unless the paragraph is blank	caboy	Word VBA	2	04-01-2015 07:00 AM
how to create menu shortcut to insert specific picture	msworddave	Word	1	05-08-2013 02:00 AM