Ajouter une Image à un Document Word et de l'Échelle à l'aide de VBA

comment puis-je ajouter par programmation d'une image à l'aide de VBA à un document word.

J'ai essayé d'ajouter un signet dans le document word et essayé d'ajouter l'image, mais il ajoute toujours au top de la forme plutôt que le signet de la zone. Dois-je persévérer avec le signet ou est-il une autre façon d'ajouter l'image?

Voir mon code ci-dessous:

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = CreateObject("Word.Application")

Dim objWdRange As Word.Range
Dim GraphImage As String
Dim shortString As String 

shortString = Range("short").Value

GraphImage = "http://xxx.xxxxx.com/xxx/xxx.png?instrument=Image.png"

wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\Program Files\My Dropbox\dailystrategy.doc")

Set objWdRange = wrdDoc.Content

With wrdDoc


    If wrdDoc.Bookmarks.Exists("shortString ") Then
        wrdDoc.Bookmarks("shortString ").Range.Text = shortString 
    End If      

     If wrdDoc.Bookmarks.Exists("GraphImage") Then
        wrdDoc.Bookmarks("GraphImage").Range.InlineShapes.AddPicture Filename:=GraphImage, LinkToFile:=False, SaveWithDocument:=True
     End If


    wrdDoc.SaveAs "c:\temp\test.doc"

  ' close the document
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End With

ce qui concerne

OriginalL'auteur Kojof | 2010-01-08

  1. 8

    Bien, d'abord, nous avons besoin de nettoyer votre code un peu, comme ci-dessous. Cela fonctionne très bien sur mon site, il met l'image à droite à l'avant de la GraphicImage signet, pas en haut du document - mais peut-être que votre image est ainsi grande, elle s'étend vers le haut?

    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 Files\My Dropbox\dailystrategy.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:\temp\test.doc"
    End With
    wrdDoc.Close
    Set wrdDoc = Nothing
    wrdApp.Quit
    Set wrdApp = Nothing

    EDIT: Jan 11, 2010
    Le code ci-dessus a été modifiée pour inclure

     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

    Ce définit l'image comme un objet et utilise ensuite la mise à l'échelle des méthodes ScaleHeight et ScaleWidth à faire, c'est 50% plus petit en hauteur et en largeur.

    salut, merci pour ce que vous êtes de droite, l'image est insérée dans le bon endroit, mais c'est dimensons sont trop grandes pour la page. Est-il de toute façon de fixer les dimensions de l'image par programmation à l'aide de VBA?
    Oui, vous le pouvez. Vous pouvez utiliser soit la Hauteur/Largeur propriétés d'une Forme fixe, ou vous pouvez utiliser Hauteur/Largeur que j'ai mis à jour le code ci-dessus avec.
    merci pour cette très apprécié.

    OriginalL'auteur Todd Main