All posts by Mauro Coutinho

VBA – Capturando Imagens da WebCam

Anexo uma planilha que captura a imagem de uma WebCam e a coloca em USF(Userorm), encontrei por acaso em um Forum na França, tive de me registrar para poder baixar o exemplo, apesar de dizer que foi testada na WebCam Logitech QuickCam Home 1.02, e que é necessário a DLL avicap32.dll(deve estar em Windows\System32) padrão do Windows, no teste com minha webcam da Fortrek funcionou perfeitamente.

Como meu francês não é la grande coisa usei o tradutor do Google, mas tem muita informação, então só fiquei no básico, para outras adaptações aconselhoo fazerem o mesmo.

Parte do que traduzi, diz que esse exemplo SOMENTE Captura a Imagem da Cam, mas NÃO é possivel ve-la em tempo Real, se encontrarem uma forma, postem, e que a mesma tem de estar LIGADA antes para poder funcionar corretamente.

A única adaptação que fiz, foi adicionar a rotina de enviar a Imagem para a planilha em um outro CommndButton.

Link Original Forum, é possivel ver, mas para baixar tem de se Registrar:
http://www.excel-downloads.com/forum/34 … ebcam.html

Neste, temos várias outras opções, usando um Scanner, formatação das Imagens, etc . . .
Usando o Windows Image Acquisition biblioteca em VBA (WIA)
http://silkyroad.developpez.com/VBA/Win … tion/#LIII

Pelo que entendi a Fonte dos códigos, foram tiradas do site abaixo que é utilizado em VB.
http://www.vbfrance.com/code.aspx?ID=30202

Por hora deixo aos colegas a tarefa de implementações e adaptações, apesar de não dizer nada no site, mas é sempre bom colocarmos os créditos da adaptação do método PastePicture do STEPHEN BULLEN.

abraços

Anexos
XLD_WebCamCapture_mvc.rar
Captura Imagem WebCam
(25.96 KiB)

VBA – Listview No Excel – Alguns Conceitos

Nos últimos dias um dos assunto no Forum foi referente ao uso do LISTVIEW no EXCEL, apesar do mesmo poder ser usado no Excel, muitas das funcionalidades do mesmo só são possíveis em Acces ou outro programas que se utilizam do mesmo e temos pouco sobre o assunto relacionado a Excel na Net.

Para entender um pouco mais algumas funcionalidades, peguei como base alguns modelos postados pelos nossos colaboradores e mais algumas Pesquisas na Net e resolvi criar alguns Modelos com adaptações, aonde mostro um Conceito básico da Criação de colunas(ColumnHeaders), ListItems, SubItems, temos outros parametros, mas ainda terei de trabalhar um pouco mais nos mesmos.

A maioria das fontes que utilizei estão na Pasta.

Antes de qualquer coisa, devemos habilitar a Referencia abaixo no Editor do VBA:
Microsoft Windows Common Controls 6.0(SP6)

Para Iniciar usei a seguinte informação tirada na Net :
Para a Coluna UM :

ListView1.ListItems(ItemNumber).text

Para as Outras :

ListView1.ListItems(ItemNumber).ListSubItems(ColumnNumber).text
ListView1.ListItems(1).text = "1"
ListView1.ListItems(2).text = "2"
ListView1.ListItems(3).text = "3"
 
ListView1.ListItems(1).ListSubItems(1).text = "1,1"
ListView1.ListItems(1).ListSubItems(2).text = "1,2"
ListView1.ListItems(1).ListSubItems(3).text = "1,3"
 
ListView1.ListItems(2).ListSubItems(1).text = "2,1"
ListView1.ListItems(2).ListSubItems(2).text = "2,2"
ListView1.ListItems(2).ListSubItems(3).text = "2,3"

Sendo assim alinha abaixo tem o seguinte significado:

ListView1.ListItems.Item(1).ListSubItems.Item(1).Text

Retorna o texto da segunda coluna (primeiro subitem ) de primeira linha

Sobre os Modelos anexos, Um é somente sobre Mover um item Selecionado no Listview para qualquer Linha do mesmo, Primeiro, Última, Uma Abaixo, Uma Acima, e poder ADICIONAR NOVOS ITENS digitados nos TextBox em qualquer Linha do ListView.

O outro temos 3 formulários, Um com um Conceito básico implementado no mesmo para Criação de Colunas, Itens e Subitens conforme definido nos TextBox e os outros dois com os Itens definidos na propria rotina.

Para finalizar, como as fontes foram varias, credito esses Modelos a todos do Forum que iniciaram o assunto esclarecendo duvidas e a Internet em um todo, aonde praticamente se encontra de tudo.

Fiquem a vontade para editarem e adaptarem conforme a necessidade de cada um.

Sugiro que DÚVIDAS sejam postadas no Forum adequado(GERAL), ficando esse Tópico somente para adicionarmos novos Modelos ou Implementações nos Modelos anexados.

Abraços

Anexos
AdicionarMoverItens.rar
ListView – Aicionar – Mover Itens no mesmo
(23.91 KiB)
ListView – AlgunsConceitos.rar
Listview – Conceitos basicos
(30.15 KiB)