Microsoft KB Archive/186721

= ACC: How to Use Automation to Modify Microsoft Graph Object in Microsoft Access 95 and Microsoft Access 97 =

Article ID: 186721

Article Last Modified on 1/23/2007

-

APPLIES TO


 * Microsoft Access 95 Standard Edition
 * Microsoft Access 97 Standard Edition

-



This article was previously published under Q186721



Moderate: Requires basic macro, coding, and interoperability skills.



SUMMARY
This article describes how to use Automation to add or remove a title of a graph and how to hide or show a legend for a graph.

This article assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to your version of the "Building Applications with Microsoft Access" manual.

NOTE: A demonstration of the technique used in this article can be seen in the sample file, Grphsm97.exe. For information about how to obtain this sample file, please see the following article in the Microsoft Knowledge Base:

186855 ACC97: Microsoft Access 97 Sample Graphs Available in Download Center



MORE INFORMATION
CAUTION: Following the steps in this example will modify the sample database Northwind.mdb. You may want to back up the file, or perform these steps on a copy of the Northwind database.

NOTE: To use the Visual Basic for Applications procedures in this article, you must have a reference to Microsoft Graph.

Creating a Sample Graph
To be able to use the procedures to add or to remove a title or to hide or to show a legend, first create the following form:
 * 1) On the Forms tab, click New.
 * 2) Click the Chart Wizard, and then select the Category Sales for 1994 query in Microsoft Access 95 or Category Sales for 1995 query in Microsoft Access 97. Click OK.
 * 3) Move both fields from the Available Fields list to the Fields For Chart list, and then Click Next.
 * 4) Click Finish.
 * 5) On the View menu, click Design View.
 * 6) Right-click on the graph, click Properties, and then click the All tab.
 * 7) Change the Name property to Graph1.
 * 8) Close the property sheet.
 * 9) Save the form with the name GraphTest, and then close it.

Adding or Removing a Graph's Title
The following example demonstrates how to use Automation to add or remove a graph's title.  Open the GraphTest form in Design view. On the View menu, click Properties, and then click the All tab. Change the DataEntry property of the form to Yes.  Add the following command button to the form:      Command Button --     Name: Title Caption: Toggle Caption   Set the OnClick property of the Toggle Caption command button to the following event procedure: Sub Title_Click

'---        ' Show or hide the title by using the Not Operator to         ' reverse the state of the HasTitle property '---

Me!Graph1.Hastitle = Not Me!Graph1.Hastitle

' If the graph has a title, set the Caption to something If Me!Graph1.Hastitle Then Me!Graph1.ChartTitle.Text = "Sample Title" End If

End Sub   Add the following line to the Declarations section of the Sales By Product form's form module if it's not already there: <pre class="fixed_text">     Option Explicit </li> On the View menu, click Form view, and then click the Toggle Caption button. Note that the graph's title either appears or disappears.</li></ol>

Hiding or Showing a Graph's Legend
The following example demonstrates how to hide or to show a legend on a graph. <ol> Open the GraphTest form in Design view.</li>  Add a command button with the following properties to the form: <pre class="fixed_text">     Command Button --     Name: Legend Caption: Toggle Legend </li>  Set the OnClick property of the Toggle Legend command button to the following event procedure: Sub Legend_Click

'---        ' If the legend is not present, show it; otherwise, hide it. ' Use the Not Operator to reverse the state of the HasLegend ' property of the graph. '---

Me!Graph1.Haslegend = Not Me!Graph1.Haslegend

End Sub </li>  Add the following line to the Declarations section of the Sales By Product form's form module if it's not already there: <pre class="fixed_text">     Option Explicit </li> On the View menu, click Form view, and then click the Toggle Legend button. Note that the graph's legend either appears or disappears.</li></ol>

NOTE: Depending on the how the graph was created, you may have to click the Toggle Legend button twice the first time that you use it to see the described functionality.

<div class="references_section">