Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro that changes line styles based on the series' name
Hi, I have a question regarding changing the line styles in a graph with a macro. There are several series in the graph, however, they are named either "SOT_*" or "EOT_*" . * being the rest of the series name. Currently, all of the lines are solid. But I wish to change all the series with the prefix EOT to dashed and leave the others as they are. How do I create a macro loop code that looks for the prefix of the series' name and change the line style based on the prefix? Thanks a bunch! -- trumptmast ------------------------------------------------------------------------ trumptmast's Profile: http://www.excelforum.com/member.php...o&userid=34305 View this thread: http://www.excelforum.com/showthread...hreadid=570058 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro that changes line styles based on the series' name
trumptmast wrote:
Hi, I have a question regarding changing the line styles in a graph with a macro. There are several series in the graph, however, they are named either "SOT_*" or "EOT_*" . * being the rest of the series name. Currently, all of the lines are solid. But I wish to change all the series with the prefix EOT to dashed and leave the others as they are. How do I create a macro loop code that looks for the prefix of the series' name and change the line style based on the prefix? Thanks a bunch! -- trumptmast When doing something like this I use the macro recorder to see what objects Excel uses. So with a chart on sheet1 I started the recorder and double-clicked one of the series lines in question and continued with the Format Data Series dialog. It turns out that it uses the SeriesCollection Collection Object, so with that information it was quite easy to code this macro: Sub FormatDataSeries() Dim myChart As SeriesCollection Dim mySeries As Series Set myChart = Worksheets(1).ChartObjects(1).Chart.SeriesCollecti on For Each mySeries In myChart Debug.Print mySeries.Name If Left(mySeries.Name, 4) = "EOT_" Then mySeries.Border.LineStyle = xlDash End If Next End Sub hth, Tony |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro that changes line styles based on the series' name
Works quite well. Thanks a lot -- trumptmas ----------------------------------------------------------------------- trumptmast's Profile: http://www.excelforum.com/member.php...fo&userid=3430 View this thread: http://www.excelforum.com/showthread.php?threadid=57005 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro code to put series name next to individual line in line grap | Charts and Charting in Excel | |||
Is there a font that contain the Excel chart series marker styles | Charts and Charting in Excel | |||
macro for fixed color lines in line chart based on series name | Charts and Charting in Excel | |||
Chart line styles | Charts and Charting in Excel | |||
Line styles for Cell Borders | Excel Discussion (Misc queries) |