Dunguinha,

Boa tarde!

Basta você pegar o código que está no evento click do botão do fórum e inserir no evento inicialize do form.

No botão da planilha você associa um código que carregue o formulário. Desse modo, quando o formulário inicializar, vai disparar o código que faz a barra de progresso funcionar.

Bom dia Wagner.
Fiz exatamente isso. Mas o form só abre depois que a barra progresso executa rotina.
Dá uma olhada.

Dunguinha,

Bom dia!

Você está utilizando funções de API do Windows. Sinceramente, não sei como utilizar ou como funcionam essas API's. Desse modo, não tenho como lhe ajudra. Imaginei que você estava utilizando os comandos normais para preencher a barra de progresso do próprio VBA e que, aliás, o código VBA para essa barra de progresso funcionar já estivesse pronto e funcionando (pois também nunca trabalhei com barras de progresso). Mas... com barra de progresso funcionando a partir de função API do Windows não é do meu conhecimento.

Apague o código do inicialize do form.

Cole o código alterado abaixo na função Activate do form

Favor colocar o tópico como concluído e se puder manda um thanks aew

'Macro alterada por Joe em 14/09/2017
'Contato para freelancer: (61) 99136-3695
Dim intIndex As Integer
   Dim sngPercent As Single
   Dim intMax As Integer
    
   intMax = 50
   
   For intIndex = 1 To intMax
       sngPercent = intIndex / intMax
       ProgressStyle5 sngPercent
       ProgressStyle6 sngPercent
       
   DoEvents
        
        Sleep 50
        Me.Repaint
    Next

Bom dia colegas.
Era isso mesmo que eu precisava, ficou show bola.
Muito obrigado.

Abraços

Boa tarde Dunguinha

Acesse o link abaixo para aprender a usar a ferramenta para agradecer aos colaboradores e também como usar corretamente a ferramenta que marca o tópico como Resolvido, pois você deve marcar na resposta que melhor atendeu, não na tua resposta.

viewtopic.php?f=7&t=16757

[]s
Patropi - Moderador