Word XP: Objeto Shape / Propriedade Size - Cap. 01
- Para definir o tamanho da fonte do texto, inserido
em uma AutoForma, utilize a propriedade Size.
- Neste exemplo, inicialmente, foi declarada a variável
pública QuandoExecutarRotina, que irá controlar a execução
das rotinas.
- AdicionaForma cria, no documento ativo,
uma AutoForma...
- ... do tipo Estrela de 4 pontas.
- Em seguida, o método OnTime executa...
- ... FormatandoCorAutoForma, que utiliza a propriedade
ForeColor para, com a ajuda da função RGB, definir a cor da estrela.
- RGB(255,0,0) retorna a cor vermelha.
- A AutoForma ficará assim.
- A rotina FormatandoSombra ativa a sombra ( .Shadow.Visible = True ) e
define os alinhamentos horizontal ( .OffsetX = 10 ) e vertical ( .OffsetY = 10 ).
- Observe, microsoftiano, a sombra da AutoForma.
- Próximo passo ? Inserir o texto.
- TextFrame representa a moldura, o local da AutoForma que
pode receber texto. Você não consegue inserir um texto em qualquer lugar de
uma forma de desenho.
- O texto propriamente dito é representado pela propriedade TextRange.
- Através de TextRange, você acessa as propriedades
Name ( que define a fonte ) e Text ( que armazena o texto que
será exibido pela forma ).
- Para definir o tamanho da fonte, utilize a propriedade Size.
- O resultado será este aí.
- Neste bucólico exemplo, quando o documento for aberto,
o evento Open será executado e o modo de tela cheia do Word XP será ativado.
- Criada, automaticamente, a Estrela de 4 pontas, a formatação
será aplicada, idem para a sombra e o texto será inserido na forma.
- A execução de cada rotina será de 2 em 2 segundos
graças ao método OnTime.
- No final, o modo de tela cheia será destivado e o editor
microsoftiano será exibido no modo tradicional.
- Para visualizar o código VBA, utilize as teclas [ ALT ] + [ F11 ].
- Na janela Projeto, abra ThisDocument para visualizar
os eventos Open e Close.
- Depois, abra Módulo1 e estude as rotinas.
- Bom proveito.
- Fazer o download do exemplo ?
Clique aqui
.
Parcerias RicardoHorta.Net
RicardoHorta.Net
Parcerias RicardoHorta.Net
26/06/2008 - 05:00 - www.ricardo.horta.nom.br - Direitos adquiridos - Autor: Ricardo Horta
