Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

inserimento 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

inserimento immagini

Postdi nicola_na78 » 11/02/15 17:51

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
nicola_na78
Utente Senior
 
Post: 147
Iscritto il: 11/06/10 15:26

Sponsor
 

Re: inserimento immagini

Postdi ricky53 » 11/02/15 17:57

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?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: inserimento immagini

Postdi Flash30005 » 12/02/15 07:52

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: inserimento immagini

Postdi Anthony47 » 12/02/15 13:16

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
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: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: inserimento immagini

Postdi nicola_na78 » 12/02/15 17:16

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
nicola_na78
Utente Senior
 
Post: 147
Iscritto il: 11/06/10 15:26

Re: inserimento immagini

Postdi ricky53 » 12/02/15 17:54

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 ...) !!!
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: inserimento immagini

Postdi nicola_na78 » 13/02/15 09:14

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
nicola_na78
Utente Senior
 
Post: 147
Iscritto il: 11/06/10 15:26

Re: inserimento immagini

Postdi ricky53 » 13/02/15 12:47

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: inserimento immagini

Postdi nicola_na78 » 13/02/15 15:11

Ciao Ricky53 la macro è perfetta grazie.... se volessi adattare le immagini ad una dimensione standard ???
nicola_na78
Utente Senior
 
Post: 147
Iscritto il: 11/06/10 15:26

Re: inserimento immagini

Postdi Anthony47 » 13/02/15 15:26

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.
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: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: inserimento immagini

Postdi nicola_na78 » 13/02/15 15:42

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

Ciao a tutti
nicola_na78
Utente Senior
 
Post: 147
Iscritto il: 11/06/10 15:26

Re: inserimento immagini

Postdi nicola_na78 » 13/02/15 15:55

Ragazzi c'è un problema, nella macro descritta da Ricky53 le immagini vengono inserite sempre nello stesso punto e cioè nella cella "B2"...
nicola_na78
Utente Senior
 
Post: 147
Iscritto il: 11/06/10 15:26

Re: inserimento immagini

Postdi ricky53 » 13/02/15 16:05

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: inserimento immagini

Postdi nicola_na78 » 13/02/15 16:15

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
nicola_na78
Utente Senior
 
Post: 147
Iscritto il: 11/06/10 15:26

Re: inserimento immagini

Postdi ricky53 » 13/02/15 17:12

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: inserimento immagini

Postdi nicola_na78 » 13/02/15 17:45

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
nicola_na78
Utente Senior
 
Post: 147
Iscritto il: 11/06/10 15:26

Re: inserimento immagini

Postdi ricky53 » 13/02/15 21:23

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: inserimento immagini

Postdi Anthony47 » 14/02/15 01:16

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.
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: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: inserimento immagini

Postdi nicola_na78 » 14/02/15 15:10

Ciao Ricky53 ho inserito anche il codice di Anthony47. La macro va alla grande... Grazie amici, alla prossima
nicola_na78
Utente Senior
 
Post: 147
Iscritto il: 11/06/10 15:26

Re: inserimento immagini

Postdi ricky53 » 14/02/15 15:28

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "inserimento immagini":

Immagini
Autore: aleyandro
Forum: Sistemi Operativi Windows
Risposte: 5
Immagini cancellate
Autore: endryu77
Forum: Software Windows
Risposte: 7

Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti