ایجاد نمودار ها و چارت ها در VBA

[esyoo]

أوستان چکار کنم این پیغام نیاد؟
همه روenable کردم ولی باز هم پیغام میده.

[m_d6712]

با سلام:



Private Sub UserForm_Activate()
Dim mychart As OWC11.ChChart
Dim mysheet As OWC11.Spreadsheet
Dim ws As Worksheet

Set mychart = ChartSpace1.Charts.Add
Set mysheet = New OWC11.Spreadsheet
Set ws = ActiveWorkbook.Sheets("Sheet1")

mysheet.Range("A2:B9") = ws.Range("A2:B9").Value
ChartSpace1.DataSource = mysheet

With mychart
.Type = chChartTypeColumnClustered

.SetData chDimCategories, 0, "A2:A9"
.SetData chDimValues, 0, "B2:B9"
.HasTitle = True
.Title.Caption = "ãÕÑÝ"
End With
End Sub