Criando menus para Userforms sem uso de API - parte 1

Menus em Userforms sem o uso de API’s

Parte 1

Depois de algum tempo, retorno a dar continuidade à esta matéria que pode auxiliar muitos programadores em VBA Excel que gostariam de ter seus aplicativos mais atraentes e profissionais.

Andei perdendo alguns de meus códigos após uma formatação de disco rígido mal sucedida, o que me obrigou à refazer todo o projeto novamente. Devido à isto, tive que remover a postagem anterior. Vou reiniciá-lo nesta nova postagem. Em compensação, neste novo projeto, vou ensinar como desenvolver menus com submenus, onde em alguns, colocarei ações que serão disparadas ao clicar.

Considero neste tutorial, que você já possua o Excel devidamente configurado em seu computador. Utilizei neste projeto a versão 2003, embora acredito que outras versões também sirva, pois devem possuir as mesmas versões dos vários controles que utilizarei.

Sendo assim, inicie o Excel.

Vá até o menu Ferramentas => Macro =>Editor do Visual Basic ou pressione Alt+F11. Você verá o ambiente de desenvolvimento do Visual Basic.

Em seguida adicione um novo Form através do Menu Inserir => UserForm.

 Altere as seguintes propriedades do UserForm:

Name	frmPrincipal
Heigth	300
Width	450
Caption	“Atribua qualquer um”

Para a composição do menu, precisaremos de 2 tipos de controles: Listbox e Label.

Neste projeto, faremos 2(dois) Menus e, em alguns casos Sub-Menus. Portanto, precisaremos adicionar e configurar:

·        2(dois) ListBox (Caixa de Listagem);

·        3(Três) Label’s (Rótulo).

Propriedades dos controles:

Propriedades	ListBox1	ListBox2	Label1	Label2	Label3
Name	Menu	SubMenu	Label1	menuArquivo	menuDiversos
BackColor	&H00FFFFFF&	&H00FFFFFF&	&H80000004&	&H80000004&	&H80000004&
BorderColor	&H80000000&	&H80000000&		&H00C0C0C0&	&H00C0C0C0&
BorderStyle	1	1	1
Caption			“”	Arquivo	Diversos
ColumnCount	5	4
ColumnWidths	70;0;5;0;0	60;0;0;0
Height			17	12	12
IntegralHeigth	False	False
Left	300	300	0	2	50
Tag				1	2
Top	100	120	0	2	2
Visible	False	False
Width	90	90	450	48	48
Onde não há informações, deixar como está definido por padrão.

Obs.: Todo menu deverá ter a propriedade Tag = 1

No Final, Seu UserForm deve apresentar esta aparência:

Salve o seu projeto.