Inserimento immagini dinamiche in Excel 2007

Question

Ciao, vorrei sapere come fare per inserire un campo immagine il cui contenuto sia variabile al variare del contenuto di una determinata cella dello stesso foglio di lavoro. Ho provato con controllo immagine ActiveX ma non riesco, come posso fare?

Grazie mille

Answer 1

Ciao, vorrei sapere come fare per inserire un campo immagine il cui contenuto sia variabile al variare del contenuto di una determinata cella dello stesso foglio di lavoro. Ho provato con controllo immagine ActiveX ma non riesco, come posso fare?

Grazie mille

Se le immagini non sono molte, puoi partire da qui:

http://www.maurogsc.eu/esempiforum10/cambiaimmagini.zip

Se le immagini sono molte, meglio non tenerle nel foglio. Puoi partire da qui:

http://www.maurogsc.eu/esempiforum13/cambiaimmagini2.zip

Answer 2

Quest'ultimo file è esattamente quello che intendevo. Grazie!

Prego.

Andrea.

Answer 3

Quest'ultimo file è esattamente quello che intendevo. Grazie!

Answer 4

Quando invece la scelta dei prodotti è più piccola, preferirei "precaricare" nel foglio excel le immagini (anzicchè metterle in una cartella) di modo che posso inviare un solo file al cliente

Ciao,

vedi questo se ti è d'aiuto.

Andrea.

Answer 5

Salve. La ringrazio innanzitutto per la rapidità della sua risposta. Mi rendo conto che conosco VBA ancora troppo poco e mi attiverò per recuperare.

Le dico solo che ho provato il suo secondo evento, ma purtroppo non è esattamente quello che intendevo perchè intendevo avere due differenti ed inidipendenti celle con le immagini. Una comandata da A2 ed un'altra da A13.

La ringrazio ancora

Ciao,

una mia interpretazione. Modifica le righe evidenziate adattandole alle tue esigenze.

Andrea.

---

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngImmagine As Range

Dim sPath As String, sImageName As String

sPath = ThisWorkbook.Path & ""

'---------- quando cambia il contenuto della cella A2

If Target.Address = "$A$2" Then

'---------- indica qui il nome dell'immagine da caricare e la cella di destinazione dell'immagine

sImageName = sPath & "ImmagineQuandoCambiaA2.jpg"

Set rngImmagine = Me.Range("C2")

'---------- inserisce e posiziona l'immagine

With Me.Pictures.Insert(sImageName)

.Top = rngImmagine.Top

.Left = rngImmagine.Left

End With

'---------- quando cambia il contenuto della cella A13

ElseIf Target.Address = "$A$13" Then

'---------- indica qui il nome dell'immagine da caricare e la cella di destinazione dell'immagine

sImageName = sPath & "ImmagineQuandoCambiaA13.jpg"

Set rngImmagine = Me.Range("C13")

'---------- inserisce e posiziona l'immagine

With Me.Pictures.Insert(sImageName)

.Top = rngImmagine.Top

.Left = rngImmagine.Left

End With

End If

Set rngImmagine = Nothing

End Sub

---