Auswahlfenster anzeigen

[BL1zz4RD]

Hallo ich bins mal wieder,
ich habe wie immer ein Problem:
Ich möchte gerne ein Makro schreiben, bei welchem ich am Anfang ein Auswahlfenster habe, in welchem ich auswählen kann, welche (der dann angezeigten) Grafik ich in ein shape einfügen will. Wie kann man ein solches Auswahlfenster erstellen?
Mfg BL1zz4RD

 

[BL1zz4RD]

Bis ihr mal kommt , da hab ich's schon lange raus:

Sub Picture2()

Dim fd As FileDialog
Dim picture As Variant
Set fd = Application.FileDialog(msoFileDialogFilePicker)


Dim vrtSelectedItem As Variant
With fd
.Show

For Each vrtSelectedItem In .SelectedItems
picture = vrtSelectedItem
Next

Dim shppicture As Word.Shape

Set shppicture = ActiveDocument.Shapes.AddPicture(picture)
End With
With shppicture

.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.width = CentimetersToPoints(1.5)
.left = CentimetersToPoints(5.15)
.top = CentimetersToPoints(6.15)
.Anchor.ShapeRange.Line.Visible = msoFalse

End With



End Sub

mfg Blizzi