{"id":873,"date":"2014-01-22T15:04:37","date_gmt":"2014-01-22T14:04:37","guid":{"rendered":"http:\/\/www.office-guru.com\/wordpress\/?p=873"},"modified":"2014-04-12T17:20:01","modified_gmt":"2014-04-12T15:20:01","slug":"archivio-con-fotografie-degli-articoli","status":"publish","type":"post","link":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/archivio-con-fotografie-degli-articoli\/","title":{"rendered":"035. Archivio con Fotografie degli articoli"},"content":{"rendered":"
\"Download<\/a><\/div>

Damanda:<\/p>\n

devo associare la foto in formato jpg di una regione italiana quando nella descrizione di un vino compare il nome di quella regione.
\nnaturalmente ci sono 20 regioni + alcune nazioni x i vini esteri e le immagini devono comparire iu una cella con il risultato di un cerca verticale<\/p>\n

Risposta:<\/p>\n

Abbiamo ricevuto diverse richieste riguardanti questo argomento.
\nVediamo una possibile soluzione.
\n
\nPASSO 1: inserire nel foglio un oggetto “Immagine”<\/p>\n

Per farlo bisogna cliccare sul tab “Sviluppo” (Developer) , men\u00f9 “Inserisci”, tra gli oggetti “Active X” selezionare l’icona “Immagine”, trascianarla nel foglio e dimensionarla a piacere.<\/p>\n

Dopo essersi assicurati di essere in modalit\u00e0 Design, clicchiamo con il tasto destro sull’oggetto Immagine e quindi su propriet\u00e0.
\nNella propriet\u00e0 “Nome” appare il nome di default assegnato da Excel all’immagine,
\nse volete potete modificarlo ma vi consiglio in ogni caso di farlo in questo modo “Immagine_NomeAvostraScelta”.
\nVi sar\u00e0 pi\u00f9 semplice capire nel codice che tipo di oggetto state trattando.
\nImpostate la propiet\u00e0 “PictureSizeMode” come “fmPictureSizeModeZoom”. In questo modo Excel provveder\u00e0 a dimensionare automaticamente la dimensione della foto in base alla grandezza dell’oggetto Immagine.<\/p>\n

PASSO2: creare una cartella dove depositare le fotografie<\/p>\n

Nella cartella che contiene il file, ho creato una sottocartella chiamata “Fotografie”
\ne dentro di essa ho salvato le fotografie da caricare in formato “.jpg”.
\nPer impostare un percorso diverso, bisogna modificare l’istruzione<\/p>\n

PercorsoCartellaFotografie = ThisWorkbook.Path & \"\\Fotografie\"<\/pre>\n
PASSO 3: determinare quando far apparire la fotografia<\/p>\n
Nel file d’esempio ho utilizzato l’evento “SelectionChange” del foglio “ARCHIVIO”
\nche permette di eseguire una macro ogni qualvolta viene selezionata una cella del foglio.<\/p>\n
Il codice per caricare la fotografia dell’oggetto immagine \u00e8 il seguente:<\/p>\n
Sheet1.Image1.Picture = LoadPicture(PercorsoCartellaFotografie & \"\\\" & Sheet1.Cells(ActiveCell.Row, 2) & \".jpg\")<\/pre>\n
Selezionado il vino “Negramaro” la macro assegna:
\n– alla variabile “ActiveCell.Row” il valore 2,il numero della riga selezionata
\n– alla variabile “Sheet1.Cells(ActiveCell.Row, 2)” il valore della riga 2 colonna 2, “PUGLIA”<\/p>\n
Posto di aver salvato la fotografia chiamata “PUGLIA.jpg”, la macro la caricher\u00e0 nell’oggetto Immagine.<\/p>\n
Nel file d’esempio ho creato anche un foglio “FATTURA” con il codice precedente lanciato dall’evento “Calculate” quando si seleziona un vino dal men\u00f9 a tendina che ho inserito nella cella B5.<\/p>\n
Quando la si seleziona, la funzione Cerca.Vert (VlookUp) dentro la cella B8 restiuisce la regione d’appartenza\u00a0che \u00e8 presa per alimentare il valore del percorso della fotografia.<\/p>\n
A voi il file:
\nAPRI<\/a><\/p>\n
Riccardo Vincenti<\/p>\n","protected":false},"excerpt":{"rendered":"
Damanda: devo associare la foto in formato jpg di una regione italiana quando nella descrizione di un vino compare il nome di quella regione. naturalmente ci sono 20 regioni + alcune nazioni x i vini esteri e le immagini devono … Continua a leggere→<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":"","jetpack_publicize_message":"","jetpack_is_tweetstorm":false,"jetpack_publicize_feature_enabled":true,"_links_to":"","_links_to_target":""},"categories":[5,6,14],"tags":[],"jetpack_featured_media_url":"","jetpack_publicize_connections":[],"jetpack_shortlink":"https:\/\/wp.me\/p39IU1-e5","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"jetpack-related-posts":[{"id":914,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/archivio-con-fotografie-degli-articoli-ciclare-sugli-oggetti-immagine\/","url_meta":{"origin":873,"position":0},"title":"038. Archivio con Fotografie degli articoli – Ciclare sugli oggetti Immagine","date":"29 Gennaio 2014","format":false,"excerpt":"Questo articolo fa riferimento alla domada dell'articolo \"Archivio con Fotografie degli articoli\" Il lettore mi ha mandato il file originale dove voleva inserire le immagini ed ho modifcato il codice precedentemente scritto per adattarlo al suo specifico caso: 14 foto\u00a0divise in 2 colonne\u00a0da popolare contemporaneamente. Ho cos\u00ec risolto inserendo: -\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":148,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/02\/la-funzione-indiretto-e-la-funzione-indirizzo\/","url_meta":{"origin":873,"position":1},"title":"la funzione INDIRETTO e la funzione INDIRIZZO","date":"8 Febbraio 2013","format":false,"excerpt":"La funzione INDIRETTO permette di recuperare un dato presente in un'altra cella del foglio di lavoro indicandone direttamente l'indirizzo della stessa. \u00a0 La procedura pi\u00f9 semplice \u00e8 scrivere: =INDIRETTO(\"A1\") questa funzione EQUIVALE\u00a0a scrivere =A1 Vista semplicemente in questo modo la funzione INDIRETTO sembra assolutamente\u00a0inutile. In realt\u00e0 aggiunge un livello di\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"https:\/\/i0.wp.com\/www.office-guru.com\/wordpress\/wp-content\/uploads\/2013\/02\/indiretto_01-237x300.gif?resize=350%2C200","width":350,"height":200},"classes":[]},{"id":1922,"url":"https:\/\/www.office-guru.com\/wordpress\/2017\/11\/elencare-i-nomi-degli-oggetti-di-excel\/","url_meta":{"origin":873,"position":2},"title":"Elencare i nomi degli oggetti di Excel","date":"2 Novembre 2017","format":false,"excerpt":"A volte capita di avere a che fare con molti oggetti su un oglio di Excel quali linee, rettangoli, cerchi, frecce e volerli manipolare. Il metodo semplice \u00e8 di assegnare ad ogni oggetto un nome e successivamente manipolarlo in VBA attraverso le propriet\u00e0 dell'oggetto. In VBA per \"indirizzare\" un oggetto\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"https:\/\/i0.wp.com\/www.office-guru.com\/wordpress\/wp-content\/uploads\/2017\/11\/Excel-Group-Command.png?fit=276%2C236&ssl=1&resize=350%2C200","width":350,"height":200},"classes":[]},{"id":393,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/03\/popolare-listbox\/","url_meta":{"origin":873,"position":3},"title":"010. Popolare ListBox","date":"20 Marzo 2013","format":false,"excerpt":"Domanda: \u201ccome fare per far apparire in una listbox alcune celle di un foglio dati?\u201d Risposta: 1) creare una Listbox: dal men\u00f9 \u201cSviluppo\u201d cliccare su \u201cInserisci\u201d e scegliere l\u2019oggetto \u201cListBox\u201d tra i controlli ActiveX 2) definire l\u2019intervallo di celle che dovr\u00e0 apparire nella ListBox: - creare un foglio dove inserire\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":520,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/04\/creare-file-con-vba-ed-inviarli-via-mail-avanzato\/","url_meta":{"origin":873,"position":4},"title":"017. Creare file con VBA ed inviarli via mail (avanzato)","date":"20 Aprile 2013","format":false,"excerpt":"Ciao a tutti, in questo giorni ho modificato il Tool che invia allegati tramite email seguendo alcune necessit\u00e0 di Alessandra. Le modifiche sono le seguenti: 1) verifica della presenza dei nomi inseriti nella base dati con quelli presenti in elenco e segnalazione di eventuali assenze 2) selezione attraverso di un\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1064,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/02\/filtro-rapido-con-vba-excel-2007-2010\/","url_meta":{"origin":873,"position":5},"title":"041. Filtro Rapido con VBA (Excel 2007-2010)","date":"19 Febbraio 2014","format":false,"excerpt":"In ambito lavorativo capita spesso di avere file con un foglio dove sono presenti le anagrafiche dei clienti ed un altro contenente ad esempio il dettaglio degli ordini dei clienti. Quando si hanno elevate quantit\u00e0 di dati non \u00e8 immediato aprire il filtro sul foglio degli ordini ed individuare il\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/873"}],"collection":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/comments?post=873"}],"version-history":[{"count":9,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/873\/revisions"}],"predecessor-version":[{"id":1217,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/873\/revisions\/1217"}],"wp:attachment":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/media?parent=873"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/categories?post=873"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/tags?post=873"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}