Alinhamento vertical no Excel

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Magnoman
Usuário Nível 1
Usuário Nível 1
Mensagens: 8
Registrado em: 09 Mai 2010 11:35
Localização: Maceió
Contato:

Alinhamento vertical no Excel

Mensagem por Magnoman »

Prezados,

Já consegui fazer o relatório que eu queria no Excel para atender um modelo do Tribunal de Contas da União por meio de OLE.
O problema é que a planilha é cheia de colunas e cada uma tem muita informação.
Preciso saber como faço para formatar a célula da seguinte forma:
  • Formatar células > Alinhamento de texto > Vertical > Centro
    Formatar células > Controle de texto > Retorno automático de texto
Também gostaria de saber como faço para inserir uma imagem no Excel via OLE.

Agradeço antecipadamente.
Quem busca aconselhamento encontra sabedoria.
Avatar do usuário
fladimir
Colaborador
Colaborador
Mensagens: 2445
Registrado em: 15 Nov 2006 20:21

Re: Alinhamento vertical no Excel

Mensagem por fladimir »

Mr. ChangeMan existe no Excell o Inspetor de objetos do Visual Basic dentro do Excel, Word, talvez dos outros produtos da MS mas não testei, somente estou falando do q testei.

Faz assim, abre o Excel, depois faz o procedimento q vc quer, depois ALT+F11 e depois F2, lá tem os objetos e suas descrições e parametros, com certeza vai te ajudar a resolver o problema....

Adiantando, pelo q vi rapidamente é
Para tua primeira questão CellFormat.VerticalAlignment
Para tua segunda questão CellFormat.WrapText

Agora não me recordo exatamente como usá-los, mas como o colega já esta fazendo praticamente o grosso da coisa e falta os detalhes, acredito q com essas informações poderá encontrar o caminho das pedras.

Sds...

Feliz 2011... Boas Festas....

:)Pos
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Magnoman
Usuário Nível 1
Usuário Nível 1
Mensagens: 8
Registrado em: 09 Mai 2010 11:35
Localização: Maceió
Contato:

Re: Alinhamento vertical no Excel

Mensagem por Magnoman »

Obrigado pela valiosa dica!
Descobri que é:

Código: Selecionar todos

oAS:CELLS(LL,1):VERTICALALIGNMENT := -4108
oAS:CELLS(LL,1):WRAPTEXT := .T.
Para inserir uma imagem no cabeçalho do relatório é assim:

Código: Selecionar todos

oAS:PAGESETUP:CENTERHEADERPICTURE:FILENAME := "C:\CBTULOGO.BMP"  // DEFINE A IMAGEM
oAS:PAGESETUP:CENTERHEADER := "&G"  // MOSTRA A IMAGEM (TEM QUE TER ESSA LINHA)
*No lugar de CENTER, pode ser LEFT ou RIGHT.
Quem busca aconselhamento encontra sabedoria.
Avatar do usuário
fladimir
Colaborador
Colaborador
Mensagens: 2445
Registrado em: 15 Nov 2006 20:21

Re: Alinhamento vertical no Excel

Mensagem por fladimir »

Q bom mano, parabéns!!! Obrigado por compartilhar conosco.

Feliz 2011!!!!

Sds.
:)Pos
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Re: Alinhamento vertical no Excel

Mensagem por asimoes »

Senhores,

Estou tentando criar um teste com as dicas e estou tendo este erro:

na linha: oSheet1:PageSetup:CenterHeaderPicture:FileName:="asaprev2.bmp" //DEFINE A IMAGEM

Error WINOLE/1006 Argument error: _FILENAME (DOS Error -2147352567)
Called from WIN_OLEAUTO:_FILENAME(0)

Estou usando o harbour com mingw

[]´s
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Re: Alinhamento vertical no Excel

Mensagem por sygecom »

Já tentou passar o caminho completo da imagem ?
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Avatar do usuário
ANDRIL
Usuário Nível 5
Usuário Nível 5
Mensagens: 1297
Registrado em: 06 Jul 2004 00:44
Contato:

Re: Alinhamento vertical no Excel

Mensagem por ANDRIL »

Olá aSimoes, verificou se o arquivo de imagem esta no diretório atual, ou já tentou passando o caminho completo junto com o arquivo de imagem?

Parece que o método filename() não esta recebendo um parâmetro válido.

Abraços!
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Re: Alinhamento vertical no Excel

Mensagem por asimoes »

Sygecom,

Era isso mesmo, tinha que passar o caminho completo.

[]´s
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Re: Alinhamento vertical no Excel

Mensagem por alxsts »

Olá!

Os problemas foram resolvidos mas creio que este tópico também tem muita informação valiosa.
[]´s
Alexandre Santos (AlxSts)
Responder