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

MACRO PER INSERIRE UNA IMMAGINE IN UNA CELLA DI EXCEL

Ultimo Aggiornamento: 05/12/2016 18:26
Post: 1
Registrato il: 05/12/2016
Utente Junior
OFFLINE
05/12/2016 18:13

Buongiorno a tutti.
Sono un nuovo acquisto del Forum.
La minima esperienza che ho di Macro e VBA deriva da quanto sono riuscito a capire e scopiazzare tramite la funzione "Registra Macro".
Il problema è il seguente: ho un form di offerta prodotto in Excel in cui, a seconda del nome del Procuratore (in totale 6) che si trova in cella A38, vorrei inserire la sua firma scannerizzata nella cella A36.
I jpg delle firme sono già dimensionati alla bisogna e si trovano, per semplificare, sul mio desktop.
Nella cella A38, purtroppo, il nome del Procuratore compare in una riga e poi di seguito, dopo un pò di spazi, compare la sua funzione aziendale. Con la funzione "STRINGA.ESTRAI (A38;1;17)" (LEN, mi pare in VBA) sono riuscito ad estrarre il nome pulito del Procuratore.
Il nome del file che contiene la firma scannerizzata è esattamente lo stesso che risulta da "STRINGA.ESTRAI". Il nome più lungo fra i 6, è di 17 caratteri, incluso il blank fra nome e cognome.
Vi ringrazio in anticipo per qualsiasi aiuto o suggerimento avrete la pazienza di darmi.
Saluti.
Aleardo
[Modificato da Aleardo Cerini 05/12/2016 18:14]
Post: 3.528
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
05/12/2016 18:15

allega un file di esempio, oppure adatta questa
Sub inserisci()
riga = 36
picPath = "percorso\" & Cells(38, 1).Value & ".jpg"
aleft = Cells(riga, 1).Left
atop = Cells(riga, 1).Top
h = Cells(riga, 1).RowHeight
w = Cells(riga, 1).Width
ActiveSheet.Shapes.AddPicture picPath, False, True, aleft, atop, w, h

End Sub

ma non vedo la cella con la formula STRINGA.ESTRAI
[Modificato da patel45 05/12/2016 18:32]

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 2.478
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
05/12/2016 18:26

Ciao secondo me dovresti allegare anche i file delle firme scannerizzate.

Poi non capisco perché la qualifica "Un procuratore" l'hai messa nella stessa cella del nome.

Non puoi inserirla in una riga sotto?

Poi in A36 potresti inserire un controllo immagine che al variare ella cella A38 venga caricata della firma del procuratore inserito.

P.S. In VBA STRINGA.ESTRAI e Mid e non Len che restituisce la lunghezza di una stringa.
[Modificato da alfrimpa 05/12/2016 18:30]

Alfredo
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | 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 00:52. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com