Pular para o conteúdo principal

Destaques

Orkut 2.0: rede social nostálgica volta com foco em autenticidade

Orkut 2.0: rede social nostálgica volta com foco em autenticidade Orkut retorna em 2025 com foco em comunidades, IA e privacidade, resgatando conexões reais. Ilustração do logo do Orkut com ícones de comunidades, privacidade e IA, representando o retorno da rede social. - Gerado pelo Grok O Orkut 2.0 está oficialmente voltando em 2025 , resgatado por seu criador, Orkut Büyükkökten, que revelou os planos durante o Rio Innovation Week . A nova proposta traz de volta scraps, depoimentos e comunidades, mas com uma abordagem moderna, priorizando privacidade, moderação baseada em inteligência artificial e zero pressão por métricas de engajamento. Comunidades e privacidade em destaque O relançamento aposta na essência das interações originais, sem algoritmos tóxicos nem conteúdo patrocinado — com foco em autenticidade e experiência mais saudável para o usuário . Brasil como prioridade estratégica O Brasil, mercado que concentrou mais de 30 milhões de usuários no auge do Orkut, será o ...

Como escanear documentos diretamente no Excel


Você quer saber como escanear  documentos diretamente no Excel?

Você pode fazer usando macro no Excel.

No vídeo mostro como inserir a macro para realizar o escaneamento de documentos diretamente no Excel e como criar um botão para automatizar o scan.

Dica: salve a planilha de macro em uma pasta que você não irá apagar este arquivo.
Os drivers do scanner foram instalados pelo próprio Windows 10, plug in play.

Link para o vídeo de como escanear documentos diretamente no Word: https://youtu.be/Z2S_p0nu5x8


Código da Macro:

' Scan for Excel 2013/2016
' Author: Günter Born www.borncity.de www.borncity.com/blog
' Changed to implement the scan in Excel by Augusto
' Implements a Scan function in Excel 2013/2016

Sub Scan()
'
' Scan Macro, to be invoked in Excel
'
  On Error Resume Next
     Dim objCommonDialog As WIA.CommonDialog
     Dim objImage As WIA.ImageFile
     Dim strDateiname
     ' instantiate Scan WIA objects
     Set objCommonDialog = New WIA.CommonDialog
     Set objImage = objCommonDialog.ShowAcquireImage
   
     ' set temporary file
     strDateiname = Environ("temp") & "\Scan.jpg"
   
     If Not objImage Is Nothing Then
       Kill strDateiname 'delete old file
       ' save into temp file
       objImage.SaveFile strDateiname
       ' insert into document
        ActiveSheet.Pictures.Insert(strDateiname).Select

       Set objImage = Nothing
     End If
     Set objCommonDialog = Nothing

   ' MsgBox strDateiname  ' test output
End Sub



*****************************************************

Imagem na Teia nas redes sociais:

Blog - http://imagemnateia.blogspot.com
YouTube - https://www.youtube.com/Imagemnateia
Twitter - @imagemnateia
Instagram - @imagemnateia
Google+ - plus.google.com/+ImagemnateiaBlogspot

Comentários

Postagens mais visitadas