Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заливка маркеров диаграммы по данным и цвету - в столбце G - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка маркеров диаграммы по данным и цвету - в столбце G (Макросы/Sub)
Заливка маркеров диаграммы по данным и цвету - в столбце G
cerber412 Дата: Четверг, 01.08.2019, 00:04 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток.

Помогите, пожалуйста.
Имеется диаграмма с большими квадратными маркерами.
Она строится по таблице E10:F31.
Рядом стоит еще столбец G10:G31.

Как макросом - щелкнув на кнопку - передать этим маркерам по данным столбца G - либо заливку определенным цветом, либо заливку рисунком по указанному в ячейке адресу ?
К сообщению приложен файл: 5281537.xls(74.5 Kb)
 
Ответить
СообщениеДоброго времени суток.

Помогите, пожалуйста.
Имеется диаграмма с большими квадратными маркерами.
Она строится по таблице E10:F31.
Рядом стоит еще столбец G10:G31.

Как макросом - щелкнув на кнопку - передать этим маркерам по данным столбца G - либо заливку определенным цветом, либо заливку рисунком по указанному в ячейке адресу ?

Автор - cerber412
Дата добавления - 01.08.2019 в 00:04
Pelena Дата: Четверг, 01.08.2019, 07:39 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14327
Репутация: 3132 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Например, так можно
[vba]
Код
Sub Макрос1()
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    r = 10
    With ActiveChart.FullSeriesCollection(1)
        Do While r < 32 And Cells(r, 5) <> ""
            With .Points(r - 9).Format.Fill
                If Cells(r, 7) = "" Then
                    .Visible = msoTrue
                    .ForeColor.RGB = Cells(r, 7).Interior.Color
                Else
                    .Visible = msoTrue
                    .UserPicture Cells(r, 7).Value
                End If
            End With
            r = r + 1
        Loop
    End With
End Sub
[/vba]
К сообщению приложен файл: 0891087.xls(97.0 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Например, так можно
[vba]
Код
Sub Макрос1()
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    r = 10
    With ActiveChart.FullSeriesCollection(1)
        Do While r < 32 And Cells(r, 5) <> ""
            With .Points(r - 9).Format.Fill
                If Cells(r, 7) = "" Then
                    .Visible = msoTrue
                    .ForeColor.RGB = Cells(r, 7).Interior.Color
                Else
                    .Visible = msoTrue
                    .UserPicture Cells(r, 7).Value
                End If
            End With
            r = r + 1
        Loop
    End With
End Sub
[/vba]

Автор - Pelena
Дата добавления - 01.08.2019 в 07:39
cerber412 Дата: Четверг, 01.08.2019, 12:56 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, спасибо
 
Ответить
СообщениеPelena, спасибо

Автор - cerber412
Дата добавления - 01.08.2019 в 12:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка маркеров диаграммы по данным и цвету - в столбце G (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!