Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
how to draw three series graph
- Thread starter Kingkumar
- Start date
TheBitDoctor
Programmer
After tweeking a recorded Macro this would be one method:
ActiveSheet.Range("A1:C20"
.Select
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Sheet1".Range("A1:C20", PlotBy _
:=xlColumns
ActiveChart.ChartType = xlSurface
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
ActiveChart.Walls.Select
ActiveChart.Corners.Select
With ActiveChart
.Elevation = 14
.Rotation = 53
End With
This assumes your data is in columns A,B, and C. Also, be aware that Excel doesn't draw true surface graphs. The Scatter plot will draw true 2D plots with irregular data but the surface plot won't. So you may have to precondition your data to plot at regular intervals.
ActiveSheet.Range("A1:C20"
.SelectCharts.Add
ActiveChart.SetSourceData Source:=Sheets("Sheet1"
.Range("A1:C20", PlotBy _:=xlColumns
ActiveChart.ChartType = xlSurface
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
ActiveChart.Walls.Select
ActiveChart.Corners.Select
With ActiveChart
.Elevation = 14
.Rotation = 53
End With
This assumes your data is in columns A,B, and C. Also, be aware that Excel doesn't draw true surface graphs. The Scatter plot will draw true 2D plots with irregular data but the surface plot won't. So you may have to precondition your data to plot at regular intervals.
- Status
Similar threads
- Locked
- Question