DOCUMENT:Q192902  27-JAN-2001  [vbwin]
TITLE   :HOWTO: Change Colors to Patterns with the MSChart Control
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER::5.0,6.0
OPER/SYS:
KEYWORDS:kbCtrl kbVBp kbVBp500 kbVBp600 kbOSWin95 kbOSWin98 kbGrpDSVB kbDSupport kbOSWinME

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual Basic Learning Edition for Windows, versions 5.0, 6.0 
 - Microsoft Visual Basic Professional Edition for Windows, versions 5.0, 6.0 
 - Microsoft Visual Basic Enterprise Edition for Windows, versions 5.0, 6.0 
-------------------------------------------------------------------------------

SUMMARY
=======

By default, the MSChart control uses colors to differentiate between data sets.
This works well on a color monitor or printer, but if a printout to a monochrome
printer is created, the colors may be hard to distinguish. Using the code
provided, you can programmatically change the MSChart control to use patterns
instead of colors.

MORE INFORMATION
================

Modifying some properties is all that needs to be done to get the MSChart
control to use patterns.

Step-by-Step Example
--------------------

1. Create a new Standard EXE project in Visual Basic. Form1 is created by
   default.

2. Choose Components from the Project menu to show the Components Dialog.

3. In Visual Basic 5.0, select "Microsoft Chart Control." In Visual Basic 6.0,
   select "Microsoft Chart Control 6.0 (OLEDB)."

4. Place an instance of the Chart control and a CommandButton on Form1.

5. Place the following code in the General Declaration Section of Form1:

        Private Sub Command1_Click()
        MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.Style _
           = VtBrushStylePattern
        MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.Index _
           = VtBrushPatternBoldDownDiagonal
        MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.FillColor.Set _
           255, 255, 255

        MSChart1.Plot.SeriesCollection(2).DataPoints(-1).Brush.Style _
           = VtBrushStylePattern
        MSChart1.Plot.SeriesCollection(2).DataPoints(-1).Brush.Index _
           = VtBrushPatternBoldHorizontal
        MSChart1.Plot.SeriesCollection(2).DataPoints(-1).Brush.FillColor.Set _
           255, 255, 255

        MSChart1.Plot.SeriesCollection(3).DataPoints(-1).Brush.Style _
           = VtBrushStylePattern
        MSChart1.Plot.SeriesCollection(3).DataPoints(-1).Brush.Index _
           = VtBrushPatternBoldUpDiagonal
        MSChart1.Plot.SeriesCollection(3).DataPoints(-1).Brush.FillColor.Set _
           255, 255, 255

        MSChart1.Plot.SeriesCollection(4).DataPoints(-1).Brush.Style _
           = VtBrushStylePattern
        MSChart1.Plot.SeriesCollection(4).DataPoints(-1).Brush.Index _
           = VtBrushPatternBoldVertical
        MSChart1.Plot.SeriesCollection(4).DataPoints(-1).Brush.FillColor.Set _
           255, 255, 255
        End Sub

6. Run the project and click Command1 and note that the chart now uses
   monochrome patterns instead of colors.

REFERENCES
==========

For additional information, please see the following article in the Microsoft
Knowledge Base:

   Q168749 HOWTO: Print the Contents of the MS Chart Control

Additional query words:

======================================================================
Keywords          : kbCtrl kbVBp kbVBp500 kbVBp600 kbOSWin95 kbOSWin98 kbGrpDSVB kbDSupport kbOSWinME 
Technology        : kbVBSearch kbAudDeveloper kbZNotKeyword6 kbZNotKeyword2 kbVB500Search kbVB600Search kbVBA500 kbVBA600 kbVB500 kbVB600
Version           : :5.0,6.0
Issue type        : kbhowto

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2001.