Hi,
This should do it. Just select the chart before running.
Paste into a standard code module.
Sub ReducePointSize()
Dim serX As Series
For Each serX In ActiveChart.SeriesCollection
If serX.MarkerSize - 2 1 Then
serX.MarkerSize = serX.MarkerSize - 2
End If
Next
End Sub
Cheers
Andy
kilter wrote:
I have 255 series in an xy chart and would like to reduce the point
size to 2. Could some kind soul give me a hand with a vba script to do
this (I have not programmed in vba before). Any help very gratefully
received.
--
Andy Pope, Microsoft MVP - Excel
http://www.andypope.info