LoadPicture.Value & ".gif" e altre estenzioni

E' possibile fare in modo che il comando contenuto all'interno di una userform:

Image1.Picture = LoadPicture("C:\Foto\" & TextBox33.Value & ".gif")


Cerchi le foto oltre che nel formato .GIF (enunciato), anche con le altre estenzioni più comuni JPG BMP PNG TIFF

Grazie

Ciao qvlenzi, modifica il tuo codice in

Image1.Picture = LoadPicture("C:\Foto\" & TextBox33.Value & "." & *)

Prova e fai sapere, ciao By Sal

Grazie By Sal ho modificato il file sostituendo con l'istruzione

Image1.Picture = LoadPicture("C:\Foto\" & TextBox33.Value & "." & *)

ma il VBA segnala l'errore di compilazione e sintassi.
Saluti

Ciao non hai detto cosa segnava, per l'errore, prova questa variazione.

Image1.Picture = LoadPicture("C:\Foto\" & TextBox33.Value & ".*")

nel caso non funziona fammi sapere cosa evidenzia.

Ciao By Sal

Image1.Picture = LoadPicture("C:\Foto\" & TextBox33.Value & "." & *)

L'errore era segnalato durante la scrittura in VBA del comando e ribadito con la MSG BOX VISUAL BASIC "errore di sintassi ecc ecc"

Con la nuova istruzione

Image1.Picture = LoadPicture("C:\Foto\" & TextBox33.Value & ".*")

non funziona comunque e da errore di percorso.

Allego il file dove nelle proprietà dell'userform, ho inserito il commento dell'operazione che vorrei fosse eseguita.

Nell'elaborato allegato, scopiazzato, la textBox che carica il collegamento alla foto è la 7 e non la 33, il percorso per trovare il file è
"C:\Documents and Settings\utente\Documenti\Immagini\" & TextBox7.Value & ".gif")

Vorrei che oltre a foto in formato GIF, carichi le altre estenzioni immagine tiopo JPG BMP ecc ecc.
Spero di essere stato chiaro. Grazie per l'aiuto.

qvlenzi, 01/11/2010 17.10:

---

Nell'elaborato allegato, scopiazzato, la textBox che carica il collegamento alla foto è la 7 e non la 33, il percorso per trovare il file è
"C:\Documents and Settings\utente\Documenti\Immagini\" & TextBox7.Value & ".gif")

Vorrei che oltre a foto in formato GIF, carichi le altre estenzioni immagine tiopo JPG BMP ecc ecc.
Spero di essere stato chiaro. Grazie per l'aiuto.

---

Non capisco il problema.
Nella colonna E del foglio Nomi metti il nome dell'immagine completa di suffisso (foto1.jpg o foto5.gif etc)

("C:\Documents and Settings\utente\Documenti\Immagini\" & TextBox7.Value)

Bye!
Scossa

Grazie Scossa vr
funziona a meraviglia, non bastava eliminare da Value .gif, ho dovuto ricreare i collegamenti nella colonna E, altrimenti non trovava il percorso.