Skip to content

Instantly share code, notes, and snippets.

@martinctc

martinctc/Excel scatter points colour.vbs

Created April 25, 2017 10:52
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save martinctc/ea1ada8180abc4744b275374addb53d4 to your computer and use it in GitHub Desktop.
Save martinctc/ea1ada8180abc4744b275374addb53d4 to your computer and use it in GitHub Desktop.
Download ZIP
Format all scatter points for Excel chart
Raw
Excel scatter points colour.vbs
Sub FormatScatterPointsColour()
Dim i, j As Integer
j = ActiveChart.SeriesCollection.Count
Debug.Print j
For i = 1 To j
ActiveChart.FullSeriesCollection(i).Format.Fill.Visible = msoTrue
ActiveChart.FullSeriesCollection(i).Format.Line.Visible = msoTrue
ActiveChart.FullSeriesCollection(i).Format.Fill.ForeColor.RGB = RGB(107, 156, 107)
ActiveChart.FullSeriesCollection(i).Format.Line.ForeColor.RGB = RGB(107, 156, 107)
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment