Condividi:        

Inserimento jpg in una userform

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Inserimento jpg in una userform

Postdi deniel69 » 09/04/15 18:05

Buon giorno a tutti.

Il quesito è il seguente:

In una userform ho inserito un controllo immagine (image1) e con il codice che segue carico le immagini
in base al dato che leggo in una delle combobox, e sino a quì tutto ok.......
Codice: Seleziona tutto
Dim s As String
Dim sPath As String
Dim pic As IPictureDisp

s = ComboBoxCat.Text
sPath = "C:\Mia Cartella\Foto\"
Set pic = LoadPicture(sPath & s & ".jpg")

With Me.Image1
.Picture = pic
End With


Ora il miei problemi sono 2.

1 Come posso far caricare una determinata foto se nella cartella delle foto l'immagine corrispondente
al dato nella combobox non c'è?
Controllo presenza foto in cartella ,ma come?

2 Come posso fare ad adattare le immagini caricate alla dimensione del controllo immagine presente nella userform?

Spero di essere stato chiaro!!!!

Grazie a tutti.
Avatar utente
deniel69
Utente Senior
 
Post: 131
Iscritto il: 17/04/12 22:43

Sponsor
 

Re: Inserimento jpg in una userform

Postdi deniel69 » 09/04/15 18:48

Per quanto riguarda il unto 2, be mi ero dimenticato che esiste la Proprietà PictureSizeMode..... attendo consigli per il punto 1 grazie!
Avatar utente
deniel69
Utente Senior
 
Post: 131
Iscritto il: 17/04/12 22:43

Re: Inserimento jpg in una userform

Postdi Anthony47 » 09/04/15 18:50

Ad esempio:
Codice: Seleziona tutto
s = ComboBoxCat.Text
sPath = "C:\Mia Cartella\Foto\"
If Dir(sPath & s & ".jpg") <> "" Then     
    Me.Image1.Picture = LoadPicture(sPath & s & ".jpg")       'esiste
Else
    'che fare se l' immagine non esiste (tipo caricare una immagine di default)
End If

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inserimento jpg in una userform

Postdi deniel69 » 11/04/15 07:59

E' vero mi sono complicato la vita per nulla...

Codice: Seleziona tutto
s = ComboBoxCat.Text
sPath = "C:\Mia Cartella\Foto\"
If Dir(sPath & s & ".jpg") <> "" Then     
    Me.Image1.Picture = LoadPicture(sPath & s & ".jpg") 'esiste
Else
    s = "nofoto"
    Me.Image1.Picture = LoadPicture(sPath & s & ".jpg") 'che fare se l' immagine non esiste
End If


ottimo e funzionante grazie.......
Avatar utente
deniel69
Utente Senior
 
Post: 131
Iscritto il: 17/04/12 22:43


Torna a Applicazioni Office Windows


Topic correlati a "Inserimento jpg in una userform":


Chi c’è in linea

Visitano il forum: Nessuno e 37 ospiti