Изменение веса линий рядов данных в диаграмме Excel (много сразу)

это более copy-and-paste совместимая версия ответа Криса:

Sub SetWeights()
    Dim srs As Series
    For Each srs In ActiveChart.SeriesCollection
        srs.Format.Line.Weight = 0.25
    Next
End Sub

просто выберите диаграмму и запустите макрос.

улучшение: создайте переменную VB (LineWT), которая указывает на ячейку в электронной таблице. Тогда вместо " Format.Линия.Вес = 0,25 " изменение 0,25 на LineWT. Затем можно изменить вес линии, изменив его в электронной таблице и нажав кнопку макрос. Подобный код можно использовать для задания имен осей X / Y с указателями на электронную таблицу.

это отлично сработало для меня. Я использовал этот код, чтобы он редактировал все строки во всех диаграммах на всех листах книги

Sub ChangeLineType()

'This macro will print all embedded charts in the active workbook
'
    Application.ScreenUpdating = False
    Dim Sht As Object
    Dim Cht As ChartObject
    For Each Sht In ActiveWorkbook.Sheets
        For Each Cht In Sht.ChartObjects
            Cht.Activate
            ActiveChart.ChartArea.Select
            'ActiveWindow.SelectedSheets.PrintOut
                Dim srs As Series
                For Each srs In ActiveChart.SeriesCollection
                srs.Format.Line.Weight = 0.25
                Next
        Next
    Next
End Sub

Я не думаю, что вы можете выбрать несколько строк. Самый простой способ, вероятно, изменить один, а затем выбрать каждый по очереди использовать Ctrl-Y, чтобы пройти и повторно сделать изменение веса линии.

этот код изменяет ширину всех таблиц в активной таблице в том числе листы диаграмм:

' Sets the line thickness for all charts in the active spreadsheet.
Sub ChangeLineType()
    Dim Cht As Chart
    Dim Chts As New Collection
    Dim Sht As Object   ' Can be Chart or WorkSheet

    For Each Sht In ActiveWorkbook.Sheets
        If TypeName(Sht) = "Chart" Then
            Chts.Add Sht
        Else
            For Each Cht In Sht.ChartObjects
                Chts.Add Cht
            Next
        End If
    Next

    Application.ScreenUpdating = False
    For Each Cht In Chts
        Dim Srs As Series
        For Each Srs In Cht.SeriesCollection
            Srs.Format.Line.Weight = 0.25
        Next Srs
    Next Cht
End Sub

(адаптировано из ответа Дэвида Маркмана.)