Dim nomImage As String
Dim IE As Object
Dim Hauteur As Single, Largeur As Single
nomImage = "C:\imageTemp.gif"
'supprime l'image si elle existe déja
If Dir(nomImage) <> "" Then Kill nomImage
'--------------------
'---- création du graphique
Application.ScreenUpdating = False
Charts.Add
With ActiveChart
.ChartType = xlLineMarkers
.SetSourceData Source:=Sheets("Feuil1").Range("A1:B5"), PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:="Feuil1"
End With
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "le graphique"
.HasLegend = True
.Legend.Position = xlLegendPositionRight
End With
ActiveChart.Export nomImage, "GIF" 'export du graphique au format image
Hauteur = Feuil1.ChartObjects(Feuil1.ChartObjects.Count).Height * 1.8
Largeur = Feuil1.ChartObjects(Feuil1.ChartObjects.Count).Width * 1.6
Sheets("Feuil1").ChartObjects(Sheets("Feuil1").ChartObjects.Count).Delete
Application.ScreenUpdating = True
'--------------------
'creation d'une fenêtre internet explorer pour visualiser l'image du graphique
Set IE = CreateObject("InternetExplorer.application")
IE.navigate "about:blank"
IE.document.Title = "mon graphique"
IE.addressbar = False
IE.MenuBar = False
IE.StatusBar = False
IE.Toolbar = False
IE.Width = Largeur
IE.Height = Hauteur
IE.Left = 120
IE.document.body.innerHTML = "<html><IMG SRC='" & nomImage & "'</html>"
IE.Visible = True
