inserimento immagini

[nicola_na78]

Buona sera a tutti,
avrei bisogno del vostro aiuto per risolvere un problema:
ho una cartella immagini con dentro un insieme di file JPG, tramite la seguente macro inserisco nella colonna "A" i nomi dei file JPG presenti nella cartella:

Codice: Seleziona tutto

Private Sub importa_nomi()
Dim MyPath, MioFile

Sheets("Foglio1").Range("A1").Select
MyPath = ActiveSheet.Cells(1, 1)
MioFile = "C:\Users\utente\Desktop\Zoom" & "\" & "*.*"
MyName = Dir(MioFile, vbDirectory)
rg = 1
Do While MyName <> ""
If MyName = ".." Then GoTo lab1
rg = rg + 1
lab1: MyName = Dir
ActiveSheet.Cells(rg, 1) = MyName
Loop

End Sub

volevo sapere se era possibile nella colonna "B" inserire l'immagine appartenente al nome della colonna "A"

es. nella colonna "A" ho il nome del file 004010001.jpg nella colonna B vorrei visualizzare l'immagine e cosi' per tutte le immagini presenti nella cartella immagini

Vi ringrazio anticipatamente

Nicola_na

[ricky53]

Ciao,
l'argomento è stato trattato diverse volte: hai fatto una ricerca nel forum?

Appena posso ti invierò dei link alle discussioni sull'argomento, tu però fai una ricerca e troverai sicuramente qualcosa di utile magari prima di me ...

Mi vengono in mente due possibilità:
A) le immagini sono inserite nel file excel ma in modo che NON siano visibili e si rendono visibili in base alla selezione della cella
B) le immagini sono inserite nel foglio e sono tutte visibili

Quale ti è più utile?

[Flash30005]

Questa discussione mi sembra adatta al tuo quesito e completa

http://www.pc-facile.com/forum/viewtopic.php?f=26&t=93054&hilit=Rows.RowHeight

ciao

[Anthony47]

Io pero', per rispondere adeguatamente vorrei sapere quale versione di Excel sara' usata e se il file ottenuto (con le immagini) sara' usato solo sul Pc che contiene le immagini o dovrai usarlo anche su altri pc.

Ciao

[nicola_na78]

Grazie a tutti per la risp....
Antony47 hai ragione, la versione di excel è la 2007 e le immagini le usero' solo per un pc.

Grazie ancora

Nicola_na78

[ricky53]

Ciao,
tu vorresti avere tutte le immagini visibili contemporaneamente oppure,
posizionandoti o facendo click (io preferisco il "Doppio Click" per motivi sicurezza della scelta del nome immagine da visualizzare)
su una cella vorresti visualizzare un'immagine per volta?

Se proprio vuoi potresti avere due possibilità:
A) scegliendo con un pulsante (un primo click e visualizzi un'immagine per volta, un altro click e visualizzi tutte le immagini)

B) con una cella con convalida (in cui avrai le due opzioni: un'immagine, tutte le immagini).

Visto che il file verrà utilizzato su un unico PC si potrebbe NON caricare, in modo permanente, le immagine nel file e caricarle solo in base alla scelta fatta.


Ho scritto un po' di spunti ... pensaci e poi, si applicherà la soluzione che preferisci.

Anthony e Flash stanno già pensando ad altre proposte/soluzioni/suggerimenti ... ne sono certo e presto ti arriverà una loro proposta.

Io sono più ... "lento" (se vogliamo essere eufemistici potremmo dire "riflessivo", Eh, Eh ...) !!!

[nicola_na78]

Ciao Ricky53, grazie x aver risposto...
a me andrebbe bene anche visualizzare tutte le immagini contemporaneamente... mi affido a voi maestri in questo campo

a presto

[ricky53]

Ciao,
prova con questo codice

Codice: Seleziona tutto

Sub Inserisci_Immagini()
    Dim UR As Long, I As Long, Percorso As String
    Application.ScreenUpdating = False
   
    Sheets("Foglio1").Select
    Percorso = Range("A1") ' <<==== Qui c'è il percorso ove sono le tue immagini
    UR = Range("A" & Rows.Count).End(xlUp).Row
    For I = 2 To UR
        Cells(I, "B").Select ' <<=== in colonna "B" vengono inserite le immagini
        ActiveSheet.Pictures.Insert Percorso & "\" & Cells(I, "A") ' <<=== in colonna "A" ci sono i nomi delle immagini da inserire
    Next I
    Application.ScreenUpdating = True
End Sub

Prima devi eseguire la tua macro che scrive i nomi delle immagini in colonna "A" del "Foglio1" ... poi esegui la macro che ti ho suggerito.

E' chiaro che prima devi aver dimensionato le righe e le colonne per contenere le immagini ... dai un po' di margine per sicurezza.
E' necessario che le immagini abbiamo dimensioni molto simili una all'altra, altrimenti potrebbero ricoprire le altre immagini.

[nicola_na78]

Ciao Ricky53 la macro è perfetta grazie.... se volessi adattare le immagini ad una dimensione standard ???

[Anthony47]

Mi permetto di raccomandare due operazioni sul codice pubblicato da Ricky:
1. spostare il codice di inserimento immagine all' interno della macro che compila la colonna A; questo sia per ridurre gli interventi umani che per garantire che l' immagine che si va a caricare sia effettivamente presente.
2.Inserire una fase di "rinominazione" immagine e una di "cancellazione" delle immagini eventualmente gia' presenti sul foglio.
Quindi, la mia proposta e' variare la macro originale di nicola_na78 inserendo queste righe nel suo codice originale

Codice: Seleziona tutto

ActiveSheet.Cells(rg, 1) = MyName       'ESISTENTE
'Da qui aggiunte istruzioni derivate da macro Ricky:
    On Error Resume Next
        ActiveSheet.Shapes("FOTO_DA_" & Cells(rg, "B").Address(0, 0)).Delete
    On Error GoTo 0
    Percorso = "C:\Users\utente\Desktop\Zoom"  '****VEDI TESTO
    Cells(rg, "B").Select ' <<=== in colonna "B" vengono inserite le immagini
    With ActiveSheet.Pictures.Insert Percorso & "\" & Cells(rg, "A") ' <<=== in colonna "A" ci sono i nomi delle immagini da inserire
        .Name = "FOTO_DA_" & Cells(rg, "B").Address(0, 0)
'QUI anche eventuali istruzioni di ridimensionamento usando .Width e .Height    '+++Vedi testo
    End With
'===Fine aggiunte
Loop             'ESISTENTE

In questo modo le immagini saranno caricate in colonna B quando viene eseguita la Sub importa_nomi.

Nota***: non mi e' chiaro se il percorso delle immagini sia in Cella A1 o in "C:\Users\utente\Desktop\Zoom"; la macro iniziale di nicola e' ambigua in merito. Correggere l' istruzione per renderla aderente alla vera situazione.

Nota+++: Le istruzioni per il dimensionamento delle immagini sono da inserire in quella posizione.

Ciao a tutti.

[nicola_na78]

Giusto Anthony47,
il percorso non si trova in A ma al seguente indirizzo "C:\Users\utente\Desktop\Zoom"

Ciao a tutti

[nicola_na78]

Ragazzi c'è un problema, nella macro descritta da Ricky53 le immagini vengono inserite sempre nello stesso punto e cioè nella cella "B2"...

[ricky53]

Ciao,
prima di tutto hai tenuto conto dei suggerimenti più che necessari di Anthony ?

Premesso che ho ipotizzato (non sapendo dove reperirlo) che il percorso lo si scrivesse in "A1"

Mi sembra strano che le immagini vengano inserite tutte nella stessa cella "B2" ... dipenderà dalle dimensioni delle immagini ?

Puoi inviare il codice che stai utilizzando?
Un file con l'anomalia sarebbe il massimo.

[nicola_na78]

Ciao Ricky53 ecco il codice

Codice: Seleziona tutto

Sub Inserisci_Immagini()
    Dim UR As Long, I As Long, Percorso As String
    Application.ScreenUpdating = False
   
    Sheets("Foglio1").Select
    Percorso = "C:\Users\Desktop\zoom\" ' <<==== Qui c'è il percorso ove sono le tue immagini
    UR = Range("A" & Rows.Count).End(xlUp).Row
    For I = 2 To UR
   
        Cells(I, "B").Select ' <<=== in colonna "B" vengono inserite le immagini
        ActiveSheet.Pictures.Insert Percorso & "\" & Cells(I, "A") ' <<=== in colonna "A" ci sono i nomi delle immagini da inserire
    Next I
    Application.ScreenUpdating = True
   
End Sub

grazie

[ricky53]

Ciao,
verifica bene perchè le immagini vengono CORRETTAMENTE inserite sullo spigolo in alto a sinistra di ogni cella della colonna "B".
ATTENZIONE: se le immagini sono grandi si sovrappongono, come ti avevo scritto prima, e sembrano inserite male ma ... con un controllo attento ti accorgi che non è così.


Hai utilizzato i suggerimenti di Anthony?
Guarda che sono indispensabili ed integrano nel tuo codice le necessità di inserire le immagini nella colonna "B".

Il mio era solo un esempio che ho scritto per farti vedere come inserire delle immagini in una certa posizione.
Come sempre gli esempi vanno adattati alle proprie esigenze ed al proprio codice.

[nicola_na78]

Risolto,
le immagini erano troppo grandi quindi si sovrapponevano, ho ridimensionato tutto e ora vengono inserite nelle righe della colonna B in modo corretto....


Grazie....
A presto

[ricky53]

Ciao,
alleluja, è andata.

Susa se insisto ma hai integrato il tuo codice con quanto ti ha scritto Anthony ?
Il codice va sempre ottimizzato ed unendo il tuo con parte del mio, seguendo quanto ti ha scritto Anthony otterrai del buon codice.

Mancherebbe il "Ridimensionamento" automatico delle immagini fatto in base alla grandezza della cella in cui l'immagine verrà inserita.

Forza unisci il codice ed invialo al forum e gli si aggiungerà questo ridimensionamento automatico.

[Anthony47]

Se non inserisci le modifiche che avevo suggerito il risultato sara' che nuove immagini verranno inserite sopra le vecchie (che rimangono), rendendo presto inservibile e irrecuperabile (beh... recuperabile solo con una macro di recupero) il tuo file.

Ciao a tutti.

[nicola_na78]

Ciao Ricky53 ho inserito anche il codice di Anthony47. La macro va alla grande... Grazie amici, alla prossima

[ricky53]

Ciao,
ottimo.
Il dimensionamento delle immagini ?
Le hai adattate manualmente?

Invia il codice definitivo e, prendendo spunto da un suggerimento di Anthony per il ridimensionamento automatico su un quesito simile, vedo se posso aiutarti.