Multiselect bei GetOpenFilename
15.12.2020 21:11:18
Spitzbube
ich möchte gerne durch ein Excel Makro ein Bild an einer Word-Textmarke einfügen. Das klappt auch gut, allerdings kann ich nur eine Datei auswählen. Gerne würde ich gerne mehrere Bilder auf einmal auswählen, die hintereinander eingefügt werden. Leider bekomme ich mit dem Befehl
GetOpenFilename
.Multiselect
den Laufzeitfehler Nummer 438 "Objekt unterstützt diese Eigenschaft oder Methode nicht". Hier der relevante Ausschnitt:
Sub InsertShape ()
'hier kommt der relevante Ausschnitt
With objApp
Do While c = False
If MsgBox("Protokolle hinzufügen?", vbYesNo) = vbYes Then
Set Bkmrk = objDocument.Bookmarks("Protokolle").Range
Bkmrk.Select
'objDocument.Bookmarks("Protokolle").Range.Select
'objApp.Selection.InlineShapes.AddPicture Filename:=Application.GetOpenFilename
Bkmrk.InlineShapes.AddPicture Filename:=Application.GetOpenFilename
.MultiSelect = True ' hier kommt der Fehler
objDocument.Bookmarks.Add "Protokolle", Bkmrk
Else
c = True
End If
Loop
'den Rest erspare ich Euch
End Sub
Hat jemand eine Idee, wie die Mehrfachauswahl funktionieren könnte?Danke im Voraus :)