Salve a tutti,
all'avvio di un form dovrei far comparire l'immagine presente all'interno del riempimento di un pulsante. Il fatto è che l'immagine non ha un percorso fisso ma lo si può scegliere attraverso msoFileDialogOpen. Posto il codice per essere più chiaro:
codice:
Me.Hide
Dim Selezionato As Variant
With Application.FileDialog(msoFileDialogOpen) 'apre la finestra di dialogo
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Immagini", "*.JPG, *.JPEG,*.BMP, *.GIF"
.Title = "Seleziona la fotografia del tecnico in esame"
.Show
For Each Selezionato In .SelectedItems 'per ogni file selezionato
Image1.Picture = LoadPicture(Selezionato) 'carica l'immagine
ActiveSheet.Shapes("Rettangolo 2").Fill.UserPicture (Selezionato)
Me.Show
Next
End With
in pratica attraverso il codice c'ho postato si sceglie l'immagine relativa la quale va come riempimeto del rettangolo 2 sul database (Excel '07) e come picture della image1 sul form.
Quindi dovrei fare in modo che all'apertura dello stesso form il riempimento di rettangolo 2 vada instanteneamente a colmare l'image1.picture. Il problema lo trovo in quanto l'immagine non avendo sempre un percorso predefinito, non so come "dirgli" di caricare all'avvio il riempimento del rettangolo 2. Difatti sia image.picture che il .Fill.UserPicture devono presentare un percorso dell'immagine per carica la stessa.
Grazie per eventuali risposte.