-
Posts
4 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por Gilberto Moreira
-
-
@Midori Boa noite! Que bacana sua visão! Certo! Em relação ao CommandCam até estava usando ele mas estava apresentando falhas em realizar este procedimento que identificou sobre concatenar e retornar a imagem ao objeto do Userform. Bom aproveitando seu conhecimento e visão, vamos ver se seria possível me ajudar no que eu quero! Ex: da Sub desejada:
Sub BtnFotoWebcam_Click()
'Dimensionar as variáveis'''''''''''''''''''''''''''''''''''''''''''''''''''
Dim CaminhoFoto, Atrasar Dim ProgramaFoto
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Setar ou fazer as Variáveis receberem os Valores de caminhos e arquivos de disparo de foto da webcam(Pode ser o arquivo de Engrenagem que ativa a função de disparo da Foto da Webcam)''''''''Concatenar Valor(Nome do Visitante) da Textbox com Filename salvando em pasta de imagens e retornando a foto tirada da webcam no objeto imagem do Userform.
CaminhFoto = "C:\Users\StarForch\Pictures\" & TxtNomedoVisitante.Value & ".bmp" ProgramaFoto = shell("C:\Users\StarForch\Pictures\CommandCam.exe",vbMide) & Filename & CaminhoFoto '" shell("C:\Users\StarForch\Pictures\CommandCam.exe"/filename """CaminhoFoto" & "",vbMide)
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
"
For Atrasar = 0 To 5
Application.Wait(Now + TimeValue("00:00:01") )
Next ImageFotoVisitante.Picture = Nothing
'ImageFotoVisitante.Picture = LoadPicture(CaminhoFoto)
ImageFotoVisitante.Picture = LoadPicture(CaminhoFoto)
End Sub
Tentei de várias formas assistindo vídeos na internet mas não consegui realizar todos estes parametros. Ou só tirava a foto e salvava ou só retornava a imagem no objeto imagem do Userform.
- 1
-
Obrigado @devair1010 , mas acredito que estaja acusando este erro em sua máquina pois cada webcam tem um time para disparar as fotos. Sendo assim este temporizador de 0 à 5 é para minha máquina, aí a sua não teve ser o mesmo ajuste, tendo que realizar um ajuste para a sua webcam. Mas agradeço muito a atenção e o empenho em me ajudar nesta dúvida, pois, quando resolver irá me ajudar muito!
Grato!
- 1
-
Boa Noite!
Esta é macro que pesquisei na internet, realizei algumas mudanças, mas não esta funcionando para eu tirar uma foto com minha webcam e salva-la em meu Pc. Depois queria exibir a foto na minha Userform dentro do campo Imagem. isso usando um botão para disparar essa Macro. Como podem me ajudar?
- 1
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
VBA - Tirar Foto com Webcam via Macro
em Programação - outros
Postado
@Midori Vi que você mencionou sobre meu userform mas, acabei colocando um de Exemplo na vdd não é o que eu desenvolvi para ser usado com a macro. Coloquei ele só de Exemplo mesmo. Mas irei fazer o q me pediu. Pois não é uma má ideia. Logo retorno com notícias kkkk! Muito obrigado!