VBA: ввод цвета RGB с использованием массива

У меня была такая же проблема в прошлом на многих сайтах, которые я сделал здесь на работе. Единственный гарантированный способ удостовериться, что пользователь получил письмо, - это дать пользователю возможность добавить вас в безопасный список. Любой другой метод действительно будет только тем, что может помочь с ним и не гарантируется.

0
задан BlackBear 18 January 2019 в 10:42
поделиться

1 ответ

Я бы установил цвета фона ячейки, а затем прочитал их непосредственно, чтобы установить цвета графика:

Public rngColors        As Range
Public cht              As ChartObject
Public i                As Long
Public Ws               As Worksheet

Set Ws = ThisWorkbook.Sheets("Main")

With ws

   'note: fully-reference all Range/Cells
    Set rngColors = .Range(.Cells(x, y), .Cells(z, y)) ' x,y,z defined elsewhere

   For Each cht In .ChartObjects
      i = 1 
      cht.Chart.FullSeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = _
                      rngColors.Cells(i).Interior.Color       
      i = i + 1
   Next cht
 End with
0
ответ дан Tim Williams 18 January 2019 в 10:42
поделиться
Другие вопросы по тегам:

Похожие вопросы: