- Codice: Seleziona tutto
Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("P50")
Case 0 To 9
ph = "0.jpg"
Case 10 To 19
ph = "10.jpg"
Case 20 To 29
ph = "20.jpg"
Case 30 To 39
ph = "30.jpg"
Case 40 To 49
ph = "40.jpg"
Case 50 To 59
ph = "50.jpg"
Case 60 To 69
ph = "60.jpg"
Case 70 To 79
ph = "70.jpg"
Case 80 To 89
ph = "80.jpg"
Case 90 To 100
ph = "90.jpg"
End Select
Perc = "O:\documenti\esempio\"
ActiveSheet.Image1.Picture = LoadPicture(Perc & ph)
End Sub
ora il problema è questo:
al momento dell'apertura le immagini si trovano effettivamente nella cartella indicata nel percorso ma al momento del salvataggio (ed archiviazione) la cartella e l'intero percorso sarà diverso e quindi il codice perderà il collegamento,
quindi vorrei introdurre anche un secondo percorso dove andare a cercare le immagini qualcosa del genere se il percorso "O:\documenti\esempio\" non è disponibile allora perc = "altro percorso da indicare all'esigenza"spero di essermi spiegato
grazie