图表多曲线的粗细，一次行同时调整好？

wangpc99

Excel做的表，上面有多个图，每个图上面有3条曲线，如果一条一条的调整曲线粗细，非常费时间，有没有一个方法，可以把这多个图的多个曲线的粗细，都一次性的调整完成？如果多图的实在不行，一次性把一个图里面的3条曲线调整好也行。

木槿花西月锦绣

写代码吧                           

木槿花西月锦绣

木槿花西月锦绣 发表于 2024-9-5 10:31
写代码吧

百度给写的
Sub LoopThroughChartsAndSeries()
    Dim cht As ChartObject
    Dim srs As Series
    Dim ws As Worksheet
    Dim lineWeight As Long
   
    ' 设置需要的线条粗细值
    lineWeight = 1
   
    ' 假设我们在第一个工作表上操作
    Set ws = ThisWorkbook.Worksheets(1)
   
    ' 遍历工作表中的所有图表对象
    For Each cht In ws.ChartObjects
        
        ' 遍历图表中的每个数据系列
        For Each srs In cht.Chart.SeriesCollection
             srs.Format.Line.Weight = lineWeight
        Next srs
    Next cht
End Sub

wangpc99

木槿花西月锦绣 发表于 2024-9-5 11:02
百度给写的
Sub LoopThroughChartsAndSeries()
    Dim cht As ChartObject

复制粘贴到宏里面就可以吗？

木槿花西月锦绣

wangpc99 发表于 2024-9-5 13:19
复制粘贴到宏里面就可以吗？

我这里是没问题的，你自己再试试

wangpc99

木槿花西月锦绣 发表于 2024-9-5 15:25
我这里是没问题的，你自己再试试

还是可以的