使用VBA在Excel中删除图表

debugcn 发表于 Dev

Ashwith ullal

如何使用VBA删除Excel工作簿中的所有图表。

ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.Parent.Delete

十亿字节

这应该照顾您的需求。它还通过MsgBox提示用户，以防删除所需的图表/对象。

Sub delAllChartsInWorkbook（）
' 
'delchart宏
'由ejbytes记录的1/4/2016的宏
' 
    '变量
    Dim计数为Integer 
    Dim列表作为Integer 
    Dim currSheet作为工作表
    Dim myChart作为ChartObject 
    Dim是OrNoAnswerToMessageBox作为字符串
    Dim QuestionToMessageBox作为字符串
    Dim tmpName作为字符串


    '定义变量
    计数= ActiveWorkbook.Worksheets.count 

    '******************************************** ************ 
    '使用计数的循环示例。* 
    '**************************************************** ****
    对于LIST = 1进行计数
        MsgBox“这是一个循环示例。这是工作表：” _ 
                 ＆ActiveWorkbook.Worksheets（LIST）.Name 
    Next LIST 



    '************************ ******************************** 
    '*循环示例此工作簿中的所有工作表* 
    '*循环浏览每个工作表* 
    '*嵌套循环： * 
    '* * 
    '*外循环* 
    '******************************************** ************
    对于工作表
        MsgBox中的每个currSheet “当前工作表：”＆currSheet.Name 

        '****************************************************** ** 
        '*循环浏览当前工作表上的每个图表对象* 
        '* Sheets（“ Sheet1”）。ChartObjects * 
        '* * 
        '*内部循环* 
        '******************* **************************************
        对于currSheet.ChartObjects 

            QuestionToMessageBox =“ Delete chart：'”＆myChart中的每个myChart 。姓名 ＆ ”' ？” 
            YesOrNoAnswerToMessageBox = _ 
                MsgBox（QuestionToMessageBox，vbYesNo，“是/否评论？”）

            如果YesOrNoAnswerToMessageBox = vbNo然后
                MsgBox“图表：”＆myChart。
            别的
                tmpName = myChart.Name 
                MsgBox“图表：”＆tmpName＆“已删除！” 
                '修改我的图表？您也可以这样做：
                'myChart.Chart.ChartType = xlLine
            如果
        下一个myChart
    下一个

结束子项结束