Word VBA - Datei als Objekt in eine Tabelle einfügen

[Excelmania]

Hallo.

Ich habe ein Word Formular entwickelt. ich würde gerne über einen Commandbutton in der linken Spalte einer Tabelle dem Benutzer anbieten wollen, dass er eine oder mehrere Dateien als Objekt in die rechte Spalte der Tabelle einfügen kann.

Aktuell bekomme ich nur hin, dass er in der button gelöscht wird und eine Datei eingefügt wird. Zudem wird nicht das richtige Dateisymbol angezeigt.

Weiß jemand, wie das verbessern kann:

Private Sub CMD_DATEI_EINFÜGEN_Click()

  Dim dlgFilePicker As FileDialog
  Set dlgFilePicker = _
    Application.FileDialog(FileDialogType:= _
    msoFileDialogFilePicker)
  '
  With dlgFilePicker
    'Vorschau
    .InitialView = msoFileDialogViewPreview
    'alle Dteien
    .InitialFileName = "*.*"
    'nur eine Auswahl möglich
    .AllowMultiSelect = False
    'Abbrechen ?
    If .Show = 0 Then Exit Sub
  End With
 
  'Datei in Spalte rechts einfügen
    Selection.EndKey Unit:=wdRow, Extend:=wdMove
 
  Selection.InlineShapes.AddPicture FileName:= _
    dlgFilePicker.SelectedItems(1), _
    LinkToFile:=False, _
    SaveWithDocument:=True
End Sub

Ergänzung das einfügen habe ich hinbekommen.
Aber das richtige Symbol wird immer noch nicht geladen

 

[cumulonimbus8]

Datei-als-Objekt, Inline-Shape..? Für mich sind das 2 Paar Schuhe.
Aber das mag ich mich irren.
CN8