Помогите, пожалуйста, с написанием макроса

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Шурлык
Сообщения: 1
Зарегистрирован: 07 дек 2009, 18:49

Чайник просит помощи :)

Задание: Написать макрос в OpenOffice, выводящий на экран круговую объемную диаграмму. Диапозон данных: $Sheet2.$F$3:$F$5

Всем откликнувшимся огромное спасибо!
RomaS
Сообщения: 57
Зарегистрирован: 05 мар 2008, 09:59

А там ф-ции записи макроса не имеется как в МС Оффисе? я не вкурсе просто...
В Экселе автозапись такое дала, мож и вам подойдет:
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
Ответить