Thank you Narcís for helping to understand 3Dseries usage.
Now I'm using AddArrayGrid. But there is a little issue about this:
I have array of 6*4 values, but X axis range is 1..5 (and also grid lines figured for 5 (five) cells). But there are 6 (six) cells along X axis.
Code: Select all
SUB FillChart
Chart7.Environment.IEPrintWithPage=True
Chart7.RemoveAllSeries
Chart7.Legend.CheckBoxes = True
Chart7.Zoom.Pen.Color = vbBlack
Chart7.Environment.MouseWheelScroll = False
Chart7.AddSeries(30)
Chart7.Series(0).Title="Series 1"
Chart7.Series(0).Clear
Chart7.Series(0).asColorGrid.CenteredPoints = True
Chart7.Series(0).asColorGrid.UseColorRange = False
Chart7.Series(0).asColorGrid.UsePalette = True
Chart7.Series(0).asColorGrid.PaletteStyle = psRainbow
// Chart7.Series(0).asColorGrid.Pen.Visible = False
XZArray=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
Chart7.Series(0).asColorGrid.AddArrayGrid 6, 4, XZArray
// Header
Chart7.Header.Text.Clear()
Chart7.Header.Text.Add("TEST")
Chart7.Header.Font.Size=10
Chart7.Header.Font.Name="Arial"
Chart7.Header.Font.Bold=true
// Legend
Chart7.Legend.Visible=True
Chart7.Panel.Color = RGB(255, 255, 255)
// Axis
Chart7.Axis.Left.Title.Caption="Y"
Chart7.Axis.Left.Labels.Size=30
Chart7.Axis.Bottom.Labels.Size=30
Chart7.Aspect.View3D = False
Chart7.Axis.Bottom.Labels.Style=2
Chart7.Axis.Bottom.Title.Caption="X"
End Sub
BTW how can I display Color Palette (ColorScale) instead of Series Legend? I think it is very easy, so I do not want to start new topic for this question