View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.charting
Jon Peltier Jon Peltier is offline
external usenet poster
 
Posts: 6,582
Default XY marker change for entire workbook

You would need to use a macro to loop through the charts, changing the
markers. For example

Sub ChangeMarkers()
Dim cht As Chart
Dim srs As Series
For Each cht In ActiveWorkbook.Charts
For Each srs In cht.SeriesCollection
Select Case srs.Name
' add cases and marker info here based on series name
Case "Alpha"
srs.MarkerStyle = xlMarkerStyleSquare
srs.MarkerBackgroundColorIndex = 3
srs.MarkerForegroundColorIndex = 3
Case "Beta"
srs.MarkerStyle = xlMarkerStyleTriangle
srs.MarkerBackgroundColorIndex = 5
srs.MarkerForegroundColorIndex = 5
End Select
Next
Next
End Sub

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"rnason16" wrote in message
...
Is there a way to change the markers for data series across several charts
within a workbook? I have been given A LOT of charts to make consistent
and
was wondering is there is a way to apply a certain marker style to an
entire
data series across several charts. Each chart is made from one data sheet
in
the workbook, but placed on a separate page within the workbook.