
Задание: Написать макрос в OpenOffice, выводящий на экран круговую объемную диаграмму. Диапозон данных: $Sheet2.$F$3:$F$5
Всем откликнувшимся огромное спасибо!
Модератор: Naeel Maqsudov
Sub Макрос1()
Charts.Add
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("F2:F5"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
ActiveChart.HasTitle = False
End Sub