Elenco con scelta loghi

[luca_061088]

Buongiorno

vi pongo il mio problema

Ho un foglio Excel dove vorrei creare un'elenco con i nomi di diversi loghi di clienti. Una volta selezionato il logo vorrei che venisse inserito su tutti i foglio excel o come intestazione oppure in una cella apposita o in una casella di testo, come potrei fare?

parliamo di excel 2010

Grazie mille
Luca

[ricky53]

Ciao,
per capire:
tu hai già un file in cui hai predisposto un foglio excel ce contiene in una colonna i nomi dei loghi dei tuoi clienti ed in un'altra l'immagine dei loghi corrispondenti ?

Se "SI" tu vorresti, dopo aver selezionato una di queste immagini, copiarla nella cella "A1" di tutti i fogli del file attivo ?

[luca_061088]

No i loghi sono tutti in una cartella sul desktop, io ho l'elenco dei clienti sul foglio ma i loghi esterni al foglio

[Anthony47]

Su un foglio creati un elenco di file che corrispondono ai logo dei tuoi clienti; ad esempio da E2 ad E20; se i nomi file non sono autoesplicativi allora nella colonna adiacente scrivi in chiaro a chi appartengono.
Sullo stesso foglio indica ad esempio in A1 il percorso in cui quei file sono presenti; DEVE terminare con "\".
Poi fai tasto dx sul tab col nome del foglio su cui hai inserito queste informazioni, scegli Visualizza codice; ti si apre l' editor delle macro; copia questo codice e inseriscilo nel frame vuoto di dx:

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myPath As String, myLogo As String, myDest As String, newLogo As Shape
Dim xPos As Long, yPos As Long, myW As Long, I As Long
'
'NOTA: myPath DEVE TERMINARE con "\"
myPath = "A1"       '<< La cella di Foglio1 in cui e' posizionato il "PERCORSO" delle foto
mylist = "E2:E20"   '<< L' intervallo di Foglio1 in cui sono presenti i nomi dei File "logo"
myDest = "B2"       '<< La cella in cui, su ogni foglio sara' inserito il logo
'
If Application.Intersect(Range(mylist), Target) Is Nothing Then Exit Sub
'
Cancel = True
myLogo = Range(myPath).Value & Target.Value & ".jpg"      '***1
'
For I = 1 To Worksheets.Count
    With Sheets(I)
        On Error Resume Next
            .Shapes("Logo_Logo").Delete
        On Error GoTo 0
        xPos = .Range(myDest).Left             'calcola la posizione left
        yPos = .Range(myDest).Top              'calcola la posizione top
        myW = .Range(myDest).Width
        myh = .Range(myDest).Height
        Set newLogo = .Shapes.AddPicture(myLogo, False, True, xPos, yPos, -1, -1)
        With newLogo
            .Name = "Logo_Logo"
            .LockAspectRatio = msoTrue
            .Width = myW * 2              '***2 Vedi testo
            .Locked = True
        End With
    End With
Next I
End Sub

Personalizza le istruzioni marcate <<.
Revisiona anche le istruzioni marcate ***
-La ***1 inserisce ".jpg" in coda al nome file; se nel tuo elenco l' estensione e' gia' presene allora elimina la parte & ".jpg"
-La ***2 imposta la larghezza immagine; quella che ho inserito imposta la larghezza del logo pari al doppio della larghezza cella di destinazione, ma e' una scelta arbitraria. Tu puoi cancellare in toto la riga, e allora l' immagine mantiene le dimensioni del file di origine; oppure puoi scegliere una larghezza fissa (es .Width = 200); oppure puoi impostare l' altezza (.Height = xyzz) e avere la larghezza in proporzione.

Operativamente, vai sul foglio in cui hai impostato i parametri e fai doppioclick sulla cella con un nome file; la macro inserira' l' immagine della riga su ogni foglio del tuo file.

Fai sapere se risolvi cosi', ciao.

[luca_061088]

Su un foglio creati un elenco di file che corrispondono ai logo dei tuoi clienti; ad esempio da E2 ad E20; se i nomi file non sono autoesplicativi allora nella colonna adiacente scrivi in chiaro a chi appartengono.
Sullo stesso foglio indica ad esempio in A1 il percorso in cui quei file sono presenti; DEVE terminare con "\".
Poi fai tasto dx sul tab col nome del foglio su cui hai inserito queste informazioni, scegli Visualizza codice; ti si apre l' editor delle macro; copia questo codice e inseriscilo nel frame vuoto di dx:

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myPath As String, myLogo As String, myDest As String, newLogo As Shape
Dim xPos As Long, yPos As Long, myW As Long, I As Long
'
'NOTA: myPath DEVE TERMINARE con "\"
myPath = "A1"       '<< La cella di Foglio1 in cui e' posizionato il "PERCORSO" delle foto
mylist = "E2:E20"   '<< L' intervallo di Foglio1 in cui sono presenti i nomi dei File "logo"
myDest = "B2"       '<< La cella in cui, su ogni foglio sara' inserito il logo
'
If Application.Intersect(Range(mylist), Target) Is Nothing Then Exit Sub
'
Cancel = True
myLogo = Range(myPath).Value & Target.Value & ".jpg"      '***1
'
For I = 1 To Worksheets.Count
    With Sheets(I)
        On Error Resume Next
            .Shapes("Logo_Logo").Delete
        On Error GoTo 0
        xPos = .Range(myDest).Left             'calcola la posizione left
        yPos = .Range(myDest).Top              'calcola la posizione top
        myW = .Range(myDest).Width
        myh = .Range(myDest).Height
        Set newLogo = .Shapes.AddPicture(myLogo, False, True, xPos, yPos, -1, -1)
        With newLogo
            .Name = "Logo_Logo"
            .LockAspectRatio = msoTrue
            .Width = myW * 2              '***2 Vedi testo
            .Locked = True
        End With
    End With
Next I
End Sub

Personalizza le istruzioni marcate <<.
Revisiona anche le istruzioni marcate ***
-La ***1 inserisce ".jpg" in coda al nome file; se nel tuo elenco l' estensione e' gia' presene allora elimina la parte & ".jpg"
-La ***2 imposta la larghezza immagine; quella che ho inserito imposta la larghezza del logo pari al doppio della larghezza cella di destinazione, ma e' una scelta arbitraria. Tu puoi cancellare in toto la riga, e allora l' immagine mantiene le dimensioni del file di origine; oppure puoi scegliere una larghezza fissa (es .Width = 200); oppure puoi impostare l' altezza (.Height = xyzz) e avere la larghezza in proporzione.

Operativamente, vai sul foglio in cui hai impostato i parametri e fai doppioclick sulla cella con un nome file; la macro inserira' l' immagine della riga su ogni foglio del tuo file.

Fai sapere se risolvi cosi', ciao.

Allora, così funziona (anche se non con tutti i loghi che ho nella cartella, facendo un debug mi da questa riga"Set newLogo = .Shapes.AddPicture(myLogo, False, True, xPos, yPos, -1, -1)" in giallo), solo una cosa, se io volessi in Heigh, mettere un'altezza fissa e il Width farglielo impostare a lui di conseguenza, da lui da solo la proporzione, si può fare? perchè i loghi non hanno una dimensione uguale per tutti, quindi io do alla macro a tutti un 20 di altezza e poi la larghezza la imposta lui di conseguenza. si può fare?

[luca_061088]

Su un foglio creati un elenco di file che corrispondono ai logo dei tuoi clienti; ad esempio da E2 ad E20; se i nomi file non sono autoesplicativi allora nella colonna adiacente scrivi in chiaro a chi appartengono.
Sullo stesso foglio indica ad esempio in A1 il percorso in cui quei file sono presenti; DEVE terminare con "\".
Poi fai tasto dx sul tab col nome del foglio su cui hai inserito queste informazioni, scegli Visualizza codice; ti si apre l' editor delle macro; copia questo codice e inseriscilo nel frame vuoto di dx:

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myPath As String, myLogo As String, myDest As String, newLogo As Shape
Dim xPos As Long, yPos As Long, myW As Long, I As Long
'
'NOTA: myPath DEVE TERMINARE con "\"
myPath = "A1"       '<< La cella di Foglio1 in cui e' posizionato il "PERCORSO" delle foto
mylist = "E2:E20"   '<< L' intervallo di Foglio1 in cui sono presenti i nomi dei File "logo"
myDest = "B2"       '<< La cella in cui, su ogni foglio sara' inserito il logo
'
If Application.Intersect(Range(mylist), Target) Is Nothing Then Exit Sub
'
Cancel = True
myLogo = Range(myPath).Value & Target.Value & ".jpg"      '***1
'
For I = 1 To Worksheets.Count
    With Sheets(I)
        On Error Resume Next
            .Shapes("Logo_Logo").Delete
        On Error GoTo 0
        xPos = .Range(myDest).Left             'calcola la posizione left
        yPos = .Range(myDest).Top              'calcola la posizione top
        myW = .Range(myDest).Width
        myh = .Range(myDest).Height
        Set newLogo = .Shapes.AddPicture(myLogo, False, True, xPos, yPos, -1, -1)
        With newLogo
            .Name = "Logo_Logo"
            .LockAspectRatio = msoTrue
            .Width = myW * 2              '***2 Vedi testo
            .Locked = True
        End With
    End With
Next I
End Sub

Personalizza le istruzioni marcate <<.
Revisiona anche le istruzioni marcate ***
-La ***1 inserisce ".jpg" in coda al nome file; se nel tuo elenco l' estensione e' gia' presene allora elimina la parte & ".jpg"
-La ***2 imposta la larghezza immagine; quella che ho inserito imposta la larghezza del logo pari al doppio della larghezza cella di destinazione, ma e' una scelta arbitraria. Tu puoi cancellare in toto la riga, e allora l' immagine mantiene le dimensioni del file di origine; oppure puoi scegliere una larghezza fissa (es .Width = 200); oppure puoi impostare l' altezza (.Height = xyzz) e avere la larghezza in proporzione.

Operativamente, vai sul foglio in cui hai impostato i parametri e fai doppioclick sulla cella con un nome file; la macro inserira' l' immagine della riga su ogni foglio del tuo file.

Fai sapere se risolvi cosi', ciao.

Allora, così funziona

una cosa, se io volessi in Heigh, mettere un'altezza fissa e il Width farglielo impostare a lui di conseguenza, da lui da solo la proporzione, si può fare? perchè i loghi non hanno una dimensione uguale per tutti, quindi io do alla macro a tutti un 20 di altezza e poi la larghezza la imposta lui di conseguenza. si può fare?

[Anthony47]

se io volessi in Heigh, mettere un'altezza fissa e il Width farglielo impostare a lui di conseguenza, da lui da solo la proporzione, si può fare?

Veramente l' ho gia' detto:
"puoi cancellare in toto la riga, e allora l' immagine mantiene le dimensioni del file di origine; oppure puoi scegliere una larghezza fissa (es .Width = 200); oppure puoi impostare l' altezza (.Height = xyzz) e avere la larghezza in proporzione"
Quindi cancella la riga .Width = myW * 2 e mettici

Codice: Seleziona tutto

.Height = 20

Ciao

[luca_061088]

Ah ok Ti ringrazio Anthony, gentilissimo, e scusami per la mia svista

Luca

[luca_061088]

Ah ok Ti ringrazio Anthony, gentilissimo, e scusami per la mia svista

Luca

un'ultima cosa scusami. quando clicco su alcuni clienti/loghi (non su tutti) mi dice:

errore di run-time '1004':

errore definito dall'applicazione o dall'oggetto

premendo su debug mi da in giallo questa riga:

Codice: Seleziona tutto

Set newLogo = .Shapes.AddPicture(myLogo, False, True, xPos, yPos, -1, -1)

Ho controllato se il nome del cliente corrispondesse al nome corretto del logo e sono tutti giusti.

Luca

[Anthony47]

Evidentemente "sembrano uguali" ma sono diversi...
Prova dopo aver "rinominato" il file sul disco, riscrivendo tutti i caratteri (in particolare eventuali "spazi").

Ciao