To all,

I have the following macro that turns the points off on an embedded
chart. However I want to assign this to a check box, so when I check
it the points turn on, and when I un-check it the points turn off. I
believe that the macro will need to be modified to turn the points
back on again?


Sub pointson()

ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(2).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
End Sub

Any ideas?

Thanks in advance for your help,

Regards

Joseph Crabtree

Answered in .charting.

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


"joecrabtree" <(E-Mail Removed)> wrote in message
news:75fb48ea-d089-45c2-a888-(E-Mail Removed)...
> To all,
>
> I have the following macro that turns the points off on an embedded
> chart. However I want to assign this to a check box, so when I check
> it the points turn on, and when I un-check it the points turn off. I
> believe that the macro will need to be modified to turn the points
> back on again?
>
>
> Sub pointson()
>
> ActiveSheet.ChartObjects("Chart 5").Activate
> ActiveChart.PlotArea.Select
> ActiveChart.SeriesCollection(2).Select
> With Selection.Border
> .Weight = xlThin
> .LineStyle = xlAutomatic
> End With
> With Selection
> .MarkerBackgroundColorIndex = xlAutomatic
> .MarkerForegroundColorIndex = xlAutomatic
> .MarkerStyle = xlNone
> .Smooth = False
> .MarkerSize = 5
> .Shadow = False
> End With
> End Sub
>
> Any ideas?
>
> Thanks in advance for your help,
>
> Regards
>
> Joseph Crabtree