'Построение диаграммы 1
          Dim Диаграмма As Excel.ChartObject
          Dim Данные As Excel.Range
          Set Диаграмма = ActiveSheet.ChartObjects.Add(ActiveCell.Left + 5, ActiveCell.Top + 5, 440, 210)
          Диаграмма.Chart.ChartType = xlBarClustered 'xlDoughnut
          On Error Resume Next
          With Worksheets("Sort")
              Set Данные = .Range("S1:Y1, S" & i + 2 & ":Y" & i + 2)
          End With
          Диаграмма.Chart.SetSourceData _
              Source:=Worksheets(Данные.Worksheet.Name).Range(Данные.Address) ', PlotBy:=xlColumns
          Диаграмма.Chart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
          False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, _
          ShowPercentage:=False, ShowBubbleSize:=False
          ActiveSheet.ChartObjects("Диаграмма 2").Activate
          ActiveChart.Legend.Select
          Selection.Delete
          ActiveChart.Axes(xlValue).Select
          ActiveChart.Axes(xlValue).MaximumScale = 1 ' размер диограммы до 100%
          ActiveChart.Axes(xlValue).MajorGridlines.Select
          ActiveChart.ChartArea.Select
          ActiveChart.PlotArea.Select
          Selection.Width = 400
          Range("A57").Select