VBA

Question

我的代码有一个主要问题，应该重置工作表，而不是关闭整个工作簿并强制重新启动。这不是问题，只是在我添加了从 On Error Resume Next.

开始的最后一位代码后才出现

Sub Reset()

    Application.ScreenUpdating = False

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "Set Up" Or ws.Name = "Report" Then
            Else:
                Application.DisplayAlerts = False
                ws.Delete
        End If
    Next

    Worksheets("Report").Cells.ClearContents

    On Error Resume Next
    Application.DisplayAlerts = False
    ThisWorkbook.Charts.Delete
    Application.DisplayAlerts = True
    On Error GoTo 0

End Sub

提前致谢

Answer 1

这会删除工作表中的图表，例如活动表：

Sub DeleteallCharts() 
    Dim chtObj As ChartObject 
    For Each chtObj In ActiveSheet.ChartObjects
        chtObj.Delete 
    Next 
End Sub

如果你想删除工作簿中的所有图表，那么你也必须像这样循环遍历工作表：

Sub DeleteallChartsInWorkbook() 
    Dim chtObj As ChartObject 
    Dim WS As Worksheet
    For Each WS in Thisworkbook.Worksheets
        For Each chtObj In WS.ChartObjects
            chtObj.Delete 
        Next chtObj 
    Next WS
End Sub

Answer 2

如果您有图表，则应使用以下代码：

Sub DeleteChartSheets()

    Dim ch As Chart

    For Each ch In ThisWorkbook.Charts
        ch.Delete
    Next

End Sub

VBA - Excel 强制重启

VBA - Excel Forces Restart

excel

excel-2007