Experts Exchange connects you with the people and services you need so you can get back to work.
Dim ser As ChSeries
Dim cht As ChChart
Dim objAxis As ChAxis
' note the data and category arrays must be of Variant type
Dim varDataCats(1 To 50), varDataVals(1 To 50)
Dim n As Long
For n = 1 To 50
varDataCats(n) = DateSerial(2010, 1, n)
varDataVals(n) = n
Set cht = .Charts(0)
.Type = chChartTypeLineMarkers
.SetData chDimCategories, chDataLiteral, varDataCats
.SeriesCollection(0).SetData chDimValues, chDataLiteral, varDataVals
.HasLegend = False
.HasTitle = True
Set objAxis = .Axes(0)
.Font.Size = 6
.NumberFormat = "MM/DD/YYYY"
' don't want the dates grouped
.GroupingType = chAxisGroupingNone
Open in new window
Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.