Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("foglio1").Pictures("foto1").Visible = False
Sheets("foglio1").Pictures("foto2").Visible = False
If ActiveSheet.Range("a1") = 1 Then
Sheets("foglio1").Pictures("foto1").Visible = True
With Pictures("foto1")
.ShapeRange.LockAspectRatio = msoFalse
.Height = 100
.Width = 100
End With
End If
If ActiveSheet.Range("a1") = 2 Then
Sheets("foglio1").Pictures("foto2").Visible = True
With Pictures("foto2")
.ShapeRange.LockAspectRatio = msoFalse
.Height = 100
.Width = 100
End With
End If
End Sub
Ciao a tutti dovrei adattare questa macro per cambio immagine anche nel foglio2!
Si tratta della stessa immagine da inserire nel foglio1 e nel foglio2!
Grazie