VBA code om snel een foto in te voegen

[Michieldm]

Hallo,

ik ben een VBA programmaatje aan het schrijven om snel afbeeldingen in een word document te plaatsen om zo een cataloog aan te maken.
De afbeeldingen staan op een vaste plaats.

Private Sub CommandButton1_Click()

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
" INCLUDEPICTURE ""U:\\imagesArt\\L\\C109N.jpg"" ", PreserveFormatting:=False
End Sub

Nu wil ik dat de filenaam niet vast vb.: "C109N" is, maar de artikelnaam die wordt ingegeven via een tekstbox.
Hoe kan ik dit programmeren ?

Mvg,

 

[OctaFish]

Allereerst natuurlijk welkom bij HelpMij . Inclusief opmaak met de CODE knop (die vind je als je via Ga geavanceerd een bericht maakt/antwoordt):

Dim sInput As String
    sInput = InputBox("Typ de bestandsnaam", "Bestandsnaam invoeren", "C109N.jpg")
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        " INCLUDEPICTURE ""U:\\imagesArt\\L\\" & sInput & """ ", PreserveFormatting:=False

Overigens heb je met de standaard methode van plaatjes invoegen meer mogelijkheden:

Dim sInput As String
    sInput = InputBox("Typ de bestandsnaam", "Bestandsnaam invoeren", "C109N.jpg")
    ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:= _
        "U:\imagesArt\L\" & sInput, LinkToFile:=True, SaveWithDocument:= _
        False).WrapFormat.Type = wdWrapTight