Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
exception at 0x6503999b (VBE6.DLL) - Please
I constantly get the following error when I get to
the ".InsertLines" of the code listed below the error. Can anyone help First-chance exception at 0x6503999b (VBE6.DLL) in EXCEL.EXE: 0xC0000005: Access violation writing location 0x5c00800f. Unhandled exception at 0x6503999b (VBE6.DLL) in EXCEL.EXE: 0xC0000005: Access violation writing location 0x5c00800f. Sub Insert_Code() Dim obvbc As VBIDE.VBComponent, lLine As Long With Workbooks("Booked Sales by AS Rep Actuals.xls") Set obvbc = .VBProject.VBComponents(.ActiveChart.CodeName) End With With obvbc.CodeModule lLine = .CreateEventProc("Calculate", "chart") .InsertLines lLine, "'Reset Custom Color Option" .ReplaceLine lLine + 2, "ActiveChart.SeriesCollection (1).Select" & vbCrLf & _ "If Selection.Interior.ColorIndex < 23 Then" & vbCrLf & _ " With Selection.Border" & vbCrLf & _ " .ColorIndex = 5" & vbCrLf & _ " .Weight = xlThin" & vbCrLf & _ " .LineStyle = xlContinuous" & vbCrLf & _ " End With" & vbCrLf & _ "Selection.Shadow = False" & vbCrLf & _ "Selection.InvertIfNegative = False" & vbCrLf & _ " With Selection.Interior" & vbCrLf & _ " .ColorIndex = 23" & vbCrLf & _ " .Pattern = xlSolid" & vbCrLf & _ " End With" & vbCrLf & _ "End If" End With Set obvbc = Nothing End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Exception list | Excel Discussion (Misc queries) | |||
handle #VALUE exception | Excel Worksheet Functions | |||
Exception deleting | Excel Discussion (Misc queries) | |||
Getting an error message that reads "illegal operation....VBE6.DL. | Excel Discussion (Misc queries) | |||
Excel Caused Error in VBE6.dll. Excel will Close | New Users to Excel |