ACC: How to Use Automation to Rotate a 3-Dimensional Chart

MORE INFORMATION

1. Open the sample database Northwind.mdb.
2. Open a new, blank form in Design view.
3. On the Insert menu, click Chart. Click and drag a chart to the form.
4. In the first dialog box of the Chart Wizard, under view, click Queries, and then select the "Employee Sales By Country" query. Click Next.
5. In the next dialog box, add the Country and SaleAmount fields to the Fields For Chart box. Click Next.
6. In the next dialog box, choose 3-D Pie Chart. Click Finish. Your graph will appear on the form.
7. On the View menu, click Properties. Select the Graph so that you are viewing the Graph object's properties. Set the Name property to MyGraph.
8. Add a command button to the form with the following properties:

           Command button
           --------------
           Caption: Rotate Graph
           OnClick: =RotateGraph()

9. On the View menu, click Code to view the form's module.
10. Add the following code to the form's module:

            Function RotateGraph()
            Dim OldRotation As Integer
            Dim NewRotation As Integer
            Dim GraphObj As Object
            Set GraphObj = Me![MyGraph].Object.Application.Chart
    
            ' Determine the initial rotation setting.
            OldRotation = GraphObj.Rotation
    
            ' Rotate graph from initial setting to 360 degrees.
            For NewRotation = OldRotation To 360 Step 12
               GraphObj.Rotation = NewRotation
               If GraphObj.Rotation = 360 Then GraphObj.Rotation = 0
               DoEvents
               DoCmd.RepaintObject
            Next
            End Function
    					

11. Switch the form to Form view. When prompted for a beginning and ending date, enter 1/1/94 and 1/1/95 respectively. Click the command button.