De manera predeterminada, el control MSChart
utiliza colores para diferenciar entre conjunto de datos. Esto se
trabaja en monitor de color o impresora mejor pero si se crea una
copia impresa a una impresora monocromática, puede ser difícil
distinguir los colores. Utilizando el código proporcionado, puede
cambiar el control MSChart mediante programación a fin de utilizar
modelos en lugar de colores.
Volver
al principio
La modificación de algunas propiedades es todos que
se deben realizar para obtener que el control MSChart utilice
modelos.
Volver
al principio
Ejemplo paso a pas
| 1. |
Cree un proyecto nuevo EXE estándar en Visual
Basic. Se creará Form1 de manera predeterminada |
| 2. |
Elija Componentes en el menú Proyecto para
mostrar el Diálogo de Componentes. |
| 3. |
En Visual Basic 5.0, seleccione "Control
Microsoft Chart". En Visual Basic 6.0, seleccione "Control
Microsoft Chart, 6,0 (OLEDB)". |
| 4. |
Coloque una instancia del control Chart y de un
CommandButton en Form1. |
| 5. |
Inserte el código siguiente en el General
Declaración Section de 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. |
Ejecute el proyecto, haga clic en Command1 y
tenga en cuenta que el gráfico utiliza ahora modelos
monocromáticos en lugar de colores. |
Volver
al principio
Para información adicional, consulte el artículo
siguiente en el Microsoft Knowledge Base:
168749 (http://support.microsoft.com/kb/168749/EN-US/)
Cómo imprimir los contenidos del control MS Chart
Volver
al principio
