Article ID: 178545
Article Last Modified on 3/10/2005
Option Explicit
Private Sub Command1_Click()
Dim x As Integer, y As Integer
Dim s As Series
MSChart1.RowCount = 10
MSChart1.ColumnCount = 4
For y = 1 To 4
MSChart1.Column = y
For x = 1 To 10
MSChart1.Row = x
MSChart1.Data = x * y
Next x
With MSChart1.Plot.SeriesCollection.Item(y)
'The next line is required to change the Marker properties.
.SeriesMarker.Auto = False
.DataPoints.Item(-1).Marker.Visible = True
.DataPoints.Item(-1).Marker.Size = 60
.DataPoints.Item(-1).Marker.Style = VtMarkerStyleX
.DataPoints.Item(-1).Marker.Pen.VtColor.Red = 0
.DataPoints.Item(-1).Marker.Pen.VtColor.Blue = 0
.DataPoints.Item(-1).Marker.Pen.VtColor.Green = 0
End With
Next y
End Sub
Additional query words: graph chart ms data markers kbVBp500 kbVBp600 kbDSupport kbdsd kbVBp kbControl
Keywords: kbprb kbgrpdsvb KB178545