Parte 2 - Formatando o corpo do programa
Autor: Eli Vieira | Publicado: 2016-12-01T18:26:00-02:00


To de volta

&nbsp; &nbsp; &nbsp; No post anterior fizemos a divisão das áreas no corpo do nosso programa. Agora vamos melhorar um pouco mais.
&nbsp; &nbsp; &nbsp; Para isto eu tive de fazer alguns ajustes.
&nbsp; &nbsp; &nbsp; O primeiro foi configurar o tamanho das colunas.
&nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; Criei a rotina colunas()





Esta rotina será chamada logo após a criação das planilhas.




&nbsp; &nbsp; &nbsp; &nbsp;A primeira coluna terá o tamanho 25 e as demais 10, totalizando 105.

&nbsp; &nbsp; Mais pra frente iremos utilizar mais esta rotina pois teremos de redimensionar as células da nossa planilha.
&nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp;Também foi preciso alterar a rotina para criação dos controles.
&nbsp; &nbsp; &nbsp;A rotina antes chamada controle() agora chama-se ctltipo1()





&nbsp; &nbsp; Além do nome o que mudou?
&nbsp; &nbsp;
Coloquei uma condição para que o item fosse criado, lembrando que esta rotina cria uma shape estilo wordArt.
&nbsp; &nbsp;
A linha If achaShape(plan,titulo) = 0 then&nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;instruções
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;end if&nbsp;
testa se a shape( objeto ) já existe, se não existir executa as instruções.
&nbsp; 
&nbsp;Os parâmetros são os mesmo ja explicados&nbsp;aqui

Também fiz uma rotina para inserir o objeto imagem. ctltipo2()












&nbsp; &nbsp; &nbsp; Os parâmetros são:
plan - O nome da planilha que vai receber o objeto.
figura - o nome da imagem dentro da pasta( eu gosto de usar imagens do tipo .png)
h1(horizontal) e v1(vertical) - posição da imagem em relação a parte superior ( célula A1).
t1 e t2 - tamanho da imagem - 

"C:\Users\Eli Vieira\Desktop\imagems\" - É o endereço da pasta aonde estão as imagens.
Criei esta pasta no desktop chamada imagens para colocar as imagens que iremos usar eu escolhi três. alivros.png, pessoas.png e cds.png.


Agora criamos a rotina para a criação e posicionamento dos objetos.

Criamos 6 imagens. 3 desenhos e três textos.






&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Nos objetos tipo ctltipo1 é preciso colocar o índice ( 6° parâmetro), como o Excel faz o índice na ordem que a figura é criada, por isto é preciso saber quantas imagens temos e qual a ordem de criação.&nbsp;

Por enquanto tínhamos 5 ( as duas da área de controle e as 3 que criamos acima).&nbsp;

Se não for tomado este cuidado teremos uma imagem com o nome da outra.



&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Outra alteração foi a criação da rotina sair(). Para o nosso objeto de mesmo nome.







Foi usado um array para as imagens da área do corpo chamado imagem.



imagem = Array("alivros2.png", "pessoas.png", _

&nbsp;"cds.png", "Livros", "Pessoas", "Cds")



Uma instrução For ... Next &nbsp;para apagar estas imagens




For i = 0 To 5

Call limpaShape(imagem(i))

Next




E as instruções para a área corpo em si.




Call areaTitulo(48, "Gerenciador DQC", 8) - texto na área titulo



ws.[corpo].Clear - Limpa a área corpo, retirando objetos e formatação

ws.[corpo].Interior.ColorIndex = 17 - Pinta o fundo da área

ws.[corpo].Merge - Mescla as células da área




E também fiz alterações na rotina cor4areas()







Aqui cabe destaque para a linha:




ws.[corpo].UnMerge &nbsp;- Tira a mescla das células




As demais linhas já nos são comuns.



e a ultima instrução que chama a rotina objetosCadastro



Vamos ver como deve ficar









É isto ai pessoal. Até a próxima.