VBA 图表操作缓慢

VBA 图表操作缓慢

Sub OptimizeLoop()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim ser As Series
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set cht = ws.ChartObjects("Chart1")
    
    ' 移除不必要的操作
    cht.Activate
    
    ' 使用For Each循环
    For Each ser In cht.Chart.SeriesCollection
        ' 处理系列数据
    Next ser
    
    ' 在循环外部更新图表
    cht.Chart.Refresh
    
    MsgBox "操作完成！"
End Sub

Sub AvoidDuplicateCalculation()
    Dim ws As Worksheet
    Dim rng As Range
    Dim total As Double
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:A1000")
    
    ' 使用变量存储计算结果
    total = Application.WorksheetFunction.Sum(rng)
    
    ' 在需要时重复使用计算结果
    MsgBox "总和为：" & total
End Sub

Sub RemoveBlankChartArea()
    Dim ws As Worksheet
    Dim cht As ChartObject
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 遍历图表对象并删除空白区域
    For Each cht In ws.ChartObjects
        If cht.Chart.ChartArea.Width = 0 Or cht.Chart.ChartArea.Height = 0 Then
            cht.Delete
        End If
    Next cht
    
    MsgBox "空白图表区域已删除！"
End Sub