Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
17 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 17 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

Estatísticas
Temos 7067 usuários registrados
O último usuário registrado atende pelo nome de Preula

Os nossos membros postaram um total de 48 mensagens em 25 assuntos

Enviar uma imagem para o excel

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Enviar uma imagem para o excel

Mensagem por Dolphin em 30/4/2010, 10:56

Bom dia.

Estive lendo alguamas matérias deste forum e decidi participar também e agradeço pela contribuição desde já.

Estou com uma dúvida no que se refere a exportação de uma planilha do excel.

Consigo gerar a planilha, porém gostaria que esta planilha apresentasse uma imagem no topo da mesma. Coloquei todo cabeçalho na planilha e gostaria que ela já viesse preenchida com uma imagem.

coloquei assim:
worksheet.active
worksheet.Pictures.Insert( "c:\logo.bmp").Select

até ai tudo bem, a imagem é transportada para a planilha, mas como faço pra coloca-la no topo e dimensioná-la??

Desde já agradeço pela ajuda

Abraços

Dolphin
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Enviar uma imagem para o excel

Mensagem por Marcos Guedes em 30/4/2010, 22:44

No topo, seria na primeira célula, é isto?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Enviar uma imagem para o excel

Mensagem por alceu11 em 1/5/2010, 13:29

Dolphin
Boa tarde
Se nao for incomodo nenhum !!
Voce poderia disponibilizar o codigo fonte , como esta transportando estas informacao do formulario Visual Fox Pro, para planilha do Excel;

Para que analizando o codigo o seu codigo, podemos dar alguma ajuda.
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Enviar uma imagem para o excel

Mensagem por Dolphin em 3/5/2010, 08:37

Bom dia senhores.
O código basicamente é o seguinte, tirei as demais linhas para não complicar o entendimento.


Código:
*!*criar a aplicação excel
loXLApp = createObject( "Excel.Application" )

*!*criar a area de trabalho
loXLWrk = loXLApp.Workbooks.add()

WITH loXLApp
   .ActiveWindow.DisplayGridlines = False
   .ActiveWindow.DisplayZeros = False
ENDWITH
      
*** Cria a nova Planilha   
loXLSht = loXLWrk.Worksheets.Add()

IF ( Type( "loXLSht" ) <> "O" ) THEN
MessageBox( "Erro ao tentar gerar a planilha no MS Excel.", B_ICONSTOP, "Atenção" )
   WAIT CLEAR
   RELEASE loXLApp
   RELEASE loXLWrk
   RELEASE loXLSht
   RETURN
ENDIF
*** Formatação das colunas
WITH loXLSht    
 .Columns( lcColUnidade  ).ColumnWidth        = 20
 .Columns( lcColUnidade    ).NumberFormat = "@"
 ***ativo a planilha
 .Activate
*** insiro a imagem na planilha
 .Pictures.Insert( "C:\logo.bmp" ).Select   
 ENDWITH
*** até este ponto funcionou corretamente! a imagem é inserida na planilha,
***mas não fica no lugar que desejamos.
***abaixo segue alguns comandos que tentei usar conforme macro criada no excel ***para identificar os códigos, mas não consegui formatar o tamanho nem
*** a localização correta da imagem.
 
         
   *.Shapes(1).PictureFormat
       *.Brightness = 0.3
       *.Contrast = .75
   *.Pictures.PicturePosition = 0
         
***   Selection.ShapeRange.ScaleWidth  0.03, msoFalse, msoScaleFromTopLeft
***             Selection.ShapeRange.ScaleHeight 0.03, msoFalse, msoScaleFromTopLeft
***             Selection.ShapeRange.ScaleHeight 0.76, msoFalse, msoScaleFromTopLeft
         
***            ActiveWindow.LargeScroll Down:=1
***             ActiveWindow.LargeScroll ToRight:=3
***             ActiveWindow.LargeScroll Down:=6


Obs: as linhas estão com asteriscos(**) na frente são apenas comentário.

Obrigado pela atenção de todos
Pedro

Dolphin
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Enviar uma imagem para o excel

Mensagem por Dolphin em 3/5/2010, 08:40

[Você precisa estar registrado e conectado para ver este link.] escreveu:No topo, seria na primeira célula, é isto?

Sim, Marcos, não tenho o controle de determinar em quais colunas ou linhas a imagem irá ser posicionada.
Tentei alguns comandos do excel e mesmo assim dá erro na geração do arquivo.

obs: não sei se foi o modo como o excel 2007 foi instalado aqui no meu computador que alguns comandos, referentes a posicionamento e dimensionamento da imagem, não foram gerados pela macro. Testei em um computador com o excel 2003 e a macro gravou os comandos que testei mencionados no post acima, porém sem sucesso.

grato,
Pedro

Dolphin
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Enviar uma imagem para o excel

Mensagem por alceu11 em 3/5/2010, 11:41

Dolphin
Bom dia


Observando o seu codigo, ficou muito vago, o ideal que ter o formulario na pratica, com a tabela que tem o campo unidade.

Como podemos ajudar?
Se nao executamos o formulario com a tabela, e ver o resultado obtido. da transferencia dos dados da tabela para a planilha do excel.
Aqui parte do codigo.
Voce so esta transportando 1(um) campo unidade da sua tabela, para a planilha Excel?

*** Formatação das colunas
WITH loXLSht
.Columns( lcColUnidade ).ColumnWidth = 20
.Columns( lcColUnidade ).NumberFormat = "@"
**aqui ainda falta nao sei se mais colunas alem da unidade
endwith && faltou ou codigo esta incompleto.

Me desculpe mais, nao consegui executar o seu codigo, assim fica difcil entender. para de alguma for ajudar.
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Enviar uma imagem para o excel

Mensagem por Marcos Guedes em 3/5/2010, 12:05

Dolphin, utilize o exemplo abaixo e adapte o seu código:
Código:
oexcel = CREATEOBJECT('Excel.Application')
WITH oexcel
   .workbooks.ADD
   .VISIBLE = .T.

   WITH .activeworkbook.activesheet
      LOCAL lorange
      lorange = .RANGE('B2:E6')

      .shapes.addpicture( _samples+'data\graphics\buchstev.gif', .T., .T., ;
         lorange.LEFT, lorange.TOP, lorange.WIDTH, lorange.HEIGHT)
   ENDWITH
ENDWITH

Obs.: Para alterar o tamanho do objeto, altere os valores dos parâmetros lorange.WIDTH e lorange.HEIGHT para a largura e altura desejada.


Resolve o problema?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Enviar uma imagem para o excel

Mensagem por Dolphin em 4/5/2010, 08:59

Obrigado, Marcos.. vc realmente conseguiu....

coloquei apenas:
.shapes.addpicture( imagem, .T., .T., 1, 1, 100, 100 ) e corri pra galera!!!
ou seja, linha 1, coluna 1, largura 100, altura 100 )

Muito obrigado mesmo!
Gostaria de saber como posso visualizar estes comandos do vfp que são aceitos pelo excel... rodei para encontrar estes comandos que servem tanto pra o vfp quanto para excel, mais uma vez muito obrigado!!

Dolphin
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Resolvido Re: Enviar uma imagem para o excel

Mensagem por Marcos Guedes em 4/5/2010, 10:43

[Você precisa estar registrado e conectado para ver este link.] escreveu:Gostaria de saber como posso visualizar estes comandos do vfp que são aceitos pelo excel... rodei para encontrar estes comandos que servem tanto pra o vfp quanto para excel, mais uma vez muito obrigado!!
Execute linha por linha na janela Command (CTRL+F2) do VFP.
Ao pressionar "ponto" será mostrada a interlicense com atributos e métodos disponíveis.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum