'--- Create a Chartsheet
Dim xla As New ExcelApplication()
Dim wb As Workbook = xla.Create()
Dim ws As Worksheet = wb.Worksheets(0)
Dim cs As Chartsheet = wb.Worksheets.CreateChartsheet _
(ChartType.Pie.Pie3D, "Chart")
'--- Get the first Chartsheet from a Workbook
Dim xla As New ExcelApplication()
Dim wb As Workbook = xla.Open("C:\MySpreadsheet.xls")
Dim found As Boolean = False
Dim i As Integer
For i = 0 To wb.Worksheets.Count - 1
If found = False Then
Dim ws As Worksheet = wb.Worksheets(i)
If ws Is Chartsheet Then
Dim cs As Chartsheet = CType(ws, Chartsheet)
found = True
End If
End If
Next
|