-
Posts
4 -
Cadastrado em
-
Última visita
Reputação
3-
Visual Basic VBA - Tirar Foto com Webcam via Macro
Gilberto Moreira respondeu ao tópico de Gilberto Moreira em Programação - outros
@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! -
Visual Basic VBA - Tirar Foto com Webcam via Macro
Gilberto Moreira respondeu ao tópico de Gilberto Moreira em Programação - outros
@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. -
Visual Basic VBA - Tirar Foto com Webcam via Macro
Gilberto Moreira respondeu ao tópico de Gilberto Moreira em Programação - outros
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! -
Visual Basic VBA - Tirar Foto com Webcam via Macro
Gilberto Moreira postou um tópico em Programação - outros
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?
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