Inserimento immagini dinamiche in Excel 2007

Grazie Mauro, ma non riesco proprio. Ho provato a mettere una immagine identica a quella di QuiQuoQua nella stessa cartella del foglio xls. L'immagine l'ho chiamata "Prova". Nell'elenco a tendina non compare. Se digito il nome del file nuovo inserito, mi dice "Valore immesso non valido. Un utente ha stabilito delle limitazioni per i valori che è possibile immettere nella cella"

Come posso fare?

Salve Mauro,

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

non riesco a modificarlo, mi sarebbe utilissimo ma ovviamente devo inserirci le immagini ed i nomi che mi servono. Possibile che sia protetto? Come si fa ad inserire nuove immagini?

Io uso Excell 2010

Scusi il disturbo,

Alessio.

Come puoi vedere ci sono delle immagini che devono trovarsi, in questo esempio, nella stessa directory del file di Excel.

Sul Foglio1 ho posizionato un controllo ActiveX Image.

Nel modulo di codice del Foglio1 intercetto l'evento Change della cella A2 e in base a quanto si trova nella cella, carico nel controllo Image la rispettiva immagine:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim s As String

    s = ThisWorkbook.Path & ""

    With Target

        If .Address = "$A$2" Then

            If .Value <> "" Then

                Me.Image1.Picture = _

                    LoadPicture(s & .Value & ".jpg")

                Me.Image1.AutoSize = True

            End If

        End If

    End With

End Sub

La cella A2 ha una semplice Convalida dati.

Salve Mauro,

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

non riesco a modificarlo, mi sarebbe utilissimo ma ovviamente devo inserirci le immagini ed i nomi che mi servono. Possibile che sia protetto? Come si fa ad inserire nuove immagini?

Io uso Excell 2010

Scusi il disturbo,

Alessio.

Sto usando questo foglio di excel sia su mac che su windows;funziona molto bene e per questo ringrazio pubblicamente l'autore.Avrei però la necessita di visualizzare le immagini con una certa  dimensione(magari espressa in millimetri)

questo è il codice attualmente in uso:

...

Ciao,

parerebbe il mio stile ...

Qui sotto la versione modificata con il ridimensionamento dell'immagine, modifica le dimensioni nelle righe evidenziate.

Andrea.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim picName As String, celImage As String

Dim dWidth As Double, dHeight As Double

'---------- imposta qui le dimensioni dell'immagine

dWidth = 70     ' larghezza in mm

dHeight = 50    ' altezza   in mm

picName = vbNullString

On Error Resume Next

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

picName = Target.Value

celImage = "C2"

ActiveSheet.Shapes("Immagine" & celImage).Delete

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

picName = Target.Value

celImage = "C13"

ActiveSheet.Shapes("Immagine" & celImage).Delete

End If

On Error GoTo 0

'---------- copia immagine dal foglio pict

If Len(picName) Then

Sheets("pict").Shapes(picName).Copy

Me.Range(celImage).Select

Me.Paste

Selection.ShapeRange(1).Name = "Immagine" & celImage

End If

'---------- ridimensiona immagine

With Me.Pictures("Immagine" & celImage)

.ShapeRange.LockAspectRatio = msoFalse

.Width = Application.CentimetersToPoints(dWidth / 10#)

.Height = Application.CentimetersToPoints(dHeight / 10#)

End With

Target.Select

End Sub