Solved

Adding data to an msgraph 8.0 object

Posted on 2007-12-05
14
245 Views
Last Modified: 2016-08-29
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

0
Comment
Question by:pancho_alvarez
  • 7
  • 7
14 Comments
 
LVL 74

Expert Comment

by:Jeffrey Coachman
Comment Utility
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
0
 

Author Comment

by:pancho_alvarez
Comment Utility
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

0
 
LVL 74

Expert Comment

by:Jeffrey Coachman
Comment Utility
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
0
 

Author Comment

by:pancho_alvarez
Comment Utility
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
0
 
LVL 74

Accepted Solution

by:
Jeffrey Coachman earned 500 total points
Comment Utility
pancho_alvarez,

There is not that much out there. That's why I taught myself to create them manually.

Here is my favorite link on the subject, lots of info provided:
http://www.vb123.com/toolshed/99_graphs/msgraph1.htm

Here is another:
http://ourworld.compuserve.com/homepages/RHendricks/msgrppmc.htm

BTW,

Can you post that sample data and a screenshot of your graph,... I'm just curious...
:)

JeffCoachman
0
 

Author Comment

by:pancho_alvarez
Comment Utility
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



0
 
LVL 74

Expert Comment

by:Jeffrey Coachman
Comment Utility
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
0
Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

 

Author Comment

by:pancho_alvarez
Comment Utility
0
 
LVL 74

Expert Comment

by:Jeffrey Coachman
Comment Utility
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
0
 

Author Comment

by:pancho_alvarez
Comment Utility
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
0
 
LVL 74

Expert Comment

by:Jeffrey Coachman
Comment Utility
OK,

I'll be waiting...
:)

JeffCoachman
0
 

Author Comment

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

Cheers!
0
 

Author Closing Comment

by:pancho_alvarez
Comment Utility
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.
0
 
LVL 74

Expert Comment

by:Jeffrey Coachman
Comment Utility
OK,
Happy Holidays!

JeffCoachman
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

The first two articles in this short series — Using a Criteria Form to Filter Records (http://www.experts-exchange.com/A_6069.html) and Building a Custom Filter (http://www.experts-exchange.com/A_6070.html) — discuss in some detail how a form can be…
QuickBooks® has a great invoice interface that we were happy with for a while but that changed in 2001 through no fault of Intuit®. Our industry's unit names are dictated by RUS: the Rural Utilities Services division of USDA. Contracts contain un…
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now