Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.charting
|
|||
|
|||
One Range, Two Colors
I am wondering if there is a way to get Excel to loop through a series of
data, build a chart based on this series of data, and alternate the colors of the bars on the chart. I guess the even points have to be a variable (i.e., Points(2).Select, Points(4).Select, etc.) This kind of a pain to do if looking at only one series. This is the macro that I recorded: Sub Macro1() ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.SeriesCollection(1).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With ActiveChart.SeriesCollection(1).Points(2).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With With Selection.Interior .ColorIndex = 11 .Pattern = xlSolid End With ActiveChart.SeriesCollection(1).Points(4).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With Selection.Shadow = False With Selection.Interior .ColorIndex = 11 .Pattern = xlSolid End With ActiveChart.SeriesCollection(1).Points(6).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With With Selection.Interior .ColorIndex = 11 End With ActiveChart.SeriesCollection(1).Points(8).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With With Selection.Interior .ColorIndex = 11 .Pattern = xlSolid End With ActiveChart.SeriesCollection(1).Points(10).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With With Selection.Interior .ColorIndex = 11 .Pattern = xlSolid End With ActiveChart.SeriesCollection(1).Points(12).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With With Selection.Interior .ColorIndex = 11 .Pattern = xlSolid End With ActiveChart.SeriesCollection(1).Points(14).Select With Selection.Border .Weight = xlThin .LineStyle = xlAutomatic End With Selection.Shadow = False Selection.InvertIfNegative = False With Selection.Interior .ColorIndex = 11 .Pattern = xlSolid End With End Sub Finally, there may be a way for the user to select the series; Im thinking of something like the following (which I found on this DG)€¦ Dim myRange As Range Dim myAdd As String Set myRange = Range("A1") myRange.Offset(0, 3) = ActiveSheet.Range("A1") Set myRange = Application.InputBox( _ "Select Range to link from", Type:=8) However, this doesnt work for some reason€¦ Any guidance would be much appreciated. Regards, Ryan--- -- RyGuy |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel Addin:Setting the range to the Excel.Range object range prop | Excel Worksheet Functions | |||
Create drop down box with the formatting of range cells colors ect | Excel Worksheet Functions | |||
Can't format font colors or cell fill-in colors | Excel Discussion (Misc queries) | |||
colors | Excel Worksheet Functions | |||
colors | Excel Worksheet Functions |