| | Post: 4 | Registrato il: 03/11/2015
| Città: ROMA | Età: 54 | Utente Junior | office 365 | | OFFLINE | |
|
  13/03/2024 19:41 | |
Ciao prendendo spunto da altri vostri lavori sono riuscito ad inserire immagini sul foglio excel prendendoli da una cartella. per facilitarne la cancellazione avrei necessità di 'posizionarli nella cella' non potendo inserire la macro che le elimina tutte (devo inserire altre immagini sullo stesso foglio)
Ho allegato il file che sto preparando e la cartella con le immagini
Grazie per l'aiuto
|
|
| | Post: 1.228 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Veteran | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
| 13/03/2024 19:47 | |
qui non è arrivato niente
LEO
https://t.me/LordBrum |
| | Post: 4 | Registrato il: 03/11/2015
| Città: ROMA | Età: 54 | Utente Junior | office 365 | | OFFLINE | |
|
| 13/03/2024 20:07 | |
hai ragione ma non capisco perchè non mi prende l'allegato
|
| | Post: 1.229 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Veteran | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
| 13/03/2024 20:11 | |
Danilo1369, 13/03/2024 20:07:
hai ragione ma non capisco perchè non mi prende l'allegato
in basso a sinistra fuori della finestra del messaggio ci sono 2 bottoni
ALLEGA
CARICA
devi cliccare su ALLEGA, si apre finestra di dialogo con cui cerchi il file, e lo alleghi, se non è di dimensioni astronomiche, ma avrai anche la pazienza di aspettare un attimo il progresso della barra di avanzamento
LEO
https://t.me/LordBrum |
| | Post: 1.230 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Veteran | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
| 13/03/2024 20:18 | |
dovresti capitare in questa situazione
LEO
https://t.me/LordBrum |
| | Post: 5 | Registrato il: 03/11/2015
| Città: ROMA | Età: 54 | Utente Junior | office 365 | | OFFLINE | |
|
| 13/03/2024 21:27 | |
ho capito non caricava il file xlsm, riporto qui sotto il testo della macro
le immagini sono in una cartella
VB Sub inserisci()
riga = 7
picPath = "C:\Users\damic\Documents\Loghi\" & Cells(2, 1).Value & ".png"
aleft = Cells(riga, 3).Left
atop = Cells(riga, 3).Top
h = Cells(riga, 3).RowHeight
w = Cells(riga, 3).Width
ActiveSheet.Shapes.AddPicture picPath, False, True, aleft, atop, w, h
riga = 7
picPath = "C:\Users\damic\Documents\Loghi\" & Cells(2, 2).Value & ".png"
aleft = Cells(riga, 5).Left
atop = Cells(riga, 5).Top
h = Cells(riga, 5).RowHeight
w = Cells(riga, 5).Width
ActiveSheet.Shapes.AddPicture picPath, False, True, aleft, atop, w, h
riga = 10
picPath = "C:\Users\damic\Documents\Loghi\" & Cells(3, 1).Value & ".png"
aleft = Cells(riga, 3).Left
atop = Cells(riga, 3).Top
h = Cells(riga, 3).RowHeight
w = Cells(riga, 3).Width
ActiveSheet.Shapes.AddPicture picPath, False, True, aleft, atop, w, h
riga = 10
picPath = "C:\Users\damic\Documents\Loghi\" & Cells(3, 2).Value & ".png"
aleft = Cells(riga, 5).Left
atop = Cells(riga, 5).Top
h = Cells(riga, 5).RowHeight
w = Cells(riga, 5).Width
ActiveSheet.Shapes.AddPicture picPath, False, True, aleft, atop, w, h
[Modificato da L2018 13/03/2024 22:14] |
| | Post: 1.231 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Veteran | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
| 13/03/2024 22:13 | |
bene, io sono stato occupato, vedo che sei riuscito a spedire un file, ed anche a mettere il listato che però devi imparare a scriverlo in altro modo.
il listato di una macro si dovrebbe scrivere evidenziando tutto e solo il testo e poi in basso alla finestra del messaggio cliccare sul simbolo * che lo farà comparire come ti faccio vedere adesso che vado a correggerlo io.
Ma ho già visto che la macro è scritta in modo sbagliato, la prendiamo solo come esempio
Riguardo al tuo file lascio a chi è più bravo di me l'incarico di risolvere il problema.
Ciao
*
il simbolo è quello nella immagine qui sotto
comunque vedo che dovresti correggere molte cose nel tuo problema [Modificato da L2018 13/03/2024 22:26]
LEO
https://t.me/LordBrum |
|
|
|
|