Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

excel, aiuto su codice per modifica immagini

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

excel, aiuto su codice per modifica immagini

Postdi accio1965 » 14/10/09 22:13

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
AMD Athlon 64x2 dual core P 4600+ 2,40 GHz
windows vista hd sp2
office 2007
accio1965
Utente Junior
 
Post: 52
Iscritto il: 21/08/07 08:39

Sponsor
 

Re: excel, aiuto su codice per modifica immagini

Postdi Anthony47 » 14/10/09 23:21

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: excel, aiuto su codice per modifica immagini

Postdi maxmula » 15/10/09 11:06

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
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34


Torna a Applicazioni Office Windows


Topic correlati a "excel, aiuto su codice per modifica immagini":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti

cron