Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 34

Discussione: inserire immagini da link esterno



  1. #1
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1

    inserire immagini da link esterno

    Salve!
    mi domando se la cosa sia possibile o meno e in caso come si fa?
    Devo realizzare un file excel con il quale inserendo un determinato codice prodotto, il foglio mi inserisca su una determinata cella un'immagine. Tale immagine viene presa da un url esterno, il cui indirizzo "compare" quando inserisco il codice di cui sopra.
    Riesco a fare tutto fino alla "comparsa" dell'indirizzo sulla determinata cella, mi manca la parte dell'inserimento immagine
    Una volta inserita l'immagine devo solo stampare il foglio.
    Dite che si può?
    chi mi sa dire come in parole moooooolto semplici?
    Provo ad allegare il file ( senza la banca dati, ma con una simulazione dei dati che dovrei utilizzare)
    Grazie a tutti in anticipo.
    MArco
    File Allegati File Allegati
    Invia MPPM 

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    Prova così
    copia il link
    Inserisci / Immagine / Rete
    e incolli il link
    Invia MPPM 

  3. #3
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    571
    Prova cosi.....spingi pulsante si collega a internet...chiudi internet e hai la foto su foglio
    File Allegati File Allegati
    Invia MPPM 

  4. #4
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    Ciao,
    per prima cosa voglio ringraziarti per l'aiuto.
    Purtroppo il file non mi funziona come dovrebbe. o almeno non riesco a farlo funzionare.
    Provo a spiegarmi meglio.
    io inserisco un codice nel campo "codice di riferimento", il sistema mi trova nella banca dati il link immagine corrispondente e quindi mi dovrebbe inserire " automaticamente, ma anche premere il pulsante andrebbe bene, l'immagine nello spazio dedicato.
    Dal tuo file l'immagine mi rimane sempre quella, anche se cambio il link.
    Sbaglio qualcosa?
    Invia MPPM 

  5. #5
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    571
    avevo capito che era già tutto impostato....col broswer siucramente qualcuno più competente saprà aiutarti se no e devi solo stampare quando hai la foto fai tasto destro copia e incolli sul foglio e stampi......
    Invia MPPM 

  6. #6

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ciao a tutti,

    @dorico

    Potresti usare un codice del genere (da mettere in un modulo standard) :

    Codice: 
    Option Explicit
    
    
    Sub Immagine()
    Dim Indirizzo As String, Errore
    
    
    On Error GoTo messaggio
    Indirizzo = Range("M6").Value
    ActiveSheet.Pictures.Insert(Indirizzo).Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    
    
    With Selection
        .Left = ActiveWindow.VisibleRange.Columns(2).Left
        .Top = ActiveWindow.VisibleRange.Rows(5).Top
        .ShapeRange.Height = 209
        .ShapeRange.Width = 430
    End With
    
    
    Range("M4").Select
    Exit Sub
    messaggio:
    Errore = MsgBox("Non è possibile caricare l'immagine. Accertarsi che l'indirizzo sia corretto.", vbCritical, "ERRORE")
    
    
    End Sub
    Per richiamare il codice a qualsiasi cambiamento del link nella cella M6, usa questo codice nel modulo di classe del "Foglio 1":

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    
    If Not Intersect(Target, Range("M6")) Is Nothing Then
        Call Immagine
    End If
    End Sub
    Ti riallego il file...
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  7. I seguenti utenti hanno dato un "Like"


  8. #7
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    Siete tutti molto gentili, purtroppo, mi sa che sta volta mi sono infilato in una cosa più grande di me :93:
    Non so proprio come muovermi, credevo fosse più semplice.
    CROMAGNO il file che mi hai allegato, è stato modificato?
    Invia MPPM 

  9. #8

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Citazione Originariamente Scritto da dorico75 Visualizza Messaggio
    Siete tutti molto gentili, purtroppo, mi sa che sta volta mi sono infilato in una cosa più grande di me :93:
    Non so proprio come muovermi, credevo fosse più semplice.
    CROMAGNO il file che mi hai allegato, è stato modificato?
    In che senso "modificato" ?

    Ho preso il file allegato da "Danilo Fiorini", visto che era già in .xlsm ed ho modificato il codice.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  10. #9
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    Nel senso che il file che apro, non fa nulla.
    Nel file di Danilo c'era un pulsante, ma nel tuo non c'è più.
    Invia MPPM 

  11. #10

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Come ti ho scritto prima...
    il codice parte quando cambia l'indirizzo nella cella M6 (che a quanto ho capito era quello che volevi).

    Immagino che nel tuo file originale cambiando il codice nella cella M4 si aggiorni automaticamente l'indirizzo nella cella M6 ( o almeno cosi hai scritto).

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  12. #11
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    si esattamente, ma ho provato ad inserire il link di un'altra immagine, ma mi da errore, dice che è sbagliato.
    (questo è un link di un'altra immagine http://agestanet.risorseimmobiliari....8/F_959938.jpg)
    Invia MPPM 

  13. #12
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    Ho provato ad inserire i dati con le formule preparate, ma quando inserisco il codice e la stringa dell'indirizzo cambia, non succede nulla. Se inserisco un indirizzo a mano ( nella casella M6) mi dice che l'indirizzo è sbagliato. Ho alleggerito il file e lasciato i dati non sensibili cosi che si possa provare il file corretto.
    I codici che ho lasciato sono V01463 e v01046, cosi puoi fare delle prove.
    :167:
    Invia MPPM 

  14. #13

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Citazione Originariamente Scritto da dorico75 Visualizza Messaggio
    Ho provato ad inserire i dati con le formule preparate, ma quando inserisco il codice e la stringa dell'indirizzo cambia, non succede nulla. Se inserisco un indirizzo a mano ( nella casella M6) mi dice che l'indirizzo è sbagliato. Ho alleggerito il file e lasciato i dati non sensibili cosi che si possa provare il file corretto.
    I codici che ho lasciato sono V01463 e v01046, cosi puoi fare delle prove.
    :167:
    Non vedo il nuovo file allegato...

    Comunque adesso sono al lavoro e non ho il pc.
    Lo guarderò appena posso.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  15. #14
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    scusa! non me lo fa inviare. e' troppo pesante:62:
    Invia MPPM 

  16. #15
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Non vedo il nuovo file allegato...

    Comunque adesso sono al lavoro e non ho il pc.
    Lo guarderò appena posso.
    Tranquillo, ci mancherebbe! a tuo tempo libero :18::18:
    Invia MPPM 

  17. #16

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Utilizza un sito per la condivisione dei file (come DropCanvas) e incolla qui il link per scaricare il file.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  18. #17
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    mi rendo sempre più conto di quanto sono ignorante :176:
    Ecco il file
    http://dropcanvas.com/0aj5e
    Invia MPPM 

  19. #18

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ciao dorico,
    certo che hai proprio intenzione di farmi impazzire... :167:
    Il file che hai allegato fa riferimento ad altri file che hai sul tuo pc quindi da me non li trova.

    Nel "Foglio 1" nel range "D1:D6" ho messo dei codici, mentre nella colonna accanto ci sono i link delle immagini.

    L'unica cosa che ho cambiato nel codice è questa (in rosso):

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    
    
    If Not Intersect(Target, Range("M4")) Is Nothing Then
        Call Immagine
    End If
    End Sub
    Cioè il codice parte al cambiamento della cella M4 e non più della M6.

    Nel "Foglio 3" ho aggiunto un convalida dati alla cella M4 quindi devi solo scegliere un codice e l'immagine sarà importata.
    Naturalmente non sarà "immediata" perchè deve pur sempre scaricare qualcosa dal web (sarebbe meglio avere già le immagini in una cartella del proprio pc).

    Puoi scaricare il file da qui:
    http://dropcanvas.com/q3r64

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  20. #19
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    Sei un drago.. ma evidentemente era tutto troppo semplice per te ;-)
    Quindi non ti ho ancora fatto impazzire.
    :167:
    Ora però ho da chiederti altri due aiutini.
    1- E' possibile fare in modo che la foto caricata si apra sempre nella stesa posizione e con le stesse dimensioni ( in pratica che si ridimensioni automaticamente)
    2- devo riprodurre la stessa procedura su altre immagini all'interno dello stesso foglio ( in pratica devo inserire su uno stesso foglio due immagini.
    Non ti chiedo di farlo tu... ( anche se la tentazione è forte :167:) ma potresti spiegarmi Passo passo come hai fatto? Con parole moooooolto semplici?
    Intanto grazie.. per tutto.
    Invia MPPM 

  21. #20

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Citazione Originariamente Scritto da dorico75 Visualizza Messaggio
    Sei un drago.. ma evidentemente era tutto troppo semplice per te ;-)
    Quindi non ti ho ancora fatto impazzire.
    :167:
    Ora però ho da chiederti altri due aiutini.
    1- E' possibile fare in modo che la foto caricata si apra sempre nella stesa posizione e con le stesse dimensioni ( in pratica che si ridimensioni automaticamente)
    2- devo riprodurre la stessa procedura su altre immagini all'interno dello stesso foglio ( in pratica devo inserire su uno stesso foglio due immagini.
    Non ti chiedo di farlo tu... ( anche se la tentazione è forte :167:) ma potresti spiegarmi Passo passo come hai fatto? Con parole moooooolto semplici?
    Intanto grazie.. per tutto.
    Ciao,

    per quanto riguarda il primo "aiutino", il codice al momento fa esattamente questo.... importa l'immagine nella stessa posizione e la ridimensiona:

    le righe in rosso sono per la posizione mentre quelle in blu per la dimensione:

    Codice: 
    With Selection
        .Left = ActiveWindow.VisibleRange.Columns(2).Left
        .Top = ActiveWindow.VisibleRange.Rows(5).Top
        .ShapeRange.Height = 209
        .ShapeRange.Width = 430
    End With
    Per la seconda domanda.... cosa vuoi sapere di preciso?

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  22. #21
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    probabilmente ho fatto qualche pasticcio io, ora ci riprovo.
    Per quanto riguarda quello che vorrei sapere, è che vorrei poter ripetere la stessa procedura in con altre due o più immagini, cosi da poter realizzare una stampa con più foto.
    Purtroppo io non ho capito come si fa. quindi come e dove inserire il codice e capire quali modifiche devo apportare.
    Invia MPPM 

  23. #22

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Citazione Originariamente Scritto da dorico75 Visualizza Messaggio
    probabilmente ho fatto qualche pasticcio io, ora ci riprovo.
    Ciao,
    in effetti il codice di prima prendeva come riferimento la parte visibile del foglio, quindi se non eri posizionato correttamente (cioè vedere il foglio dalla prima riga) la posizione dell'immagine veniva sfasata. Con il nuovo codice dovresti essere a posto.

    Per la spiegazione... non posso spiegarti come fare un codice da zero, dovresti informarti (guida vba o web) man mano che trovi qualche istruzione che non conosci. Il massimo che posso fare è aggiungere dei commenti nel codice (risulteranno in verde nell'editor VBA) per farti capire cosa fa ogni singola istruzione.

    Nel codice di prima c'era anche un altro problema (me son reso conto dopo vedendo che la dimensione del file aumentava sempre):
    in pratica ogni immagine importata si posizionava SOPRA quella precedente mentre la precedente doveva essere prima eliminata.

    Quindi, i nuovi codici da usare sono:

    -) nel modulo di classe del foglio:

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Celle As Range
    'Indico le celle che se modificate chiameranno la macro "Immagine"
    Set Celle = Range("M4,M21,M38")
    'Se una delle celle indicate prima viene modificata, verrà chiamata la macro
    If Not Intersect(Target, Celle) Is Nothing Then
        'qualcuna delle celle indicate prima è stata modificata quindi
        'la condizione è stata soddisfatta
        'Mi assicuro che la cella attiva sia quella con il convalida dati appena usato
        'in quanto questo riferimento mi servirà nella macro per poter posizionare
        'correttamente l'immagine
        Cells(Target.Row, Target.Column).Activate
        'Chiamo la macro "Immagine"
        Call Immagine
    End If
    'Mi posiziono nuovamente sulla cella che avevo modificato
    Cells(Target.Row, Target.Column).Activate
    Set Celle = Nothing
    End Sub
    -) questo è il codice vero e proprio (da mettere in un modulo standard):

    Codice: 
    Option Explicit
    
    
    Sub Immagine()
    Dim Indirizzo As String, Errore, Sinistra, Alto As Long, Sh As Shape
    
    
    'Prendo il link dalla cella che si trova due righe sotto la cella attiva
    Indirizzo = ActiveCell.Offset(2, 0).Value
    'Riferimento sinistro = il numero di colonna della cella che si trova 1 riga sotto
    'e 11 colonne a sinistrarispetto alla cella attiva
    Sinistra = ActiveCell.Offset(1, -11).Column
    'Riferimento sinistro = il numero di riga della cella che si trova 1 riga sotto
    'e 11 colonne a sinistrarispetto alla cella attiva
    Alto = ActiveCell.Offset(1, -11).Row
    'Se l'indirizzo non è corretto salta alla riga di codice "messaggio:"
    On Error GoTo messaggio
    'Importo l'immagine e la seleziono
    ActiveSheet.Pictures.Insert(Indirizzo).Select
    'Diasattivo il "rapporto delle proporzioni" per l'immagine selezionata
    Selection.ShapeRange.LockAspectRatio = msoFalse
    
    
    'Se non trova nessuna immagine (shape) da eliminare salta alla
    'riga di codice "salta_eliminazione:"
    On Error GoTo salta_eliminazione
    'Controlla se c'è un'immagine da cancellare nella posizione in cui
    'andrà posizionata la nuova immagine importata
    For Each Sh In ActiveSheet.Shapes
        If Not Application.Intersect(Sh.TopLeftCell, Range(Cells(Alto, Sinistra), Cells(Alto + 1, Sinistra + 1))) Is Nothing Then
            Sh.Delete
        End If
    Next
    salta_eliminazione:
    'Indico dove posizionare e come ridimensionare l'immagine selezionata
    With Selection
        'posizione del bordo sinistro/alto dell'immagine
        .Left = ActiveSheet.Columns(Sinistra).Left
        .Top = ActiveSheet.Rows(Alto).Top
        'dimensione dell'altezza e della larghezza dell'immagine (209 e 430)
        .ShapeRange.Height = 209
        .ShapeRange.Width = 430
    End With
    
    
    Exit Sub
    messaggio:
    Errore = MsgBox("Non è possibile caricare l'immagine. Accertarsi che l'indirizzo sia corretto.", vbCritical, "ERRORE")
    
    
    End Sub
    Ti riallego il file (nel foglio puoi scegliere 3 immagini, giusto per farti capire come poterne aggiungere altre):
    http://dropcanvas.com/74bpr

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  24. #23
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    Per ora ti ringrazio tantissimo, ora provo a spupazzarmi sto codice nella speranza di capirci qualcosa.
    Ti farò sapere cmq, sia che ci sia riuscito che no. Ma in quel caso la mia missione di farti impazzire potrebbe continuare :235:
    Intanto davvero grazie! :32:
    Invia MPPM 

  25. #24
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    Ciao CroMAgno,
    sono davvero ad un buon punto e ti ringrazio tantissimo per l'aiuto.
    Però ti devo fare ancora 2 domande, scusami tanto.
    1: dopo aver effettuato le modifiche ho salvato il tutto per poi rilavorarci oggi da un altro pc, ma non funziona. ho provato a riscaricare anche l'ultimo file tuo, ma non funziona . In pratica non legge il menu elenco con i codici (cella M4) e soprattutto non cambia l'immagine. Hai qualche idea? qui uso office2007 ( In quello ch eho usato ieri era il 2014). E' come se da questo pc non si attivassero queste funzioni ( quando apro il file dò la conferma di attivazione)
    2: Come faccio per fare in modo di inserire più immagini in posizioni diverse? Ho capito che tramite il modulo 1 posso indicare la posizione in riferimento della cella attiva, ma se per esempio volessi indicare un'altra posizione per la seconda immagine? ( es. immagine 1 riferimento cella M4 posizione 1 riga sotto e 11 a sinistra. immagine 2 cella N4 posizione 10 righe sotto e 13 a sinistra)
    Ancora troppo facile per te? :167::167:
    Invia MPPM 

  26. #25

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Citazione Originariamente Scritto da dorico75 Visualizza Messaggio
    1: dopo aver effettuato le modifiche ho salvato il tutto per poi rilavorarci oggi da un altro pc, ma non funziona. ho provato a riscaricare anche l'ultimo file tuo, ma non funziona . In pratica non legge il menu elenco con i codici (cella M4) e soprattutto non cambia l'immagine. Hai qualche idea? qui uso office2007 ( In quello ch eho usato ieri era il 2014). E' come se da questo pc non si attivassero queste funzioni ( quando apro il file dò la conferma di attivazione)
    Questo potrebbe dipendere da fatto che le macro non sono attivate (anche se hai detto che dai la conferma di attivazione)...dovresti controllare nelle "impostazioni centro protezione..." di excel.

    Citazione Originariamente Scritto da dorico75 Visualizza Messaggio
    2: Come faccio per fare in modo di inserire più immagini in posizioni diverse? Ho capito che tramite il modulo 1 posso indicare la posizione in riferimento della cella attiva, ma se per esempio volessi indicare un'altra posizione per la seconda immagine? ( es. immagine 1 riferimento cella M4 posizione 1 riga sotto e 11 a sinistra. immagine 2 cella N4 posizione 10 righe sotto e 13 a sinistra)
    Beh... non vorrei sembrare scortese ma ti dovresti decidere su quello che vuoi.
    Te lo dico per il semplice fatto che se non sei in grado di modificare il codice, ad ogni minimo cambiamento che vorrai effettuare sarai costretto a chiedere aiuto e se in molti mettono mano ad un codice non sempre lo si migliora....
    A questo punto potresti tenere un solo convalida dati (cella M4) ed al momento dell'inserimento dell'immagine usare una "InputBox" dove scriverai direttamente l'indirizzo della cella dove vuoi che si collochi l'angolo alto sinistro dell'immagine.

    Citazione Originariamente Scritto da dorico75 Visualizza Messaggio
    Ancora troppo facile per te? :167::167:
    Non direi :176:
    sono ancora in fase di apprendimento e utilizzo le domande del forum per cercare di apprendere nuove cose (l'importazione delle immagini non l'avevo mai trattata).

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  27. #26
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    be mi pare che apprendi molto bene!:286:
    Per rispondere alla tua puntualizzazione, hai ragione perfettamente.Sto provando ad imparare anche io, ma probabilmente ho delle lacune di base che mi impediscono di muovermi come vorrei.
    Comunque ritornando alla questione, quello che vorrei è ottenere un foglio da stampare, dove poter inserire due o più immagini. Quello che tu mi hai impostato, è eccezionale, ma ha solo il limite di posizionarmi la foto sempre nella stessa posizione rispetto la cella di riferimento.
    Quello che vorrei ottenere è inserire nelle celle m4,n4 e o4 3 codici diversi, che andranno a posizionare le immagini in 3 posizioni differenti e scollegate l'una dall'altra. (es l'immagine del codice m4 andrà nella cella n3, quella della N4 andrà nella cella n20 e la o4 nella cella p4 ( sono celle di riferimento a caso, poi la posizione esatta la posso modificare io)
    Giuro che se mi dai una mano con questa, poi non ti stresso più... per questo motivo :166:
    Invia MPPM 

  28. #27

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Prova in questo modo.....

    quando scegli un codice da uno dei menu a tendina ti apparirà una "finestra" che ti chiede dove vuoi posizionare l'immagine. Qui dovrai mettere l'indirizzo della cella dove vuoi che si posizioni l'angolo alto sinistro dell'immagine (es. potresti scrivere C7).

    Se scegli una posizione dove si trova già un'altra immagine (cioè se inserisci due volte lo stesso indirizzo di cella), l'immagine già presente verrà eliminata.

    Nel codice sono state cambiate queste righe (in rosso):

    Codice: 
    Sub Immagine()
    Dim Indirizzo As String, Errore, Sinistra, Alto As Long, Sh As Shape
    Dim Posizione As String
    
    
    Posizione = InputBox("Inserire l'indirizzo della cella dove si vuole posizionare " & _
    "l'immagine.", "POSIZIONE IMMAGINE")
    'Prendo il link dalla cella che si trova due righe sotto la cella attiva
    Indirizzo = ActiveCell.Offset(2, 0).Value
    'Se l'indirizzo (cella o link) non è corretto salta alla riga di codice "messaggio:"
    On Error GoTo messaggio
    'Riferimento sinistro = il numero di colonna dell'indirizzo di cella inserito
    Sinistra = Range(Posizione).Column
    'Riferimento sinistro = il numero di riga dell'indirizzo di cella inserito
    Alto = Range(Posizione).Row
    
    
    
    'Importo l'immagine e la seleziono
    ActiveSheet.Pictures.Insert(Indirizzo).Select
    'Diasattivo il "rapporto delle proporzioni" per l'immagine selezionata
    Selection.ShapeRange.LockAspectRatio = msoFalse
    
    
    'Se non trova nessuna immagine (shape) da eliminare salta alla
    'riga di codice "salta_eliminazione:"
    On Error GoTo salta_eliminazione
    'Controlla se c'è un'immagine da cancellare nella posizione in cui
    'andrà posizionata la nuova immagine importata
    For Each Sh In ActiveSheet.Shapes
        If Not Application.Intersect(Sh.TopLeftCell, Range(Cells(Alto, Sinistra), Cells(Alto + 1, Sinistra + 1))) Is Nothing Then
            Sh.Delete
        End If
    Next
    salta_eliminazione:
    'Indico dove posizionare e come ridimensionare l'immagine selezionata
    With Selection
        'posizione del bordo sinistro/alto dell'immagine
        .Left = ActiveSheet.Columns(Sinistra).Left
        .Top = ActiveSheet.Rows(Alto).Top
        'dimensione dell'altezza e della larghezza dell'immagine (209 e 430)
        .ShapeRange.Height = 209
        .ShapeRange.Width = 430
    End With
    
    
    Exit Sub
    messaggio:
    Errore = MsgBox("Non è possibile caricare l'immagine. Accertarsi che l'indirizzo (cella o link) sia corretto.", vbCritical, "ERRORE")
    
    
    End Sub
    File:
    http://dropcanvas.com/zezlu

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  29. #28
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    Caro CROMAGNO mi inchino a te!:274:
    Mi hai fatto un favore enorme,grazie mille.
    Credo che ora sia davvero tutto.
    ora mi divertirò ad effettuare qualche aggiustamento di qua e di la, ma per il più è fatta.
    Grazie ancora!!!! :18:
    Invia MPPM 

  30. #29

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Citazione Originariamente Scritto da dorico75 Visualizza Messaggio
    Caro CROMAGNO mi inchino a te!:274:
    Mi hai fatto un favore enorme,grazie mille.
    Credo che ora sia davvero tutto.
    ora mi divertirò ad effettuare qualche aggiustamento di qua e di la, ma per il più è fatta.
    Grazie ancora!!!! :18:
    L'importante è che alla fine ci siamo riusciti :)
    Se hai "risolto" dovresti segnare questo thread come "RISOLTO".

    Ciao
    Tore

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  31. #30
    L'avatar di dorico75
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    ancona
    Età
    42
    Messaggi
    50
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    1
    Ciao Cromagno, stavo aspettando di fare dei test per mettere "risolto", ma ho visto che lo hai fatto tu.
    Senti un'ultima cosa.
    Il codice dell'immobile in cartella M4 viene proposto tra quelli di un menu a cascata. E' possibile inserire solo un riferimento che copi il dato di un'altra cella tipo la M1?
    ho provato ad inserire la funzioni =m1 nella cella "M4", anche con "convalida dati".
    Ma poi non mi carica più l'immagine.
    grazie.
    Invia MPPM 

Discussioni Simili

  1. [Risolto] Inserire immagini con sfoglia
    Di geometrak nel forum Domande su Microsoft Access
    Risposte: 14
    Ultimo Messaggio: 13/02/17, 11:40
  2. Inserire Immagini (dinamiche) in funzione di valore in colonna
    Di AiaceT nel forum Domande su Excel VBA e MACRO
    Risposte: 16
    Ultimo Messaggio: 10/02/17, 23:02
  3. Inserire immagini in tabella in maniera degnosa
    Di sitolofi nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 04/01/17, 13:31
  4. impoortare due immagini diverse da file esterno in posizioni diverse
    Di dorico75 nel forum Domande su Excel VBA e MACRO
    Risposte: 15
    Ultimo Messaggio: 04/04/16, 10:02
  5. (video tutorial) Come inserire immagini statiche .gif .jpg. .png da URL www.imgur.com
    Di Gerardo Zuccalà nel forum Domande su Excel in generale
    Risposte: 0
    Ultimo Messaggio: 14/07/15, 13:33

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •