скорректируй макрос так, чтобы он работал: Sub ИзменитьЦветКруговДиаграммыZS_Простой()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim chart As chart
    Dim series As series
    Dim targetColorZS As Long
    Dim targetColor11 As Long
    Dim chartFound As Boolean
    Dim iPoint As Long
    
    ' Цвет для диаграммы "ZS"
    targetColorZS = RGB(68, 114, 116)
    ' Цвет для диаграммы "Диаграмма11"
    targetColor11 = RGB(255, 255, 255)  ' ? Установлено на нужный цвет
    
    ' Обработка диаграммы ZS
    chartFound = False
    For Each ws In ActiveWorkbook.Worksheets
        For Each chartObj In ws.ChartObjects
            If chartObj.Name = "ZS" Then
                Set chart = chartObj.chart
                chartFound = True
                Exit For
            End If
        Next chartObj
        If chartFound Then Exit For
    Next ws
    
    If chartFound Then
        On Error Resume Next
        For Each series In chart.SeriesCollection
            ' Цвет заливки ряда
            series.Format.Fill.ForeColor.RGB = targetColorZS
            ' Цвет маркеров (заливка и обводка)
            series.MarkerBackgroundColor = targetColorZS
            series.MarkerForegroundColor = targetColorZS
            
            ' Цвет каждого маркера (круга)
            For iPoint = 1 To series.Points.count
                With series.Points(iPoint).Format.Fill
                    .Visible = msoTrue
                    .ForeColor.RGB = targetColorZS
                    .Solid
                End With
                ' ? Настройка обводки маркера
                With series.Points(iPoint).Format.Line
                    .Visible = msoTrue
                    .ForeColor.RGB = targetColorZS
                    .Weight = 1.5 ' Толщина линии по умолчанию
                End With
            Next iPoint
        Next series
        
        If chart.HasLegend Then
            With chart.legend.Font
                .HorizontalAlignment = xlLeft
                .Size = 32
.Transparency = 0
            End With
        End If
        
        For Each series In chart.SeriesCollection
            If series.HasDataLabels Then
                With series.DataLabels.Font
                    .Size = 32
.Transparency = 0
                    .HorizontalAlignment = xlLeft
         ' Настройка выравнивания подписей данных
        With series.DataLabels
            ' 1. Расположение ПОД точкой данных (маркером)
            .position = xlLabelPositionBelow
            
            ' 2. Выравнивание текста по центру (горизонтальное) внутри блока подписи
            .HorizontalAlignment = xlCenter
            
            ' (Опционально) Выравнивание по центру по вертикали
            .VerticalAlignment = xlCenter
        End With

                    
                    
                    
                End With
            End If
        Next series
        On Error GoTo 0
    
        
    End If
    
    ' Обработка диаграммы "Диаграмма11"
    chartFound = False
    For Each ws In ActiveWorkbook.Worksheets
        For Each chartObj In ws.ChartObjects
            If chartObj.Name = "11" Then
                Set chart = chartObj.chart
                chartFound = True
                Exit For
            End If
        Next chartObj
        If chartFound Then Exit For
    Next ws
    
    If chartFound Then
        On Error Resume Next
        For Each series In chart.SeriesCollection
            ' Цвет заливки ряда
            series.Format.Fill.ForeColor.RGB = targetColor11
            ' Цвет маркеров (заливка и обводка)
            series.MarkerBackgroundColor = targetColor11
            series.MarkerForegroundColor = targetColor11
            
 ' Включаем подписи данных
        series.HasDataLabels = True
        
 
            
            ' Цвет каждого маркера (круга)
            For iPoint = 1 To series.Points.count
                With series.Points(iPoint).Format.Fill
                    .Visible = msoTrue
                    .ForeColor.RGB = targetColor11
.Transparency = 0 ' Прозрачность 0%
                    .Solid
                End With
                ' ? Настройка обводки маркера
                With series.Points(iPoint).Format.Line
                    .Visible = msoTrue
                    .ForeColor.RGB = RGB(68, 114, 116)
                    .Weight = 1.5 ' Толщина линии обводки
.Transparency = 0 ' Прозрачность 0%
                End With
            Next iPoint
        Next series
        
        For Each series In chart.SeriesCollection
            
                With series.DataLabels.Font
                    .Size = 32
                    .Transparency = 0 ' Прозрачность 0%
                End With
    Next series
    On Error GoTo 0
        If chartFound Then
    On Error Resume Next

     
        ' Цвет заливки ряда
        series.Format.Fill.ForeColor.RGB = targetColor11
        ' Цвет маркеров (заливка и обводка)
        series.MarkerBackgroundColor = targetColor11
        series.MarkerForegroundColor = targetColor11
        
        ' Включаем подписи данных (если нужно)
        series.HasDataLabels = True
End If
        ' Настройка подписей данных
        With series.DataLabels
            ' Устанавливаем черный цвет текста
            .Font.Color = RGB(0, 0, 0)
            ' Устанавливаем прозрачность 98%
            .Format.TextFrame2.TextRange.Font.Fill.Transparency = 0
        End With
   
End Sub