Condividi:        

Automatizzare inserimento immagini in word

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

Automatizzare inserimento immagini in word

Postdi marcomlo » 22/03/17 14:08

Grazie a tutti anticipatamente, avrei un bel problema da sottoporre alla vs. attenzione. Premetto che ho già guardato in giro ma nulla che faccia il caso mio.
Mi spiego:
Esporto da agenti in whatsapp una chat dove esistono foto e didascalie con prezzi annessi alle stesse. Mi invio la mail che genera e mi arriva un file txt e le immagini in jpg.
Se apro il txt vorrei importarmelo come testo in word e generare qualche comando che automaticamente mi inserisca le foto richiamate come nome file nel txt nell'immagine che si trova nella stessa cartella di dove creo il word.
Ex: IMG-20170319-WA0001.jpg (file allegato) > testo mi venga sostituto con l'immagine che ha come nome file lo stesso. Ovvimente la IMG-20170319-WA0002.jpg (file allegato) con la due e la 3 con a tre.
Spero di essere stato chiaro, anche se mi son un po incartato.
Grazie ancora.
marcomlo
Newbie
 
Post: 7
Iscritto il: 22/03/17 14:06

Sponsor
 

Re: Automatizzare inserimento immagini in word

Postdi patel » 22/03/17 17:20

utilizzare excel per questo lavoro andrebbe bene ?
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: Automatizzare inserimento immagini in word

Postdi marcomlo » 22/03/17 17:24

Se fosse possibile col word andrebbe meglio, ma a mali estremi va bene anche Excel.
Grazie
marcomlo
Newbie
 
Post: 7
Iscritto il: 22/03/17 14:06

Re: Automatizzare inserimento immagini in word

Postdi marcomlo » 22/03/17 22:16

Mi rispondo un po da solo, con questa macro riesco nella cella b2 metta le immagini col nome nella cella a2

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

ma non riesco a bloccarle perché rimangano nel file Excel andandole a cancellare dalla directory.
Esiste qualcosa per fare questo?
Grazie
marcomlo
Newbie
 
Post: 7
Iscritto il: 22/03/17 14:06

Re: Automatizzare inserimento immagini in word

Postdi patel » 23/03/17 09:23

invece di usare il metodo insert in
With ActiveSheet.Pictures.Insert(mPath & "\" & mFoto & ".jpg")
prova con add cercando la sintassi corretta
patel
Utente Senior
 
Post: 309
Iscritto il: 24/04/12 16:03

Re: Automatizzare inserimento immagini in word

Postdi marcomlo » 23/03/17 12:07

Nulla, non riesco a trovare una sintassi giusta per incollare le foto alle celle.
marcomlo
Newbie
 
Post: 7
Iscritto il: 22/03/17 14:06

Re: Automatizzare inserimento immagini in word

Postdi Anthony47 » 23/03/17 14:01

Il metodo che raccomando e' Shapes.AddPicture, come descritto ad altro utente qui:
viewtopic.php?t=104043#p606614

Nota che la Sub MettImmZZ lì descritta assegna alle foto inserite un nome particolare, cosi' invece di usare (come fai nella macro pubblicata) ActiveSheet.Shapes.SelectAll / Selection.Delete, che cancella tutte le forme del foglio (compreso ad esempio, pulsanti, forme e qualsiasi cosa che appartenga alla collezione Shapes) si potra' cancellare la foto specifica appartenente alla singola cella.
Vedi tu se farne uso...

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Automatizzare inserimento immagini in word":


Chi c’è in linea

Visitano il forum: Nessuno e 38 ospiti