use stock plot to draw point estimation with confidence interval
Dear All, I am trying to use stock plot to draw point estimation with confidence interval. When number of groups are more than 2, it works. But when number of groups is 2, it doesn't work. Could you check the following code and help me figure out how can I solve this problem? Thanks John Option Explicit Option Base 1 'g1 g2 '-9.650714359 -10.30660583 '-5.701064 -6.117369 '-1.751413641 -1.928132172 Sub DrawConf() Dim confIntChart1 As ChartObject Dim i, j As Integer Application.ScreenUpdating = False Set confIntChart1 = ActiveSheet.ChartObjects.Add(Left:=Cells(1, 5).Left, Top:=Cells(1, 5).Top, _ Width:=Range("A3:E18").Width, Height:=Range("A3:E18").Height) With confIntChart1 .Chart.SetSourceData Source:=Range(Cells(1, 1), Cells(4, 2)) .Chart.ChartType = xlStockHLC .Chart.Legend.Delete .Chart.Axes(xlValue).MajorGridlines.Delete With .Chart.SeriesCollection(3) .MarkerStyle = -4115 .MarkerForegroundColor = 1 End With With .Chart.SeriesCollection(2) .MarkerStyle = 8 .MarkerForegroundColor = 1 .MarkerBackgroundColor = 1 End With With .Chart.SeriesCollection(1) .MarkerStyle = -4115 .MarkerForegroundColor = 1 End With End With Application.ScreenUpdating = True End Sub |
All times are GMT +1. The time now is 11:02 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com