Solved

Adding data to an msgraph 8.0 object

Posted on 2007-12-05
14
254 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
ID: 20417319
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
ID: 20418943
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
ID: 20421598
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
U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

 

Author Comment

by:pancho_alvarez
ID: 20429324
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
ID: 20430728
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
ID: 20430856
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
ID: 20431442
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
 

Author Comment

by:pancho_alvarez
ID: 20442765
0
 
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 20446610
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
ID: 20449110
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
ID: 20451425
OK,

I'll be waiting...
:)

JeffCoachman
0
 

Author Comment

by:pancho_alvarez
ID: 20485677
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
ID: 31412857
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
ID: 20485786
OK,
Happy Holidays!

JeffCoachman
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When you are entering numbers in a speadsheet, and don't remember what 6×7 is, you just type “=6*7" instead. It works in every cell! This is not so in Access. To enter the elusive 42 in a text box, you have to find a calculator, and then copy the re…
I see at least one EE question a week that pertains to using temporary tables in MS Access.  But surprisingly, I was unable to find a single article devoted solely to this topic. I don’t intend to describe all of the uses of temporary tables in t…
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 how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another. Base the dependent combo on a query for its row source: Add a reference to the first combo on the form as criteria i…

860 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