Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Подписи данных в диаграмме
 
#1
02.07.2013 15:37:19
Добрый день!
Возникла такая проблема... не получается отобразить одновременно подписи данных на всех рядах... необходимо протыкать каждый ряд в отдельности...
Работаем в офисе 2010... рядов много - соответственно возникают временные затраты... в офисе 2003 такой проблемы не было...
заранее спасибо...
 
 
 
#2
02.07.2013 15:52:14
Код
Dim i As Long
Dim ser As Series
Dim serCol As SeriesCollection
Set serCol = cht.SeriesCollection
For Each ser In serCol
    For i = 1 To ser.Points.Count
        ser.Points(i).DataLabel.Text = i
    Next
Next
There is no knowledge that is not power
 
 
 
#3
02.07.2013 17:01:31
код для чего? куда его мне впихнуть?
обновление версии офиса эту проблему решит или сервис пак какой нить?
 
 
 
#4
02.07.2013 17:04:20
А пример можно увидеть? Возможно проблема намного проще решается :)
 
 
 
#5
02.07.2013 17:06:27
Цитата
Blood пишет:
код для чего? куда его мне впихнуть?
Какой вопрос - такой и ответ. :D
There is no knowledge that is not power
 
 
 
#6
02.07.2013 17:09:24
Пример что нужно, только рядов будет в разы больше...
а тут на 3-х ничего не выходит... приоритет точечная диаграмма
 
 
 
#7
02.07.2013 17:14:26
А вариант через Макет - Подписи - Подписи данных? При полностью выделенной диаграмме. Ну или создать одну диаграмму и сохранить ее как шаблон?
Изменено: Атлика - 02.07.2013 17:18:11
 
 
 
#8
03.07.2013 08:26:55
Пробовали... неважно что там выделять - в последний момент выделение сбивается на первый ряд... и выделить все ряды разом ну никак не выходит... в старших версиях офиса не в курсе эта проблема решена?
 
 
 
#9
03.07.2013 09:22:18
Этот код можно "впихнуть" в личную книгу макросов или сохранить в данной конкретной книге (как Книга Excel с поддержкой макросов).
Вызов - по Alt-F8.
На всех рядах диаграмм активного листа устанавливает подписи данных справа, подпись включает имя ряда, значение X, значение Y

Код
Sub DataLabels()
  Dim ChartObj, SeriesCol
  For Each ChartObj In ActiveSheet.ChartObjects
    With ChartObj.Chart
      .ApplyDataLabels
      For Each SeriesCol In .SeriesCollection
        With SeriesCol.DataLabels
          .ShowSeriesName = True
          .ShowCategoryName = True
          .Position = xlLabelPositionRight
        End With
      Next
    End With
  Next
End Sub
Изменено: ZVI - 03.07.2013 09:26:21
 
 
 
#10
04.07.2013 15:48:42
спасибо попробуем... жаль что нельзя без макросов...
 
 
 
#11
25.09.2015 15:39:56
спасибо за код. пригодилось.
 
 
 
Страницы: 1
Наверх