[VBA/Word] Plaatje invoegen

[kippy]

Ik zit met het volgende probleem, ik wil via een macro een plaatje invoegen. Maar de selectie van het plaatje moet door de gebruiker gebeuren, op de zelfde mannier als normaal in word ("Insert/Picture/from file"), dus via een brouse venstertje. Maar ik krijg het niet voor elkaar. Ik kan wel plaatjes toevoegen met "Selection.InlineShapes.AddPicture". Maar dan moet ik dus al van te voren vopgeven waar het plaatje staat en hoe het heet.

Ik ben al 6 uur aan het zoeken maar kan gewoon niets vinden.

Heeft iemand dit eerder gedaan of weet iemand een oplossing?

Ik heb net gevonden dat dit waarschijnlijk met een dialog kan, maar nog niet gevonden welke of hoe.

[ Voor 11% gewijzigd door kippy op 12-05-2005 11:47 ]

[kippy]

En in een keer weet je het, "Je wordt conducteur".
Naja ik kwam op een ander forum de oplossing tegen, dus van mij mag er een slotje op.

code:

 Dim objGrafik As Shape
    On Error Resume Next
        With Dialogs(wdDialogInsertPicture)
            If .Display = -1 Then
                ActiveDocument.Bookmarks("NewPage").Select
                Set objGrafik = Selection.InlineShapes.AddPicture(FileName:=.Name, LinktoFile:=False, SaveWithDocument:=True)

            End If
        End With
Set objGrafik = Nothing

Et werkt perfect, kan ik eindelijk een plaatje op een bookmark invoegen.

Dus nu het af is mag er van mij een slotje op, of iemand moet iets nuttig toe te voegen hebben.