Graphique avec barres en couleur dégradée

Sub Main
  GlobalScope.BasicLibraries.loadLibrary ("zBasic")
  sGraph = zGraph.Demarre("Test", "Feuille1", "A1:B8")
  zGraph.Modele(sGraph, "Colonne", "Normal")	
  zGraph.Propriete(sGraph, "Légende", "non")
  zGraph.Propriete(sGraph, "Largeur", 10000)
  zGraph.Propriete(sGraph, "Hauteur", 5000)
  zGraph.Propriete(sGraph, "DébutDegradé", "Magenta 5")
  zGraph.Propriete(sGraph, "FinirDegradé", "Vert 8")
  zGraph.Termine(sGraph, "", "A10")
End Sub