H
Harley Feldman
I am trying to add code to a chart module that was created correctly with VB. I have tried both of the code sequences below, and I receive a "subscript out of range" error in both cases. Any suggestions on how to fix the problem?
With ActiveWorkbook.VBProject.VBComponents("DASH").CodeModule
StartLine = .CreateEventProc("Calculate", "Chart") + 1
.InsertLines StartLine, _
" Dim s as Series" & vbCr & _
" On Error GoTo NoSeries" & vbCr & _
" With ActiveChart" & vbCr & _
" For Each s in .seriescollection" & vbCr & _
" s.Border.Weight = xlThick" & vbCr & _
"NoErr:" & vbCr & _
" Next" & vbCr & _
" End With" & vbCr & _
" Exit Sub" & vbCr & _
"NoSeries:" & vbCr & _
" Resume NoErr" & vbCr & _
"End Sub"
End With
ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.ActiveChart.CodeName).CodeModule.AddFromString _
"Private Sub Chart_Calculate()" & vbCr & _
" Dim s as Series" & vbCr & _
" On Error GoTo NoSeries" & vbCr & _
" With ActiveChart" & vbCr & _
" For Each s in .seriescollection" & vbCr & _
" s.Border.Weight = xlThick" & vbCr & _
"NoErr:" & vbCr & _
" Next" & vbCr & _
" End With" & vbCr & _
" Exit Sub" & vbCr & _
"NoSeries:" & vbCr & _
" Resume NoErr" & vbCr & _
"End Sub"
Harley
With ActiveWorkbook.VBProject.VBComponents("DASH").CodeModule
StartLine = .CreateEventProc("Calculate", "Chart") + 1
.InsertLines StartLine, _
" Dim s as Series" & vbCr & _
" On Error GoTo NoSeries" & vbCr & _
" With ActiveChart" & vbCr & _
" For Each s in .seriescollection" & vbCr & _
" s.Border.Weight = xlThick" & vbCr & _
"NoErr:" & vbCr & _
" Next" & vbCr & _
" End With" & vbCr & _
" Exit Sub" & vbCr & _
"NoSeries:" & vbCr & _
" Resume NoErr" & vbCr & _
"End Sub"
End With
ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.ActiveChart.CodeName).CodeModule.AddFromString _
"Private Sub Chart_Calculate()" & vbCr & _
" Dim s as Series" & vbCr & _
" On Error GoTo NoSeries" & vbCr & _
" With ActiveChart" & vbCr & _
" For Each s in .seriescollection" & vbCr & _
" s.Border.Weight = xlThick" & vbCr & _
"NoErr:" & vbCr & _
" Next" & vbCr & _
" End With" & vbCr & _
" Exit Sub" & vbCr & _
"NoSeries:" & vbCr & _
" Resume NoErr" & vbCr & _
"End Sub"
Harley