[excel] inserimento immagini su controllo activex

[paolociacci]

salve
devo inserire diverse immagini sul un foglio excel in base al valore che assumera la cella Y1
le immagini saranno nella directory picture e si chiameranno 101.jpg 102.jpg ossia tutti i valori possibili che potra assumere la cella Y1
tutte le volte che la cella cambiera valore dovra aessere caricata una nuova immagine e enl caso di immagine mancante un immagine di defaul di errore (es error.jpg)
ho creato il controllo activex immagine ma non conosco la macro per caricare la foto
grazie x l'aiuto

[borile500]

Originariamente inviato da paolociacci
salve
devo inserire diverse immagini sul un foglio excel in base al valore che assumera la cella Y1
le immagini saranno nella directory picture e si chiameranno 101.jpg 102.jpg ossia tutti i valori possibili che potra assumere la cella Y1
tutte le volte che la cella cambiera valore dovra aessere caricata una nuova immagine e enl caso di immagine mancante un immagine di defaul di errore (es error.jpg)
ho creato il controllo activex immagine ma non conosco la macro per caricare la foto
grazie x l'aiuto

up

[paolociacci]

prova cosi

Private Sub Worksheet_Change(ByVal Target As Range)

Dim sPath As String
Dim sExt As String
Dim sTotal As String
Dim rng As String

On Error Goto ERR

sPath = '"L:\Documenti\esempio"
rng = Range("A1").Value
Goto XIT

ERR:
rng = "Error"

XIT:
sExt = ".jpg"
sTotal = sPath & rng & sExt
If rng = "" Then rng = "Error"
Image1.Picture = LoadPicture(sTotal)

End Sub

ti ho inviato una mail
ciao