ActiveWindow.Visible = False
Windows("Расчет_СЗЗ БС-137.xls").Activate
Range("DD13").Select
ActiveSheet.ChartObjects("Диагр. 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "=GSM1!R4C103:R24C103"
Сейчас этот форум просматривают: AhrefsBot и гости: 70