VBA Excel: aprire una finestra di dialogo e settarne il Path

Il passo successivo è aprire una finestra di dialogo.
Incorporo un Button sul foglio e nel codice del Button scrivo il codice essenziale:

Private Sub CommandButton1_Click()
Application.FileDialog(msoFileDialogOpen).Show
End Sub

E' quanto basta per aprire una finestra di dialogo.
Ovviamente, poi bisogna vedere il resto...

---

---

Ecco: voglio prestabilire i Path. Come faccio?

Basta che sia sufficiente sostituire al metodo Show la proprietà InitialFileName e settarla, essendo un tipo stringa...

Private Sub CommandButton1_Click()
Application.FileDialog(msoFileDialogOpen).InitialFileName = "C:\Users"
Application.FileDialog(msoFileDialogOpen).Show
End Sub

E infatti funziona! Mi si apre la casella di dialogo su C:\Utenti.

---

---

Adesso voglio creare una cartella ad hoc, magari nel desktop, e andare su di essa per poterci mettere le mie immagini.

Private Sub CommandButton1_Click()
Application.FileDialog(msoFileDialogOpen).InitialFileName = "C:\Users\Antonello\Desktop\Immagini Excel"
Application.FileDialog(msoFileDialogOpen).Show
End Sub

Perfetto: funziona!

---

---

Adesso ci metto le mie immagini... alcune immagini test, da caricare in un controllo LoadPicture (mi pare si chiamassero così...)