Помогите, пожалуйста, решить две проблемы.
1. Изменение цветов круговых диаграм.
Для изменения цветов на диаграммах я использовал следующий листинг
Sub Color()
ActiveSheet.ChartObjects(1).Activate
With ActiveChart
.SeriesCollection(1).Interior.color = Range("d52").Interior.color
.SeriesCollection(2).Interior.color = Range("e52").Interior.color
.SeriesCollection(3).Interior.color = Range("f52").Interior.color
End With
End Sub
Однако, для круговых диаграмм он не работает
Подскажите, как решить эту проблему.
2. Макрос для изменения всех других макросов.
У меня есть два ряда данных
а a
б b
в c
Во всех макросах имеются названия, содержащиеся во втором столбце (имеется ввиду не ссылки на конкретные ячейки, а именно слова)
Как мне сделать так, чтобы значения второго столбца автоматически изменялись на значения первого столбца во всех макросах?
Заранее спасибо