Customizing data series markers

  • Thread starter Thread starter Brad Reid
  • Start date Start date
B

Brad Reid

Is it possible to customize or add data series markers when one goes to
"Format Data Series" to change such things? I was hoping to add a symbolic
up and down arrow. Is this possible? my thanks in advance. BR
 
Brad -

Draw the arrow that you want. To apply it to the entire series (each
point), select the series; to apply it to a single point, select the
series then the point (two single clicks). With the desired target
selected, choose Paste from the Edit menu or use Ctrl-V, and the copied
arrow becomes the data marker. This works with any of the drawing
objects. This web page gives more examples:

http://peltiertech.com/Excel/ChartsHowTo/CustomSeriesFormatting.html

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/Excel/Charts/
_______
 
Jon, great instructions. Thanks. Brad

Jon Peltier said:
Brad -

Draw the arrow that you want. To apply it to the entire series (each
point), select the series; to apply it to a single point, select the
series then the point (two single clicks). With the desired target
selected, choose Paste from the Edit menu or use Ctrl-V, and the copied
arrow becomes the data marker. This works with any of the drawing
objects. This web page gives more examples:

http://peltiertech.com/Excel/ChartsHowTo/CustomSeriesFormatting.html

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/Excel/Charts/
_______
Click to expand...
 
Hey, great info! Did not know this was possible. New
question that I have: Can this be done through VBA?

K Dales
 
VBA code would be something along these lines.

Sub CustomMarkersAll()
' apply to series
ActiveSheet.Shapes("Autoshape 2").Copy
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Paste
End Sub

Sub CustomMarkersPoint()
' only apply to point 1
ActiveSheet.Shapes("Autoshape 2").Copy
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Points(1).Paste
End Sub

Cheers
Andy
 
Back
Top