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

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Receba  3 Calendários Customizáveis de  2013 em Excel

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Os 10 mandamentos do gerenciamento de projetos

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

13 Dicas para se Falar em Público

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

VBA Excel - Populando Combo Box no Formulário - Populate form control combo box using VBA

Receba  3 Calendários Customizáveis de  2013 em Excel

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Os 10 mandamentos do gerenciamento de projetos

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

13 Dicas para se Falar em Público

Mais um post rápido, que resolve.

Segue alguns códigos para que você possa popular o seu Combo Box nos formulários que você desenvolve.

Sub PrimeiroMetodo()

  ' Não se esqueça de mudar o combobox e o nome da planilha.

    With Sheet1.Shapes("drp_down1").ControlFormat

        .RemoveAllItems

        .AddItem "Jan"

        .AddItem "Feb"

        .AddItem "Mar"

    End With

End Sub

Sub SegundoMetodo()

 ' Não se esqueça de mudar o combobox e o nome da planilha.

    With Sheet1.Shapes("drp_down1").ControlFormat

            'change fill range here

            .ListFillRange = "Sheet1!$a$1:$a$5"

    End With

End Sub

Sub TerceiroMetodo()

    Dim rng As Range, cl As Range

    'change fill range here

    Set rng = Sheet1.Range("a1:a5")

     ' Não se esqueça de mudar o combobox e o nome da planilha.

     With Sheet1.Shapes("drp_down1").ControlFormat

        .RemoveAllItems

            For Each cl In rng

                .AddItem cl.Value

            Next

     End With

End Sub

Sub QuartaMetodo()

    Dim arr, i As Long

    'change fill range here

    arr = Sheet1.Range("a1:a5")

     ' Não se esqueça de mudar o combobox e o nome da planilha.

     With Sheet1.Shapes("drp_down1").ControlFormat

        .RemoveAllItems

            For i = LBound(arr) To UBound(arr)

                .AddItem arr(i, 1)

            Next

     End With

End Sub

brazilsalesforceeffectiveness@gmail.com