Chart.ChartStyle Property (Project)
Gets or sets the chart style for a chart. Read/write Variant.
expression A variable that represents a 'Chart' object.
You can use a number from 1 to 48 to set the chart style.
To use the following CycleThroughStyles method, make a chart active, and then set a breakpoint in the For … Next loop to observe the chart styles.
Sub CycleThroughStyles() Dim chartShape As Shape Dim reportName As String Dim i As Integer reportName = "Simple scalar chart" Set chartShape = ActiveProject.Reports(reportName).Shapes(1) For i = 1 To 48 chartShape.Chart.ChartStyle = i Next i End Sub