Graphique avec un motif de fond personnalisé

Sub GraphAvecMotif
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	Dim oGraph as variant
 
	sNom = "Logo"
	sFicTmp = ConvertToUrl(zBasic.Chemin("RepTemp") & sNom & ".png")
	zImage.Exporte(sFicTmp, sNom, "Feuille2")
	if not FileExists(sFicTmp) then exit sub
	zImage.MotifAjoute(sFicTmp, sNom)

	oGraph = zGraph.Demarre("Test", "Feuille1", "A1:C4")
	zGraph.Modele(oGraph, "Colonne", "Normal")	
	zGraph.Propriete(oGraph, "Titre", "Test")
	zGraph.Propriete(oGraph, "Largeur", "10000")
	zGraph.Propriete(oGraph, "ParoiImage", sNom)
	zGraph.Termine(oGraph, "Feuille1", "B6")
End Sub

• Télécharger le document exemple : Fichier:ZGraph BitmapParoi.ods