Inserimento immagini dinamiche in Excel 2007

Mauro anche la tua risposta del 9 gennaio è stata molto utile. Ti chiedo un'altra cosa di ordine generale. Il modulo che hai usato è un active-x combo-box se non erro. Come hai fatto a mettere il controllo direttamente nella cella, tanto che non è selezionabile? Come faccio a modificare le proprietà?

Volevo provare anche a mettere un altro modulo ma non riesco a capire come associare la cella, il modulo e la macro...

Scusa lo so che sono cose di base...

Saluti,

Alessio.

Ho testato le righe che mi hai scritto e il programma funziona benissimo.

Purtroppo nel frattempo è sorto un altro inconveniente,nel senso che avrei la necessita di specificare ,distinatmente,le dimensioni delle immagini visualizzate in C2 e C13.

Se riesci a fare il miracolo..........

Grazie

Questo è il codice che sto usando:

...

Ciao,

dal cappello mi è uscito questo. ;)

Modifica, però, le dimensioni delle immagini 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

picName = vbNullString

On Error Resume Next

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

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

dWidth = 70     ' larghezza in mm

dHeight = 50    ' altezza   in mm

picName = Target.Value

celImage = "C2"

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

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

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

dWidth = 70     ' larghezza in mm

dHeight = 50    ' altezza   in mm

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

Ho testato le righe che mi hai scritto e il programma funziona benissimo.

Purtroppo nel frattempo è sorto un altro inconveniente,nel senso che avrei la necessita di specificare ,distinatmente,le dimensioni delle immagini visualizzate in C2 e C13.

Se riesci a fare il miracolo..........

Grazie

Questo è il codice che sto usando:

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

Mauro mi puoi dare qualche info in più su come funziona il posizionamento dell'immagine? Come viene stabilito dove mettere l'immagine? 

Grazie,

Alessio

Il controllo si modifica a seconda della dimensione dell'immagine con questa istruzione che trovi nel codice:

Me.Image1.AutoSize = True

Il controllo può essere posizionato via codice dove vuoi. Ad esempio queste righe (da inserire dopo la riga dell'Autosize, lo riposizionano al bordo sx e superiore della cella F10:

                Me.Image1.Top = Me.Range("F10").Top

                Me.Image1.Left = Me.Range("F10").Left

Se invece vuoi modificare la sua posizione *a mano*:

• Seleziona la scheda Sviluppo
• Pulsante: Modalità progettazione (il pulsante si evidenzia)
• Sposta il controllo Immage dove vuoi tu
• Nuovo click sul pulsante Modalità progettazione (il pulsante torna normale)