Ciao
Mi sono incaponito a cercare di capire perchè fa quello strano comportamento.
Non ci sono riuscito 😭🤢 ma poi ... ho pianto un po' meno😢 perchè ho trovato un'altra via.
Questo il codice
Private Sub Cambia_Chart()
Dim sh As String, cht As String, grf As String
Dim percorso
On Error Resume Next 'elimina il grafico precedente, se esiste
Kill ActiveWorkbook.Path & "\" & "Grafico*" & ".gif"
On Error GoTo 0
sh = "Grafici"
cht = ComboBox1.Value
grf = "Grafico"
percorso = ActiveWorkbook.Path & "\" & grf & ".gif"
ActiveSheet.ChartObjects(cht).Activate
ActiveChart.Export Filename:=percorso, Filtername:="GIF"
Me.Image1.Picture = LoadPicture(percorso)
End Sub
Fai sapere. Ciao,
Mario