Question

我尝试创建3D饼图，但出现错误我在这里使用的代码

Public Sub ShowChart(ByVal mylist As List(Of Classdayhag))
        Dim celltable As excel.Range
        Dim indexcol As Integer
        Dim indexrow As Integer
        Try

            With xlworksheet
                celltable = .Range("A1", "B" & (mylist.Count - 1))
                indexcol = 1
                indexrow = 1
                For Each item As Classdayhag In mylist
                    .Cells(indexrow, indexcol) = item.dayname
                    .Cells(indexrow, indexcol + 1) = item.count
                    indexrow += 1
                Next
                celltable.Select()
                Dim mychart As New excel.Chart
                With mychart
                    .Shapes.AddChart.Select()
                    .ChartType = excel.XlChartType.xl3DPie
                    .SetSourceData(Source:=celltable)
                    .ApplyLayout(6)
                End With
            End With

            objexcel.Visible = True
            RaiseEvent isshown()
            objexcel = Nothing
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            objexcel = Nothing
        End Try

    End Sub

错误无法将类型为“ Microsoft.Office.Interop.Excel.ChartClass”的COM对象转换为接口类型为“ Microsoft.Office.Interop.Excel._Chart” 在第

行引发

 .Shapes.AddChart.Select()

预先感谢

Answer 1

我成功了

Public Sub ShowChart(ByVal mylist As List(Of Classdayhag), ByVal title As String)

        'create chart

        Dim xlCharts As excel.ChartObjects
        Dim myChart As excel.ChartObject
        Dim celltable As excel.Range
        Dim indexcol As Integer
        Dim indexrow As Integer

        Try
            xlCharts = CType(xlworksheet.ChartObjects, excel.ChartObjects)
            myChart = xlCharts.Add(10, 80, 400, 400)
            With xlworksheet
                celltable = .Range("A1", "B" & (mylist.Count))


                indexcol = 1
                indexrow = 1
                For Each item As Classdayhag In mylist
                    .Cells(indexrow, indexcol) = item.dayname
                    .Cells(indexrow, indexcol + 1) = item.count
                    indexrow += 1
                Next
                celltable.Select()


                With myChart
                    .Chart.ChartType = excel.XlChartType.xl3DPie
                    .Chart.HasTitle = True
                    .Chart.ChartTitle.Text = title
                    .Chart.ChartTitle.Font.Name = "Arial"
                    .Chart.ChartTitle.Font.Size = 12
                    .Chart.ChartTitle.Font.Bold = True
                    .Chart.SetSourceData(Source:=celltable)
                    .Chart.ApplyLayout(6)

                End With
            End With

            objexcel.Visible = True
            RaiseEvent isshown()
            objexcel = Nothing
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            objexcel = Nothing
        End Try

    End Sub

使用vb.net创建3D饼图

1 个答案: