Inserimento immagini dinamiche in Excel 2007

Hi oligodrop,

Prova a sostituire:

    dWidth = "Foglio2!C1"  ' larghezza in mm

con:

           dWidth =ThisWorkbook.Sheets("Foglio2").Range("C1").Value

Oppure, se la cella C1 si trova sul foglio attivo:

          dWidth =Me.Range("C1").Value

===

Regards,

Norman

A distanza di oltre 1 anno rieccomi ;-))

Il foglio funziona benissimo e x questo ringrazio sempre l'autore;nel frattempo sarebbe insorta un'altra necessità.

questo è il codice:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim picName As String, celImage As String

Dim dWidth As Double, dHeight As Double

  picName = vbNullString

  On Error Resume Next

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

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

    dWidth = 625    ' larghezza in mm

    dHeight = 188  ' altezza   in mm

    picName = Target.Value

    celImage = "c4"

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

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

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

    dWidth = "Foglio2!C1"  ' larghezza in mm

    dHeight = 36.7 ' altezza   in mm

    picName = Target.Value

    celImage = "p5"

    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

...come si vede nella riga evidenziata ,avrei la necessità di impostare le dimensione dell'immagine dal contenuto di una determinata cella(nella fattispecie ho indicato c1 del foglio 2)

Purtroppo la modifica che ho fatto non funziona.

Ringrazio anticipatamente chi può aiutarmi

Ciao Mauro 

Ti chiedo, nel tuo esempio , non sono riuscito a capire come si possa spostare in una posizione diversa l'immagine,

la stringa da cambiare é:      Me.Image1.AutoSize = True - giusto?

per il resto sei state di grande aiuto

Grazie di una tua risposta

Saluti

Giovanni