макрос очистки ячеек excel

Ответ от Алексей Матевосов (AlexM)[гуру]
Попробуйте так Sub sfg() ind_graf = 1 \'идекс диаграммы Set ws_data = Worksheets(\"Данные\") Set ws_graf = Worksheets(\"Диаграмма\") text_str = ws_data.Cells(5, 1) \'адрес ячейки с заголовком диаграммы ws_graf.ChartObjects(ind_graf).Chart.HasTitle = True ws_graf.ChartObjects(ind_graf).Chart.ChartTitle.Characters.Text = text_str End Sub Заголовок диаграммы берется из ячейки А5 листа с именем \"Данные\" Диаграмма расположене на листе с именем \"Диаграмма\" Меняя номер индекса диаграммы и адрес ячейки с заголовком можно добавлять заголовки и у других диаграмм на листе \"Диаграммы\" Перед испытанием макроса Дайте имена листам, вбейте заголовок диаграммы в ячейку. Разумеется диаграмма должна быть, так как макрос вставляет лишь заголовок.