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

use stock plot to draw point estimation with confidence interval
 

try

If ActiveChart.SeriesCollection.Count = 3 Then
With .Chart.SeriesCollection(3)
* * * * * * .MarkerStyle = -4115
* * * * * * .MarkerForegroundColor = 1
* * * * End With
End If



On Dec 11, 8:47*am, John Smith wrote:
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