excel, aiuto su codice per modifica immagini

[accio1965]

in un file utilizzo questo codice per visualizzare immagini

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

[Anthony47]

Non ho capito perche' ti preoccupa dove viene salvato il file xls, giacche' dai il path completo dove si trovano i file jpg.

Comunque, con qualcosa del genere puoi scegliere la directory su cui lavorare:

Codice: Seleziona tutto

With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
Perc = .SelectedItems(1)&"\"
End With


Se vuoi prima verificare se nel tuo Perc ci siano le immagini, potresti usare:

Codice: Seleziona tutto

If=Dir(Perc & "0.jpg") = "" then
'le istruzioni di prima
End if


Ciao.

[maxmula]

Puoi anche risolvere incorporando nel tuo foglio un controllo ListIndex.

Si fa così:
- Visualizza la toolbar "Strumenti di controllo" (Menu Visualizza/BArre degli Strumenti)
- Seleziona l'ultima icona in basso a destra (Altri Controlli)
- Scorri la lista fino a trovare "Microsoft ImageList control 6.0"
- click+Trascina il mouse sul foglio come per disegnare un normale controllo immagine o pulsante. Ti compare un riquadro con un po' di immagini impilate.
- Clicca il controllo col destro e seleziona proprietà. Inserisci queste:

(Name) ......... LISTA
Enabled ........ True

- Doppio click su Personalizzate; definisci le dimensioni che desideri e poi passa al tab "Images"
- Qui puoi caricare le tue immagini. Se ti serve averle in un orine particolare ti conviene caricarle una per volta.

Per aggiornare la tua immagine puoi fare così:

Codice: Seleziona tutto

Sub MOSTRA_IMMAGINI()
    'Routine di esempio,  da eseguire in modalità stap-by-step (F8)
    For K = 1 To LISTA.ListImages.Count
        Image1.Picture = LISTA.ListImages.Item(K).Picture
    Next
End Sub


Ciao!
MAx