Immagine su Foglio "Certificato"

[DodiPartecipante Dodi Karma: 2 pts]

Buona sera a tutti, 

chiedo il vostro aiuto; 

ho un file con il foglio "Dati" e Foglio "Certificato", 

Nell'editor Vba ho scritto il seguente codice per far comparire l'immagine;

il  codice è il seguente :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dati.Pictures.Delete
    Dati.Pictures.Insert("C:\Users\Desktop\Pictures\" & Cells(1, 1) & ".png").Select
    With Selection
        .Left = 25
        .Top = 25
        .Width = 100
        .Height = 100
    End With
End Sub

in pratica 

nella cella A1 del foglio "Dati"  da un elenco a discesa seleziono un comune, e mi compare il Logo attingendo da una cartella Pictures che si trova sul mio desktop, il codice funziona perfettamente facendomi comparire il logo del comune selezionato. 

chiedo il  vostro aiuto e vengo al dunque. 

In pratica quello che vorrei è selezionare sul foglio "Dati" il comune  nella cella A1 (evidenziato in giallo") 

ma vorrei che il logo, anzi che comparire nel foglio "Dati" vorrei che comparisse nel foglio "Certificato". 

qualcuno di voi potrebbe gentilmente aiutami a integrare il codice in modo tale da ottenere il risultato che voglio? 

 

grazie mille anticipatamente. allego file 

 

Edit by VF: ho sistemato il codice in un formato più leggibile

Allegati:

You must be logged in to view attached files.

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Ho fatto la modifica che mi sembra più appropriata. Raccomando come sempre di utilizzare Option Explicit in testa ai moduli. Inoltre probabilmente manca il nome utente nel percorso che hai indicato per l'immagine, ma può darsi che mi sbaglio.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim p As Object

    Certificato.Pictures.Delete
   
    Set p = Certificato.Pictures.Insert("C:\Users\...\Pictures\" & Cells(1, 1) & ".png")
    
    With Worksheets("Certificato").Shapes(p.Name)
        .Left = 25
        .Top = 25
        .Width = 100
        .Height = 100
    End With

End Sub

[DodiPartecipante Dodi Karma: 2 pts]

Grazie mille Vecchio frac.

funziona perfettamente, nel percorso hai ragione manca il nome utente. 

che nel trascrivere il codice ho saltato involontariamente. 

 

grazie 

[Autore]

Articoli