powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel: работа с серией графика
7 сообщений из 7, страница 1 из 1
Excel: работа с серией графика
    #32929685
Vadim Romanenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уважаемый мировой разум! Подскажите пожалуйста ответ на вопрос: Как определить количество точек в серии??
Серия получается при помощи:
ThisWorkbook.Charts(1).SeriesCollection(i)
...
Рейтинг: 0 / 0
Excel: работа с серией графика
    #32929694
Vadim Romanenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В связи с чем возник вопрос... Есть макрос, в котором производится раскраска графика в Excel. В частности изменяются свойства серий, таким образом:
With ThisWorkbook.Charts(1).SeriesCollection(i)
.Border.ColorIndex = 57
.Border.Weight = xlMedium
.Border.LineStyle = xlContinuous
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlCircle
.Smooth = False
.MarkerSize = 4
.Shadow = False
End With

Если серия содержит данные, то все нормально. Но если серия пустая (без точек на графике) то вываливается с ошибкой - Невозможно установить свойство ColorIndex класса Border и так до конца With. То есть, есть подозрение, что если вставить проверку условия на наличие неNULL точек в серии - все будет хорошо. Как бы это сделать??
...
Рейтинг: 0 / 0
Excel: работа с серией графика
    #32929759
MLeon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Debug.Print UBound(ThisWorkbook.Charts.Item(i).SeriesCollection(j).Values), UBound(ThisWorkbook.Charts.Item(i).SeriesCollection(j).XValues)
...
Рейтинг: 0 / 0
Excel: работа с серией графика
    #32929777
Vadim Romanenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MLeonDebug.Print UBound(ThisWorkbook.Charts.Item(i).SeriesCollection(j).Values), UBound(ThisWorkbook.Charts.Item(i).SeriesCollection(j).XValues)

У меня почему-то не работает ф-ция ThisWorkbook.Charts.Item(1).SeriesCollection(1).Values для пустой серии... Есть одна серия и один чарт. Так тож не работает:
ThisWorkbook.Charts(1).SeriesCollection(1).Values
Выдает ошибку в баггере:
<Невозможно получить свойство Values класса Series>

Как бы определить, в чем дело??? Может есть признак какой-то?? Инициализации массива данных серии?
...
Рейтинг: 0 / 0
Excel: работа с серией графика
    #32929879
MLeon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Values - динамический массив. Если он не выделен - ошибка. Нужно обрабатывать.
...
Рейтинг: 0 / 0
Excel: работа с серией графика
    #32930770
Vadim Romanenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MLeonValues - динамический массив. Если он не выделен - ошибка. Нужно обрабатывать.

А как определить - выделен/не выделен?? Вообще - как тут ошибки обрабатывать?
Какая-нить конструкция вроде try/catch...
...
Рейтинг: 0 / 0
Excel: работа с серией графика
    #32930885
Vadim Romanenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
С обработкой ошибок - нашел сам...
On Error...
А как же все-таки определить - сколько точек в серии? И чтоб работало, когда в серии нет точек??
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel: работа с серией графика
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]