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

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

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

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

cerber412

Дата: Четверг, 01.08.2019, 00:04 | Сообщение № 1

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

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

Сообщений: 131

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

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

Excel 2013

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

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

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

К сообщению приложен файл: 5281537.xls (74.5 Kb)

Ответить

Pelena

Дата: Четверг, 01.08.2019, 07:39 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

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

Замечаний: ±

Excel 365 & 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)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

cerber412

Дата: Четверг, 01.08.2019, 12:56 | Сообщение № 3

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

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

Сообщений: 131

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

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

Excel 2013

Pelena, спасибо

Ответить

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

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