Pie Chart Comparison
Solved/Closed
Rachel
-
Mar 17, 2011 at 11:43 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Mar 18, 2011 at 11:44 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Mar 18, 2011 at 11:44 AM
Related:
- Pie Chart Comparison
- Amd crossfire compatibility chart - Guide
- Chart gpt download - Download - Other
- Pie sign - Guide
- Ascii chart - Guide
- Little alchemy chart - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
555
Mar 18, 2011 at 11:44 AM
Mar 18, 2011 at 11:44 AM
Hi Rachel,
You could record a macro. Select one chart adjust the colors of all the fields. then select every other chart. Stop recording and look at the code.
Now copy the lines of code below your first chart and paste them underneath all the other charts.
I did this for two pie charts. the code looks like this:
I then copied the bold part and pasted it below the Italic line to make it look like this:
Then run the code and both charts look the same color wise.
Best regards,
Trowa
You could record a macro. Select one chart adjust the colors of all the fields. then select every other chart. Stop recording and look at the code.
Now copy the lines of code below your first chart and paste them underneath all the other charts.
I did this for two pie charts. the code looks like this:
Sub Macro1() ' ' Macro1 Macro ' De macro is opgenomen op 18-3-2011 door Trowa. ' ' ActiveSheet.ChartObjects("Grafiek 1").Activate ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Points(3).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With Selection.Shadow = False With Selection.Interior .ColorIndex = 45 .Pattern = xlSolid End With ActiveChart.SeriesCollection(1).Points(2).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With Selection.Shadow = False With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With ActiveChart.SeriesCollection(1).Points(1).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With Selection.Shadow = False With Selection.Interior .ColorIndex = 32 .Pattern = xlSolid End With ActiveWindow.Visible = False Windows("Map1").Activate ActiveSheet.ChartObjects("Grafiek 2").Activate ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Points(3).Select End Sub
I then copied the bold part and pasted it below the Italic line to make it look like this:
Sub test() ActiveSheet.ChartObjects("Grafiek 1").Activate ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Points(3).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With Selection.Shadow = False With Selection.Interior .ColorIndex = 45 .Pattern = xlSolid End With ActiveChart.SeriesCollection(1).Points(2).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With Selection.Shadow = False With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With ActiveChart.SeriesCollection(1).Points(1).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With Selection.Shadow = False With Selection.Interior .ColorIndex = 32 .Pattern = xlSolid End With ActiveWindow.Visible = False Windows("Map1").Activate ActiveSheet.ChartObjects("Grafiek 2").Activate ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Points(3).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With Selection.Shadow = False With Selection.Interior .ColorIndex = 45 .Pattern = xlSolid End With ActiveChart.SeriesCollection(1).Points(2).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With Selection.Shadow = False With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With ActiveChart.SeriesCollection(1).Points(1).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With Selection.Shadow = False With Selection.Interior .ColorIndex = 32 .Pattern = xlSolid End With ActiveWindow.Visible = False End Sub
Then run the code and both charts look the same color wise.
Best regards,
Trowa