Graphique camembert

Objectif

Sur la feuille1 et à partir des données de la plage A1:B3, créer un graphique en secteur.

Code

Sub Cree_Camembert
  Dim sGraph as variant
  sGraph = zGraph.Demarre("Test", "Feuille1", "A1:B3")
  zGraph.Modele(sGraph, "Secteur", "Normal")	
  zGraph.Propriete(sGraph, "Titre", "Planning")
  zGraph.Propriete(sGraph, "Largeur", "10000")
  zGraph.Termine(sGraph, "Feuille1", "B5")
End sub