VBA Excel - Apague todos os gráficos da Planilha - Delete all charts on worksheet




Sim, às vezes, para tornar as nossas planilhas mais leves, precisamos, antes de fechá-las e gravá-la, deletar todos os gráficos nela contidos. É lógico que isso só deve ser feito quando existem rotinas que garantem a criação automática dos mesmos.


Sub DelAllCharts()

Dim shp  As Shape

' Mude o nome da Planilha.
For Each shp In Sheets("nSheet").Shapes

    If shp.Type = msoChart Then
        shp.Delete
    End If

Next

End Sub

Tags: VBA, populando, combo box, formulário, form, control, controle


Nenhum comentário:

Postar um comentário

diHITT - Notícias