Views

Histats

Vitrine

VBA Excel - Apague todos os gráficos da planilha - Delete All Charts in Workbook




Todas as Você precisa ter algum cuidado ao utilizar este código, pois ele apaga todos os gráficos na pasta de trabalho ativa, e também é útil quando você quer limpar as coisas e começar de novo.


Sub AllChartsDelete()

On Error GoTo ExitChart


Dim ws As Worksheet

Dim chObj As ChartObject


  Let Application.DisplayAlerts = False

  'delete embedded charts


  For Each ws In ActiveWorkbook.Worksheets

    For Each chObj In ws.ChartObjects

       chObj.Delete

    Next chObj

  Next ws


  'delete the chart sheets

  ActiveWorkbook.Charts.Delete



ExitChart:

  Let Application.DisplayAlerts = True

  Exit Sub

End Sub

Tags: VBA, Excel, chart, graph, export, image, GIF, picture, active chart



✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias