Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

306 Parte IV: Como se Comunicar com Seus Usuários
Criando o indicador de progresso na caixa de diálogo
O primeiro passo é criar o seu UserForm. Neste exemplo, a caixa de
diálogo exibe o progresso enquanto uma macro insere números aleatórios
em 100 colunas e 1.000 linhas da atraente planilha. Para criar a
caixa de diálogo, siga estas etapas:
1. Ative o VBE e insira um novo UserForm.
2. Mude a legenda do UserForm para Progress.
3. Acrescente um objeto Quadro e configure as seguintes propriedades:
Propriedade
Valor
Caption 0%
Name
FrameProgress
SpecialEffect
2 – fmSpecialEffectSunken
Width 204
Height 28
4. Adicione um objeto Rótulo dentro do quadro e configure as
seguintes propriedades:
Propriedade
Valor
Name
LabelProgress (Progresso de
Etiqueta)
BackColor
&H000000FF& (red)
Caption
(sem legenda)
SpecialEffect
1 – fmSpecialEffectRaised
Width 20
Height 13
Top 5
Left 2
5. Acrescente outro Rótulo no quadro e mude a sua propriedade
Caption para Entering random numbers…
O UserForm deve se parecer com a Figura 18-10.
Figura 18-10:
O indicador
de progresso
de UserForm.
(figura)
Os procedimentos