cкорректируй макрос так, чтобы ширина окна для подписи данных была не более 8,17 пт: Sub ИзменитьЦвет() 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
        
        ' Настройка подписей данных
        If series.HasDataLabels Then
            With series.DataLabels
                .position = xlLabelPositionBelow
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
            End With
            
            With series.DataLabels.Font
                .Size = 28
                .Color = RGB(0, 0, 0)
            End With
        End If
    Next series
    
    ' Настройка легенды
    If chart.HasLegend Then
        With chart.legend.Font
            .Size = 28
            .Color = RGB(0, 0, 0)
        End With
    End If
    
    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
        
        ' Настройка подписей данных
        With series.DataLabels
            .position = xlLabelPositionBelow
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            
            ' Содержимое подписей - имя ряда
            .ShowSeriesName = True
            .ShowValue = False
            .ShowCategoryName = False
            .ShowPercentage = False
        End With
        
        ' Настройка шрифта подписей
        With series.DataLabels.Font
            .Size = 28
            .Color = RGB(0, 0, 0)
        End With
        
        ' Настройка прозрачности текста подписей
        With series.DataLabels.Format.TextFrame2.TextRange.Font.Fill
            .ForeColor.RGB = RGB(0, 0, 0)
            .Transparency = 0
        End With
        
    Next series
    
    On Error GoTo 0
End If
End Sub