Configurar barra de progresso na caixa de dialogo

[Juan.rba]

Olá amigos, pesquisei bastante e não achei um tutorial ou exemplos de como configurar uma barra de progresso numa caixa de diálogo, qdo ela deve avançar e quanto e tudo mais…desde já obrigado.

[Grafeno]

Boa tarde,

Veja se o exemplo lhe ajuda:

• Dialogo_de_Progresso.ods (Exemplo)

Código:

Sub CarregarDialogoProgresso
Dim oDialogo As Object, oBarraProgresso As Object
Dim i As Integer

   'Carregar o Diálogo de Progresso'
   DialogLibraries.loadLibrary( "Standard" )
   oDialogo = CreateUnoDialog( DialogLibraries.Standard.DialogoProgresso )
   
   'Obter a barra de progresso'   
   oBarraProgresso = oDialogo.Model.getByName( "ProgressBar1" )

   'Definir os valores mínimo e máximo da barra de progresso'
   With oBarraProgresso
     .ProgressValueMin = 1 'Valor mínimo'
     .ProgressValueMax = 15 'Valor máximo'
   End With
   
   ' Invocar o dialogo pela propriedade Visible (Diálogo não modal) '
   ' para que barra de progresso seja exibida "carregando" '
   oDialogo.Visible = True
   
   For i = 1 To 15
     oBarraProgresso.ProgressValue = i
     Wait 200 
   Next i
   
   'Após o final do loop, o diálogo é descartado automaticamente por ter sido invocado'
   'como não modal
End Sub

Atte,

[joaorochaj]

Como faz uma barra de progresso que o wait dele puxa de uma celula?

[Grafeno]

@joaorochaj, está questão já foi encerrada (resposta aceita). É preciso que vc abra uma nova pergunta para o seu questionamento. Aproveite e dê maiores detalhes, como quantas células, e puxar para onde. Atte,

[Amaral]

Ficou ótimo e claro seu exemplo.