Выделить все SeriesCollection на графике

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделить все SeriesCollection на графике (Макросы/Sub)

rever27

Дата: Понедельник, 03.08.2015, 21:03 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 141

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

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

Ответить

KSV

Дата: Понедельник, 03.08.2015, 23:32 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

Если речь о всех точках одного ряда (например, ряд 5), то можно так:[vba]

Код

ActiveSheet.ChartObjects("Диаграмма 3").Chart.FullSeriesCollection(5).Format.Fill.ForeColor.RGB = vbRed

[/vba]

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

rever27

Дата: Понедельник, 03.08.2015, 23:53 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 141

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

KSV, Здравствуйте. Нет, речь идет о выделении всех Рядов на диаграмме.

[vba]

Код

       For i = 1 To 10
            With SeriesCollection(i).Format
                 .line.Transparency = 0.6
            End With
         Next

[/vba]

На листе диаграммы через Private Sub Chart_Select устанавливаю прозрачность Ряда с 1 по 10. Хотелось бы ускорить обработку этого процесса (Это пример, самих процессов больше, и они тормозят немного работу)

Ответить

Karataev

Дата: Вторник, 04.08.2015, 06:35 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

в самом эксель нельзя выделить несколько рядов,поэтому макросом это тоже сделать нельзя.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделить все SeriesCollection на графике (Макросы/Sub)

Страница 1 из 1
1