Link to home
Start Free TrialLog in
Avatar of pancho_alvarez
pancho_alvarez

asked on

Adding data to an msgraph 8.0 object

I have a query in SQL and I want to add the data of the query to an MSGRAPH 8.0 object using code. So far, I have been able to select with code the type of chart as well as adding the the title of both AXIS and the main title of the chart. However, I still need to add the chart ROW LABELS and COLUMN LABELS of the chart, as well as adding the data of my query.

Thanks in advance
'type of chart
 MGO1.chartType = xlLine
 'sets the legend of the chart on
 MGO1.HasLegend = True
 'sets the main title of the chart
 MGO1.HasTitle = True
 MGO1.ChartTitle.Text = "ANOMALÍAS"
 'Set the Y axis title
 MGO1.Axes(xlValue).HasTitle = True
 MGO1.Axes(xlValue).AxisTitle.Caption = "Porcentajes"
 'sets the X axis title
 MGO1.Axes(xlCategory).HasTitle = True
 MGO1.Axes(xlCategory).AxisTitle.Caption = "Periodos"

Open in new window

Avatar of Jeffrey Coachman
Jeffrey Coachman
Flag of United States of America image

pancho_alvarez,

I posted some advice in your previous post.

I am still wondering why you need VBA code to create your charts?

Granted, creating charts in Access is not easy.
;)

But once you get the hang of it, it is pretty straightforward.
Your charts can/will look as good as any chart in Excel.

JeffCoachman
Avatar of pancho_alvarez
pancho_alvarez

ASKER

Hello Jeff,
                The reason I need  to use VBA is that although my query returns the relevant data I need, using the wizard does not give me what I want. Hence, my bet is that programatically manipulating the microsoft graph object, as I've done with the mschart I can obtain the kind of chart I need for my application. So far, as you can see in the code snippet, I've managed to partially manipulate the chart. However, I still need to know how to add the row and column labels, as well as the data that will be charted.
'type of chart
 MGO1.chartType = xlLine
 'sets the legend of the chart on
 MGO1.HasLegend = True
 'sets the main title of the chart
 MGO1.HasTitle = True
 MGO1.ChartTitle.Text = "ANOMALES"
 'Set the Y axis title
 MGO1.Axes(xlValue).HasTitle = True
 MGO1.Axes(xlValue).AxisTitle.Caption = "PERCENTAGE"
 'sets the X axis title
 MGO1.Axes(xlCategory).HasTitle = True
 MGO1.Axes(xlCategory).AxisTitle.Caption = "PERIODS"

Open in new window

hmmm.

Can you post some sample data and a screen-shot of the corresponding chart?

I'm just curious if I can recreate the chart.
:)

JeffCoachman
Hello Jeff,
                 I found the reason why I was not able to obtain the appropriate chart with the data of my query. The problem was that I was using the FORMAT(data,"#0.00") function and, somehow, the data was interpreted as a string of characters instead of numbers. I modified the query and obtained the results I wanted.
                   However, I sill would like to know how to progamatically manipulate the MSGRAPH ;-)

Thanks in advance
ASKER CERTIFIED SOLUTION
Avatar of Jeffrey Coachman
Jeffrey Coachman
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Hello Jeff,
                  Here's the sample data, sorry about the screeshot but I don't know how to paste it here.

PERIOD         ISOLATED      MULTIPLE      SYNDROMES      DOWN SYNDROME
1980-85         17,10               2,64                         2,44                   1,004
1986-05          10,069             2,48                           1,89                    0,85
2006             7,85                 2,36                       1,35                     0,71

Best regards



To *POST* a screenshot, follow these steps:

1. Open your Report to view your graph.
2. Zoom in so the graph fills the screen. (But does not go outside the screen)
3. Press the "Print Screen" (Prnt  Scrn) key on your keyboard
4. Open MS Word or MS Wordpad
5. Click: Edit--> Paste
(The screenshot should now be visible in the Document
6. Close and save the document.
7. Use a program like Winzip and compress the document.
8. Go to: www.ee-stuff.com
9. Log in
10. Click the link to "Upload a new file"
11. Enter the question number: 23003107
12. Browes to where you saved the compressed file
13. Type in a comment
14. Click the "Upload" button
15. Right click the "Direct Link to your file" hyperlink address, and choose "Copy Shortcut"
16. Create another post to this Q and past in the hyperlink address, so I can see it.

If you need any help with this let me know
:)

Jeff
pancho_alvarez,

Here is the same graph, (In a Report) created *without* VBA code.
https://filedb.experts-exchange.com/incoming/ee-stuff/6092-Access--EE-Q-23003107--Manual-C.zip

It took me less than 30 seconds!
:)

Are you sure you still want to use VBA code?
:O

JeffCoachman
Hello Jeff,
                I definitely would like to know how to manually modify the chart using VBA.  However, if its too troublesome -as it seems to be- I will give the the points for beings so helpful in solving this dilemma.

Cheers
OK,

I'll be waiting...
:)

JeffCoachman
Hello Jeff,
                  Since no one has answered my question and you were quite helpful with my problem, I'll give you the points ;-)

Cheers!
Thanks for the help Jeff, I will keep resarching to see if I can programatically do the charts. Although with the appropiate query the assistant works well.
OK,
Happy Holidays!

JeffCoachman