Pagina precedente | 1 2 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Problema con immagini

Ultimo Aggiornamento: 07/03/2017 10:20
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 [SM=x423030]
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

Re:
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

Re:
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

Re:
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

Re:
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

Re:
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

Re:
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

Re:
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

Re:
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

Re:
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

Re:
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

Re:
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

Re:
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

Re: Re:
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

Re: Re: Re:
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

Re:
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
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 2 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 17:55. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com