Sziasztok!

Word alá szeretnék egy rövid VBA kódot, ami a kép beszúrása tallózó ablakot megnyitja.

Ezt találtam a neten, és elvileg meg is nyit egy mappát, de hiába kattintok egy fájlra, nem illeszti be.

Sub Keptalloz()

Dim fDialog As FileDialog, result As Integer
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

fDialog.AllowMultiSelect = True

fDialog.Title = "Select a file"
fDialog.InitialFileName = "C:"

If fDialog.Show = -1 Then
For Each it In fDialog.SelectedItems
Debug.Print it
Next it
End If

End Sub