Combining Stacked and Clustered Columns in Excel Charts for Pareto Analysis: Example
Pareto analysis is a statistical technique in quality control that consists of ranking the problems in descending order of importance. This technique is named after Vilfredo Pareto, an Italian economist who discovered the 80/20 rule, which states that 80% of the problems are caused by 20% of the causes. Pareto analysis is a graphical tool that visually represents the distribution of the problems and helps to identify the most significant ones.
Example: Analyzing Failure Modes in a Machine
Let's consider an example where we want to analyze the failure modes of a machine. We have collected data on the number of failures and their causes. The data is presented in the following table:
| Failure Mode | Number of Failures |
|---|---|
| Wear and Tear | 15 |
| Lubrication | 12 |
| Misalignment | 10 |
| Overloading | 8 |
| Installation | 5 |
| Maintenance | 3 |
To perform a Pareto analysis, we need to create a chart that shows the number of failures for each cause and the cumulative percentage of the total number of failures. In Excel, we can use a combination of stacked and clustered columns to create such a chart. Here are the steps:
- Enter the data in an Excel sheet.
- Select the data, including the headers.
- Go to the "Insert" tab and select "Column" in the "Charts" group. Choose the "Clustered Column" chart type.
- Right-click on the chart and select "Format Data Series."
- In the "Format Data Series" pane, select "Series Options" and change the "Series Overlap" to 100%. This will stack the columns on top of each other.
- Add a secondary axis to the chart by right-clicking on the vertical axis and selecting "Format Axis." In the "Format Axis" pane, select "Axis Options" and check the box for "Values in reverse order."
- Add a new data series to the chart for the cumulative percentage. To do this, create a new column in the data table with the cumulative percentage for each cause. Then, select the chart, go to the "Design" tab, and select "Select Data." In the "Select Data Source" pane, click on "Add" under "Legend Entries (Series)." Select the new data series and click "OK."
- Format the new data series as a line chart by right-clicking on the chart and selecting "Change Series Chart Type." In the "Change Chart Type" pane, select the line chart type for the new data series.
- Add data labels to the chart by right-clicking on the chart and selecting "Add Data Labels."
- Format the data labels to show the cumulative percentage by right-clicking on the data labels and selecting "Format Data Labels." In the "Format Data Labels" pane, select "Values From Cells" and select the cells with the cumulative percentage.
Interpreting the Chart
The resulting chart will look like this:

The chart shows that the top three causes of failures are wear and tear, lubrication, and misalignment, which account for 71% of the total number of failures. By focusing on these three causes, we can significantly reduce the number of failures and improve the machine's reliability.
- Pareto analysis is a statistical technique that consists of ranking the problems in descending order of importance.
- In Excel, we can use a combination of stacked and clustered columns to create a Pareto chart that shows the number of failures for each cause and the cumulative percentage of the total number of failures.
- By focusing on the top causes of failures, we can significantly reduce the number of failures and improve the machine's reliability.
References
- Pareto Analysis, American Society for Quality
- Pareto Analysis in Excel, Excel Easy
- Pareto Analysis, Statistics How To
```vbnet
' Create a new Excel workbook
Workbooks.Add
' Enter the data in an Excel sheet
Range("A1").Value = "Failure Mode"
Range("B1").Value = "Number of Failures"
Range("A2").Value = "Wear and Tear"
Range("A3").Value = "Lubrication"
Range("A4").Value = "Misalignment"
Range("A5").Value = "Overloading"
Range("A6").Value = "Installation"
Range("A7").Value = "Maintenance"
Range("B2").Value = 15
Range("B3").Value = 12
Range("B4").Value = 10
Range("B5").Value = 8
Range("B6").Value = 5
Range("B7").Value = 3
' Select the data, including the headers
Range("A1:B7").Select
' Go to the "Insert" tab and select "Column" in the "Charts" group
ActiveSheet.Shapes.AddChart2(251, xlColumnClustered, 100, 100, 500, 300).Select
' Right-click on the chart and select "Format Data Series"
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(255, 255, 255)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveChart.SeriesCollection(1).Format.Fill.Transparency = 0
ActiveChart.SeriesCollection(1).Format.Line.Visible = msoFalse
ActiveChart.SeriesCollection(1).Format.Fill.Solid
ActiveChart.SeriesCollection(1).Format.Fill.Visible = msoTrue
ActiveChart.SeriesCollection(1).Format.Fill.