| | Post: 1 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
21/02/2017 15:56 | |
Ciao a tutti,
utilizzo questa macro in excel per inserire le immagini in maniera automatica. Però in questo modo se invio il file ad un altro utente questo non vede le immagini ma la scritta che il collegamento è mancante. Come posso risolvere il problema? Grazie a tutti anticipatamente.
Sub InsImg()
Application.ScreenUpdating = False
ActiveSheet.Shapes.SelectAll
Selection.Delete
mPath = ActiveWorkbook.Path
r = 2 ' riga inizio prodotti
Lr = Range("A" & Rows.Count).End(xlUp).Row ' ultima riga da analizzare
For i = r To Lr
mFoto = Cells(i, 1)
If Len(mFoto & "") <> 0 Then ' se c'e' il nome prodotto
If Dir(mPath & "\" & mFoto & ".jpg") <> "" Then ' se la foto esiste
' inserisce foto e adatta a dimensioni cella/colonna B
With ActiveSheet.Pictures.Insert(mPath & "\" & mFoto & ".jpg")
'NOTA: in blu per centrare la foto nelle celle (puoi ovviamente variare), altrimenti vengono una attaccata all'altra
.Top = Range("B" & i).Top + 5
.Left = Range("B" & i).Left + 5
.Height = Range("B" & i).Height - 10
.Width = Range("B" & i).Width - 10
End With
End If
End If
Next i
Application.ScreenUpdating = True
End Sub
|
|
| | Post: 2.790 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
21/02/2017 16:06 | |
Ciao Max
Ma l'altro utente ha le immagini sul suo pc?
Se si le ha in un percorso denominato uguale al tuo?
Se la risposta a queste due domande è si le immagini le "deve" vedere.
Alfredo |
| | Post: 1.010 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
21/02/2017 16:09 | |
ciao AL
tutto bene?
magari se mette le foto e il file in una cartella
e la comprime la spedisce al suo amico
il tutto funziona
o sbaglio |
| | Post: 2.791 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
21/02/2017 16:13 | |
Certo Gianfranco.
Questa sarebbe stata la seconda opzione che avrei suggerito qualora Max avesse risposto con un "no" alle mie domande.
Un caro saluto.
Alfredo |
| | Post: 1 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
21/02/2017 16:40 | |
alfrimpa, 21/02/2017 16.06:
Ciao Max
Ma l'altro utente ha le immagini sul suo pc?
Se si le ha in un percorso denominato uguale al tuo?
Se la risposta a queste due domande è si le immagini le "deve" vedere.
Ciao Gianfranco,
No, le immagini sono nel mio pc. Non è possibile far memorizzare le immagini nel file di excel? |
| | Post: 2.792 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
21/02/2017 17:00 | |
Certo che puoi ma poi la macro che hai non va più bene.
Devi allegare il tuo file con 3/4 immagini e spiegare quello che vuoi ottenere.
Alfredo |
| | Post: 2 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
22/02/2017 08:53 | |
alfrimpa, 21/02/2017 17.00:
Certo che puoi ma poi la macro che hai non va più bene.
Devi allegare il tuo file con 3/4 immagini e spiegare quello che vuoi ottenere.
Ciao Alfredo,
allego il file e le immagini.
Devo creare dei file contenenti anche 300/400 righe e la macro che ho mi consente di inserire le immagini in modo automatico. Il file creato lo devo inviare ai miei clienti e deve contenere le immagini direttamente in excel. Spero di essere stato chiaro.
Grazie e saluti
Max
|
| | Post: 3 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
24/02/2017 18:27 | |
alfrimpa, 21/02/2017 17.00:
Certo che puoi ma poi la macro che hai non va più bene.
Devi allegare il tuo file con 3/4 immagini e spiegare quello che vuoi ottenere.
Ciao Alfredo,
scusa il disturbo... hai avuto modo di vedere il mio file?
Grazie e saluti
Max |
| | Post: 2.826 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
24/02/2017 18:45 | |
Perdonami Max ma mi ero completamente dimenticato di questa discussione.
Nel weekend il pc è off-limits ma ad inizio settimana darò sicuramente uno sguardo.
Alfredo |
| | Post: 4 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
25/02/2017 08:47 | |
alfrimpa, 24/02/2017 18.45:
Perdonami Max ma mi ero completamente dimenticato di questa discussione.
Nel weekend il pc è off-limits ma ad inizio settimana darò sicuramente uno sguardo.
Grazie e buon weekend
Max |
| | Post: 2.829 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
25/02/2017 09:36 | |
Scusa Max ma non ho capito una cosa: come dovrebbe funzionare il file?
Ho aperto il tuo ed ho visto che c'è una tabella con dati all'interno della quale si devono inserire le immagini.
Tu hai parlato di circa 400 prodotti; tutti questi saranno inclusi nella tabella?
Cerca di spiegare che tipo di automatismo vuoi realizzare (a prescindere da dove risiedano le immagini fuori o dentro il file).
Alfredo |
| | Post: 5 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
27/02/2017 08:29 | |
alfrimpa, 25/02/2017 09.36:
Scusa Max ma non ho capito una cosa: come dovrebbe funzionare il file?
Ho aperto il tuo ed ho visto che c'è una tabella con dati all'interno della quale si devono inserire le immagini.
Tu hai parlato di circa 400 prodotti; tutti questi saranno inclusi nella tabella?
Cerca di spiegare che tipo di automatismo vuoi realizzare (a prescindere da dove risiedano le immagini fuori o dentro il file).
Ciao Alfredo,
si saranno tutti inclusi nella tabella.
Nella casella A c’è il codice articolo ed i file immagine sono nominati come il codice articolo, l’automatismo dovrebbe inserire l’immagine nella casella B adattandola alle dimensioni della cella.
|
| | Post: 3.721 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
27/02/2017 08:42 | |
tieni presente che il file con 400 immagini sarà molto pesante e lento da aprire, sei certo di voler procedere in questo modo ?
L'alternativa è spedire agli utilizzatori una cartella zippata con le immagini e il file excel
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 6 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
27/02/2017 08:58 | |
patel45, 27/02/2017 08.42:
tieni presente che il file con 400 immagini sarà molto pesante e lento da aprire, sei certo di voler procedere in questo modo ?
L'alternativa è spedire agli utilizzatori una cartella zippata con le immagini e il file excel
Ciao,
si lo so, ma la cartella contiene oltre 2000 immagini ed i file che devo realizzare non sono sempre con le stesse immagini. Il file lo ho già allegato in precedenza
http://www.freeforumzone.com/allegato.aspx?idd=11365152&idm=134171386&ida=5251344
Max |
| | Post: 3.722 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
27/02/2017 10:30 | |
Sub inserisci()
riga = 3
Do While Cells(riga, 1) <> ""
picPath = ThisWorkbook.Path & "\" & Cells(riga, 1).Value & ".jpg"
aleft = Cells(riga, 2).Left
atop = Cells(riga, 2).Top
h = Cells(riga, 2).RowHeight
w = Cells(riga, 2).Width
Application.ActiveSheet.Shapes.AddPicture picPath, False, True, aleft, atop, w, h
riga = riga + 1
Loop
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 7 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
27/02/2017 17:10 | |
patel45, 27/02/2017 10.30:
Sub inserisci()
riga = 3
Do While Cells(riga, 1) <> ""
picPath = ThisWorkbook.Path & "\" & Cells(riga, 1).Value & ".jpg"
aleft = Cells(riga, 2).Left
atop = Cells(riga, 2).Top
h = Cells(riga, 2).RowHeight
w = Cells(riga, 2).Width
Application.ActiveSheet.Shapes.AddPicture picPath, False, True, aleft, atop, w, h
riga = riga + 1
Loop
End Sub
Ciao,
la macro mi da errore 424 - manca oggetto
Quando premo il tasto di debug mi evidenzia questa linea:
Application.ActiveSheet.Shapes.AddPicture picPath, False, True, aleft, atop, w, h
|
| | Post: 3.723 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
27/02/2017 18:21 | |
col tuo file mi funziona perfettamente
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 8 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
28/02/2017 08:28 | |
patel45, 27/02/2017 18.21:
col tuo file mi funziona perfettamente
ho usato anch'io lo stesso file ma mi da sempre lo stesso errore. Forse sbaglio qualche passaggio
|
| | Post: 9 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
03/03/2017 08:37 | |
patel45, 27/02/2017 18.21:
col tuo file mi funziona perfettamente
Buongiorno,
non ho ancora risolto il mio problema. Ho fatto diverse prove con la tua macro ma mi da sempre lo stesso errore. Potresti aiutarmi a capire dove sbaglio? Grazie
Max |
| | Post: 3.739 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
03/03/2017 09:39 | |
riallega il file che stai usando ora
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 10 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
03/03/2017 11:14 | |
patel45, 03/03/2017 09.39:
riallega il file che stai usando ora
eccolo
|
| | Post: 3.740 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
03/03/2017 13:19 | |
Sub inserisci()
riga = 3
ActiveSheet.Shapes.SelectAll
Selection.Delete
Do While Cells(riga, 1) <> ""
picPath = ThisWorkbook.Path & "\" & Cells(riga, 1).Value & ".jpg"
aleft = Cells(riga, 2).Left
atop = Cells(riga, 2).Top
h = Cells(riga, 2).RowHeight
w = Cells(riga, 2).Width
Application.ActiveSheet.Shapes.AddPicture picPath, False, True, aleft, atop, w, h
riga = riga + 1
Loop
End Sub
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 2.884 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
03/03/2017 14:26 | |
Ciao Max
Ho provato le macro di Patel (ciao Andrea) ed entrambe funzionano perfettamente a patto che:
1) il file sia stato già salvato;
2) le immagini siano nella stessa directory del file Excel.
Relativamente al secondo punto non mi pare sia quello che vuoi.
Alfredo |
| | Post: 11 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
03/03/2017 18:51 | |
alfrimpa, 03/03/2017 14.26:
Ciao Max
Ho provato le macro di Patel (ciao Andrea) ed entrambe funzionano perfettamente a patto che:
1) il file sia stato già salvato;
2) le immagini siano nella stessa directory del file Excel.
Relativamente al secondo punto non mi pare sia quello che vuoi.
Ciao Alfredo,
si, rispettando le due condizioni funziona anche a me. Però le immagini restano sempre come collegamento. Non si può risolvere questo problema?
Max
|
| | Post: 2.885 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
03/03/2017 18:59 | |
Come ti è stato già detto in precedenza inserire centinaia di immagini in un file di Excel, ancorché possibile, risulterebbe controproducente per l'utilizzo del file stesso.
Il file sarebbe talmente pesante che potresti avere i problemi cui accennava Patel.
Ma non puoi spedire una mail con una cartella compressa contenente le immagini ai tuoi clienti? In tal modo il problema si risolverebbe.
Alfredo |
| | Post: 12 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
04/03/2017 08:15 | |
alfrimpa, 03/03/2017 18.59:
Come ti è stato già detto in precedenza inserire centinaia di immagini in un file di Excel, ancorché possibile, risulterebbe controproducente per l'utilizzo del file stesso.
Il file sarebbe talmente pesante che potresti avere i problemi cui accennava Patel.
Ma non puoi spedire una mail con una cartella compressa contenente le immagini ai tuoi clienti? In tal modo il problema si risolverebbe.
Si questa è una soluzione possibile. Però, siccome la cartella contiene oltre 2000 immagini ed i file che dovrò realizzare non avranno tutti le stesse immagini, non sarebbe possibile far salvare solo le immagini contenute nel file ed il file stesso in un'altra cartella?
Saluti, Max
|
| | Post: 3.745 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
04/03/2017 09:19 | |
max3527, 03/03/2017 18.51:
Ciao Alfredo,
si, rispettando le due condizioni funziona anche a me. Però le immagini restano sempre come collegamento. Non si può risolvere questo problema?
Max
dopo aver inserito le immagini tramite la macro, salvo, elimino i file jpg, riapro il file excel e le immagini sono nel foglio, non ci sono i collegamenti.
[Modificato da patel45 04/03/2017 09:19]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 13 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
04/03/2017 11:45 | |
patel45, 04/03/2017 09.19:
dopo aver inserito le immagini tramite la macro, salvo, elimino i file jpg, riapro il file excel e le immagini sono nel foglio, non ci sono i collegamenti.
Scusa ma credo di non aver capito. L'unica macro che mi inserisce le immagini è quella mia. Ho provato ad inserire le immagini con questa macro e ho salvato il file excel, ho eliminato i file jpg (dalla cartella?) ma se riapro il file excel al posto delle immagini mi dice che il collegamento è stato spostato.
|
| | Post: 3.746 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
04/03/2017 12:31 | |
io stavo parlando della mia macro, quella che usa add invece che insert.
Quale versione di excel usi ? [Modificato da patel45 04/03/2017 12:33]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 14 | Registrato il: 21/02/2017
| Età: 58 | Utente Junior | 2010 | | OFFLINE | |
|
06/03/2017 08:41 | |
patel45, 04/03/2017 12.31:
io stavo parlando della mia macro, quella che usa add invece che insert.
Quale versione di excel usi ?
la versione e 2010. La tua macro a me non inserisce le immagini
|
|
|