Vba word вставка картинки

Well, first we need to clean up your code a bit, like below. This runs fine on my site — it places the image right at the front of the GraphicImage bookmark, not at the top of the document — but maybe your image is so large it extends to the top?

Dim objWdRange As Word.Range
Dim GraphImage As String
Dim shortString As String
shortString = Range("short").Value '? don't know what this is for
GraphImage = "http://xxx.xxxxx.com/xxx/xxx.png?instrument=Image.png"
wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open("C:Program FilesMy Dropboxdailystrategy.doc")
    Set objWdRange = wrdDoc.Content '? don't know what this is for
    With wrdDoc
        If .Bookmarks.Exists("shortString ") Then
           .Bookmarks("shortString ").Range.Text = shortString
        End If
     If .Bookmarks.Exists("GraphImage") Then
         Dim wrdPic As Word.InlineShape
         Set wrdPic = .Bookmarks("GraphImage").Range.InlineShapes.AddPicture(FileName:=GraphImage, LinkToFile:=False, SaveWithDocument:=True)
         wrdPic.ScaleHeight = 50
         wrdPic.ScaleWidth = 50
     End If
       .SaveAs "c:temptest.doc"
    End With
    wrdDoc.Close
    Set wrdDoc = Nothing
    wrdApp.Quit
    Set wrdApp = Nothing

EDIT: Jan 11, 2010
The above code was changed to include

 If .Bookmarks.Exists("GraphImage") Then
 Dim wrdPic As Word.InlineShape
 Set wrdPic = .Bookmarks("GraphImage").Range.InlineShapes.AddPicture(FileName:=GraphImage, LinkToFile:=False, SaveWithDocument:=True)
    wrdPic.ScaleHeight = 50
    wrdPic.ScaleWidth = 50
 End If

This sets the picture as an object and then uses the scaling methods ScaleHeight and ScaleWidth to make it 50% smaller in both height and width.

In this article I will explain how you can use VBA for word to insert images to a word document using VBA.

–

Insert Single Image:

The code below will insert the image “SP_A0155.jpg” from the location “D:StuffBusinessTemp”:

Sub Example1()
Selection.InlineShapes.AddPicture FileName:= _
    "D:StuffBusinessTempSP_A0155.jpg", LinkToFile:=False, _
    SaveWithDocument:=True
End Sub


Result:

–

Insert Image at Specific Location:

In order to insert the image at a specific location, you will need to move the cursor to that location. There are different methods for moving the cursor around in word using VBA:

• Word VBA, Go to Specific Line
• Word VBA, Move Cursor to End of Line
• Word VBA, Move Cursor to Start of Line
• Word VBA Bookmarks

In this example I will assume we have created a bookmark at the location we want to insert the image. The bookmark was named “bm1”. Assume we have the following text in the word document:

Assume the image is called “SP_A0155.jpg” with the same location as the previous example,  “D:StuffBusinessTemp”. The code below will insert the image at the location of  the bookmark:


Sub Example2()
'move the cursor to the bookmark
Selection.GoTo What:=wdGoToBookmark, Name:="bm1"
'insert the image
Selection.InlineShapes.AddPicture FileName:= _
    "D:StuffBusinessTempSP_A0155.jpg", LinkToFile:=False, _
    SaveWithDocument:=True
End Sub


Result:

–

Insert Image Using Open File Dialog:

You can use open file dialogs to ask the user to select the path of the image to insert. In the example below the user will be asked to select the location of the image to insert:

Sub Example3()
Dim intChoice As Integer
Dim strPath As String

'only allow the user to select one file
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
'make the file dialog visible to the user
intChoice = Application.FileDialog(msoFileDialogOpen).Show
'determine what choice the user made
If intChoice <> 0 Then
    'get the file path selected by the user
    strPath = Application.FileDialog( _
        msoFileDialogOpen).SelectedItems(1)
End If
'move the cursor to the bookmark
Selection.GoTo What:=wdGoToBookmark, Name:="bm1"
'insert the image
Selection.InlineShapes.AddPicture FileName:= _
    strPath, LinkToFile:=False, _
    SaveWithDocument:=True
End Sub


 The open file dialog allows the user to select the image to insert:

–

Insert All Images in a Folder:

In the article below I’ve explained how you can use VBA to list all the files in a folder:

• Find and List all Files and Folders in a Directory

Also in the article below I’ve explained how you can use folder dialogs to ask the user to select a folder:

• VBA Folder Dialogs

by combining the two and using the code explained in the previous sections we get:

Sub example4()
Dim intResult As Integer
Dim strPath As String
Dim strFolderPath As String
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer

'the dialog is displayed to the user
intResult = Application.FileDialog(msoFileDialogFolderPicker).Show
'checks if user has cancled the dialog
If intResult <> 0 Then
    'dispaly message box
    strFolderPath = Application.FileDialog(msoFileDialogFolderPicker _
        ).SelectedItems(1)
    'Create an instance of the FileSystemObject
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'Get the folder object
    Set objFolder = objFSO.GetFolder(strFolderPath)
    i = 1
    'loops through each file in the directory and prints their names and path
    For Each objFile In objFolder.Files
        'get file path
        strPath = objFile.Path
        'insert the image
        Selection.InlineShapes.AddPicture FileName:= _
           strPath, LinkToFile:=False, _
           SaveWithDocument:=True
    Next objFile
End If
End Sub


A folder dialog is displayed asking the user to select the folder with the images in:

After selecting a folder, all the images in that folder are inserted in the word document:

You can download the file and code related to this article from the link below:

• Insert Image.docm

See also:

• Word VBA, Re-Adjust Caption
• Word VBA, Loop Through Images
• Word VBA, Adding Caption to Images
• Word VBA, Removing Picture Captions
• Word VBA, Crop Images

If you need assistance with your code, or you are looking for a VBA programmer to hire feel free to contact me. Also please visit my website  www.software-solutions-online.com

Sub Макрос()

        Dim shape As shape
    Dim FN As String

            ‘ Полное имя файла-рисунка.
    FN = «C:UsersUserDesktopРисунок.png»

        ‘ Вставка неплавающего рисунка и превращение неплавающего рисунка в плавающий.
        ‘ При этом присваиваем рисунку имя ‘shape’ и далее в коде будем обращаться
        ‘ к рисунку по имени ‘shape’.
    Set shape = Selection.InlineShapes.AddPicture(FileName:=FN, LinkToFile:=False, _
        SaveWithDocument:=True, Range:=Selection.Range).ConvertToShape

        ‘ Здесь можете делать нужные действия с рисункам, используя имя ‘shape’.
        ‘ Например, так можно узнать левое положение рисунка.
        ‘ Информация запишется в View — Immediate Window.
    Debug.Print shape.Left

    End Sub

[свернуть]