Работа с диаграммами - Microsoft Office Excel

Devourer12345 · 04.08.2008, 17:30

Как сделать подписи кусков(в круговой деограмме) видимыми? имеется в виду процентное значение...

IgorGO · 04.08.2008, 17:46

Правый щелчек на диаграмме, "Формат ряда данных", закладка "Подписи данных", ставим птицу "Доли"

Devourer12345 · 04.08.2008, 18:48

Код:

 Charts.Add
    ActiveChart.ChartType = xl3DPieExploded
    ActiveChart.Location xlLocationAsObject, "a"
    ActiveChart.SetSourceData Source:=Worksheets(1).Range("E52:E56"), PlotBy:=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "='a'!R52C2:R56C2"
    ActiveChart.SeriesCollection(1).Name = "=""Тра ля ля"""
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Position = xlBottom
    ActiveSheet.Name = "Траляля за" & stName

Где тут галочку поставить??? никак не пойму?

Devourer12345 · 05.08.2008, 13:40

Строчка нашлась

Код:

 Charts.Add
    ActiveChart.Location _
      Where:=xlLocationAsObject, Name:="Итог за месяц"
    With ActiveChart
        .SetSourceData Range(Cells(1, 1), Cells(4, 2))
        .HasTitle = True
        .ChartType = xl3DPieExploded
        .HasLegend = False
        .ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent
        .ChartTitle.Font.Bold = True
        .ChartTitle.Font.Size = 12
        .PlotArea.Top = 18
        .PlotArea.Height = 162
        .Deselect
    End With

Но есть ошибка синтаксиса... кто нить знает как ее исправить?

VictorM · 05.08.2008, 14:50

Код:

 .SetSourceData Range(Sheets("Лист1").Cells(1, 1), Sheets("Лист1").Cells(4, 2))

04.08.2008, 17:30	#1
Devourer12345 Пользователь Регистрация: 14.07.2008 Сообщений: 37	Работа с диаграммами Как сделать подписи кусков(в круговой деограмме) видимыми? имеется в виду процентное значение...

04.08.2008, 17:46	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Правый щелчек на диаграмме, "Формат ряда данных", закладка "Подписи данных", ставим птицу "Доли" Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

05.08.2008, 14:50	#5
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Код: `.SetSourceData Range(Sheets("Лист1").Cells(1, 1), Sheets("Лист1").Cells(4, 2))` "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499