Листинг 4. Управление диаграммой

Private Sub ComboBox1_Change()

Dim r As Integer

ActiveSheet.ChartObjects(1).Activate

r = ComboBox1.ListIndex + 2

With ActiveChart

.SetSourceData _

    Source:= _

      Sheets(1).Range(Cells(2, 2), Cells(r, 2)), PlotBy:=xlColumns

     .SeriesCollection(1).XValues _

         = Sheets(1).Range(Cells(2, 1), Cells(r, 1))

End With

 

End Sub

 

 

 

Рис. 14.Построение диаграммы «Доходы фирмы».

 

 

 

Рис. 15.Для элемента Поле со списком в окне свойств Propertiesустановлено значение свойства ListFillRange
равным A2:A13.

 

 

 

Рис. 16. Результат построения графика доходов фирмы за январь, февраль и март.

 

 

---

Дата добавления: 2018-04-05; просмотров: 322; Мы поможем в написании вашей работы!

Поделиться с друзьями:

---

---

Мы поможем в написании ваших работ!