Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Vitrine

+Views

Widgets Mundo Blogger

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



Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias