Article ID: 170356
Article Last Modified on 2/12/2007
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.0#0; comdlg32.ocx
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.0#0; tabctl32.ocx
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.0#0; richtx32.ocx
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.0#0; comctl32.ocx
Object={FAEEE763-117E-101B-8933-08002B2F4F5A}#1.0#0; dblist32.ocx
Object={00028C01-0000-0000-0000-000000000046}#1.0#0; DBGRID32.OCX
Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#1.0#0; msrdc32.ocx
Reference=*\G{BEF6E001-A874-101A-8BBA-00AA00300CAB}#2.0#0#C:\WINDOWS\_
SYSTEM32\OLEPRO32.DLL#Standard OLE Types
Reference=*\G{EE008642-64A8-11CE-920F-08002B369A33}#1.0#0#C:\WINDOWS\_
SYSTEM32\MSRDO32.dll#Microsoft Remote Data Object 1.0
Name="Project1"
Reference=*\G{00020813-0000-0000-C000-000000000046}#1.2#0#C:\OFFICE97\_
OFFICE\EXCEL8.OLB#Microsoft Excel 8.0 Object Library
so that the file appears as follows:
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.0#0; comdlg32.ocx
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.0#0; tabctl32.ocx
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.0#0; richtx32.ocx
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.0#0; comctl32.ocx
Object={FAEEE763-117E-101B-8933-08002B2F4F5A}#1.0#0; dblist32.ocx
Object={00028C01-0000-0000-0000-000000000046}#1.0#0; DBGRID32.OCX
Object={F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#1.0#0; msrdc32.ocx
Reference=*\G{BEF6E001-A874-101A-8BBA-00AA00300CAB}#2.0#0#C:\WINDOWS\_
SYSTEM32\OLEPRO32.DLL#Standard OLE Types
Reference=*\G{EE008642-64A8-11CE-920F-08002B369A33}#1.0#0#C:\WINDOWS\_
SYSTEM32\MSRDO32.dll#Microsoft Remote Data Object 1.0
Reference=*\G{00020813-0000-0000-C000-000000000046}#1.2#0#C:\OFFICE97\_
OFFICE\EXCEL8.OLB#Microsoft Excel 8.0 Object Library
Name="Project1"
Reference=*\G{00020813-0000-0000-C000-000000000046}#1.0#9#C:\OFFICE97\_
OFFICE\XL5EN32.OLB#Microsoft Excel 5.0 Object Library
to:
Reference=*\G{00020813-0000-0000-C000-000000000046}#1.2#0#C:\OFFICE97\_
OFFICE\EXCEL8.OLB#Microsoft Excel 8.0 Object Library
Private Sub cmdMakeMyChart_Click()
Dim xlchart As Chart
Set xl = CreateObject("Excel.Application")
xl.Visible = True
xl.Workbooks.Add
xl.Range("a1").Value = 1
xl.Range("a2").Value = 2
xl.Range("a3").Value = 3
xl.Range("a4").Formula = "=sum(a1:a3)"
xl.Range("A1").CurrentRegion.Select
Set xlchart = xl.Charts.Add()
xlchart.Type = xl3DColumn
'xlchart.ChartType = xlPyramidCol
End Sub
xlchart.Type = xl3DColumn
'xlchart.ChartType = xlPyramidCol
becomes:
'xlchart.Type = xl3DColumn
xlchart.ChartType = xlPyramidCol
Additional query words: OLE object type library automation server registry GUID LCID
Keywords: kberrmsg kbbug kbinterop kbautomation kbpending KB170356