Graph : .makepicture

[copayo]

Bonjour à tous,

j'ai récupére ce code pour réaliser un graph, Il fait partie d'une librairie de code permettant de faire des graphs tres sympas.

malheuresement ce code bug. Y aurait il un problème de référence ? Si vous avez une idée

Merci par avance



Sub createChart()

Dim viewer As Object
Dim img As String

Dim cd As New ChartDirector.API

'The data for the chart
Dim data()
data = Array(90, 60, 65, 75, 40)

'The labels for the chart
Dim labels()
labels = Array('Speed', 'Reliability', 'Comfort', 'Safety', 'Efficiency')

'Create a PolarChart object of size 450 x 350 pixels
Dim c As PolarChart
Set c = cd.PolarChart(450, 350)

'Set center of plot area at (225, 185) with radius 150 pixels
Call c.setPlotArea(225, 185, 150)

'Add an area layer to the polar chart
Call c.addAreaLayer(data, &H9999FF)

'Set the labels to the angular axis as spokes
Call c.angularAxis().setLabels(labels)

'output the chart
Set viewer.Picture = c.makePicture()
'include tool tip for the chart
viewer.ImageMap = c.getHTMLImageMap('clickable', '', _
'title='{label}: score = {value}'') [file name=testgraphradar.zip size=9462]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testgraphradar.zip[/file]

 

[Ti_]

Pas évident de te répondre comme ça par que nous n'avons pas les dll référencées dans ton programme, mais en regardant juste le code, je suppose que tu as simplement oublié de déclarer sur quoi pointe ton objet viewer.

Il faut donc probablement que tu ajoutes une ligne du genre
set viewer = ObjetPointe

et seulement ensuite tu pourras écrire
set viewer.picture = c.MakePicture

 

[copayo]

salut Ti,

honoré d'avoir une réponse de ta part.

et avec le fichier en .cls ca t'aide ?

 

[copayo]

Ti,

j'ai récupré ce fichier
Ce lien n'existe plus

Je suis novice sur VB, moins depuis que je connais ce forum mais la ca me depasse.

Quand on installe le fichier il y a un fichier texte qui contient toute une bibliotheque de code + les fichier .cls

Je sais pas si tu connais, mais ca à l'air pas mal du tout

Si tu peux m'expliquer comment marche un projet importé ?

 

[Ti_]

ah ben ça c'est du direct !
pour que le programme tourne chez moi, il me faudrait toutes les références manquantes, à savoir :
chardirector (comchartdir.dll)
autochart.xla
et aspapi.dll

alors je ne sais pas si tout ça fait partie du même package, mais ça risque de déborder la limite des 50 ko...

 

[copayo]

c effectivement trop gros

mais si tu vas au lien que j'ai mis au dessus tu auras tout.

CA te tente de regarder ce que j'ai telecharger ?

 

[Ti_]

oui je suis en train de le charger, mais comme moi pas connaitre l'ADSL, il faut être un peu patient...

 

[copayo]

tu t'en sors Ti ?

 

[Ti_]

Pas de panique et un peu de patience !

Bon effectivement, très sympa cet outil, c'est dommage qu'il soit taggé dans sa version d'essai.

En fait, cet objet viewer, c'est le contrôle image dans lequel il faut afficher le chart.
J'avais commencé par faire une démo avec plusieurs exemples de charts générés, mais j'ai ensuite passé bien plus de temps à devoir le réduire pour qu'il tienne dans la limite des 50 Ko. Voici donc 3 exemples
[file name=demoChartDirector.zip size=39829]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/demoChartDirector.zip[/file]

 

[copayo]

Merci Ti pour ton aide,

mais,


comment tu as fait pour créer ce graph ?

j'ai un bug sur la couleur

 

[copayo]

Ti,

Alors vraiment un grand merci car j'ai reussi à en recréer un.

je vais voir sur le net si je trouve pas une version libre

Je vais voir pour adapter ces codes à des données sur feuilles excel.

en tout cas encore merci