Macro to browse for and insert picture into word doc?

Question

4.00/5 (1 vote)

See more:

I am trying to write some code that upon pushing a command button, it prompts the user for the number of pics they want to insert into a word doc and then initiates a loop that opens a browse window to let the user choose each picture. The issue I am having is that after the user chooses the picture, Word gives me the error “Run-time error ‘5174’. This file could not be found. (-1).” And then subsequently tries to open the .jpg or .bmp file in a separate word file.

What is wrong in the code below that will not allow the browsed-for picture to be inserted into my word document?

Private Sub CommandButton5_Click()
'Adds pictures to document
Dim Count1 As Integer
Dim PictureNow As String
Dim InsertPics1 As Integer

InsertPics1 = InputBox("Question", _
"InsertPicsTitle", "How many pictures would you like to add?")
While Count1 < InsertPics1
    Selection.GoTo Name:="Check82"
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
        
    Selection.InsertFile FileName:=Dialogs(wdDialogFileOpen).Show
   
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
        
    Count1 = Count1 + 1
Wend
End Sub

Aside from the code above I have also tested the code

Selection.InlineShapes.AddPicture FileName:="N:\Test_Pic.bmp", _
        LinkToFile:=False, SaveWithDocument:=True

Which works fine if I want to insert a pre-determined picture, but this does not allow the user to browse to find that picture and I have not figured out how to incorporate the “browse” function into the above code.

Any help to accomplish my goal would be appreciated.
Thanks!

Posted 23-Jun-11 1:45am

Engineer0603

Updated 23-Jun-11 1:47am

Prerak Patel

v2

Add a Solution

Comments

Engineer0603 24-Jun-11 9:21am

Uros, that was perfect, thank you!

However....I ran into another snag once this code worked and feel ridiculous that I cannot solve it.

When the CommandButton5_Click sub is activated, it clears all forms and check boxes earlier up in the document that were already filled out. How do I keep these forms and checks boxes from being cleared?

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Uros Calakovic · Answer 1 · 2011-06-23T05:53:00

wdDialogFileOpen is used to open a Word document so when you use it to select an image it opens it in a new document. You can use Application.FileDialog to display a FileDialog[^] :

Private Sub CommandButton5_Click()
'Adds pictures to document
Dim Count1 As Integer
Dim PictureNow As String
Dim InsertPics1 As Integer
Dim dlgOpen As FileDialog
InsertPics1 = InputBox("Question", _
    "InsertPicsTitle", _
    "How many pictures would you like to add?")
Set dlgOpen = Application.FileDialog( _
    FileDialogType:=msoFileDialogFilePicker)
dlgOpen.AllowMultiSelect = False
While Count1 < InsertPics1
    
    Selection.GoTo Name:="Check82"
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    
    If dlgOpen.Show = -1 Then
        Selection.InlineShapes.AddPicture _
            FileName:=dlgOpen.SelectedItems(1)
    End If
   
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
        
    Count1 = Count1 + 1
    
Wend
End Sub