Powerpoint - makro

Prøv med:
Sub saet_billede_ind_paa_midten()

Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(Type:=msoFileDialogOpen)
    dlgOpen.Show
    For Each vrtSelectedItem In dlgOpen.SelectedItems
            ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=vrtSelectedItem, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=303, Top:=233, Width:=114, Height:=75).Select
    Next vrtSelectedItem
    Set dlgOpen = Nothing
End Sub

Hvordan får jeg den til at starte ved at trykke på f5

Det virker fint, jeg vil bare gerne have den at bliver afviklet via f5 knappen...

Sostack, vil du ikke lave et svar!

Jeg har ikke lige styr på det med F5-knappen.

//sostack