Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Vitrine

+Views

Widgets Mundo Blogger

Gerando QR Code com Biblioteca de Terceiro


Option Explicit
'Declarar função para obter pasta temporária (onde poderíamos gravar as imagens de código de barras temporária) 
Declare Function GetTempPath _ 
Lib ‘ kernel32 ’ Alias ‘ GetTempPathA ’ _ 
ByVal nBufferLength As Long, _ 
ByVal lpBuffer As String) As Long
"Função para retornar caminho para a pasta temporária 
Função Pública fncGetTempPath () As String 
   Dim PathLen As Long 
   Dim WinTempDir As String 
   Dim BufferLength As Long 
   Let BufferLength = 260

   
Let WinTempDir = Space ( BufferLength )

   PathLen = GetTempPath ( BufferLength , WinTempDir ) 
   If Not PathLen = 0 Then 
       
Let fncGetTempPath = Esquerda ( WinTempDir , PathLen ) 
   Else 
       
Let fncGetTempPath = CurDir () 
   End If 
End Function
Sub Barcode_Click ()
'Fetch a folha de cálculo 
Dim MySheet A folha de cálculo 
Conjunto MySheet = Folhas de trabalho (1)' Folha Barcode_Data
'temporário caminho para salvar as imagens de código de barras 
Dim filePath As String 
Let filePath = fncGetTempPath ()' Alterar o caminho, mas deve terminar com barra invertida ()
Preparai o Bytescout código de barras Objeto 
'==================================== 
Dim myBarcode As New Bytescout_BarCode.Barcode
myBarcode.RegistrationName = “demo” 'Alterar o nome para a versão completa 
myBarcode.RegistrationKey = ‘demo’' Alterar a chave para a versão completa
'Barcode Configurações de 
código de barras QR myBarcode.Symbology = SymbologyType_QRCode', você pode mudar para outros tipos de código de barras como Code 39, Code 128 etc
'Set código de barras resolução qualidade de imagem Let myBarcode.ResolutionX = 300' resolução superior a 250 é bom para imprimir Let myBarcode.ResolutionY = 300 'resolução superior a 250 é bom para impressão
Let myBarcode.DrawCaption = true 'Mostrando Barcode Legendas no código de barras Imagem 
myBarcode.DrawCaptionFor2DBarcodes = true' Mostrar legendas para códigos de barras 2D como QR Code
'Primeiro limpar a coluna B a partir de imagens antigas (se houver) 
Dim Sh Como Forma 
Com MySheet 
  Para Cada Sh em .Shapes 
      If Not Application.Intersect (Sh.TopLeftCell, .Range ( ‘B1: B50’)) não é nada Então 
        Se Sh .type = msoPicture Então Sh.Delete 
      End If 
   Seguinte Sh 
End With
'Agora gerar novos códigos de barras e de inserir nas células na coluna B 
' Repetir os passos para cada fileira de 2 a 6 
Dim MyVal As Integer

Para MyVal = 2 a 6 'alterar o código para todas as linhas com valores 
   ' analisar o valor a partir da coluna A até Bytescout código de barras objecto 
   myBarcode.Value = mySheet.Cells (MyVal, 1) .Text 
   'Montar o código de barras em 80X30 mm rectângulo 
   myBarcode .FitInto_3 80, 30, 4 '4 refere-se às unidades de medida como milímetro 
   ' Salve a imagem de código de barras para um arquivo na pasta temporária 
   myBarcode.SaveImage filePath & ‘myBarcode’ & MyVal & ‘.png’ 
   
   'Coloque a imagem de código de barras para a coluna B e redimensioná-las para caber na célula. 
   '============================================
   Com mySheet.Pictures.Insert (filePath & “myBarcode” & MyVal & “.png”) 
       .ShapeRange.LockAspectRatio = verdadeiro 'relação de aspecto de bloqueio 
       .Left = mySheet.Cells (MyVal, 2) .Left + 1' conjunto deixado 
       .Top = mySheet.Cells (MyVal, 2) .Top + 1 'direito conjunto 
       .PrintObject = TRUE' permitem imprimir este objecto 
       .Placement = xlMove 'definir o modo de posicionamento de se mover, mas não são redimensionadas com a célula 
       .ShapeRange.ScaleHeight 1, True' escala altura definido para 1 (sem escala) 
       .ShapeRange.ScaleWidth 1, True 'definido escala largura de 1 (sem escala ) 
   End com 

Deixe seus comentários, compartilhe este artigo!


⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

⬛◼◾▪ CONTATO ▪

VBA Excel - Mudando o ícone da Planilha

VBA Excel - Mudando o ícone da Planilha


É importante para algumas aplicações que o ícone da planilha, especialmente quando se abrem muitas simultaneamente, seja específico, identificando prontamente quais dados estão sendo utilizados. O código abaixo não é nenhuma novidade, apenas o disponibilizo como modo clássico de fazê-lo. Sugiro apenas que uma pequena alteração seja efetuada, propiciando que o Path e o nome do arquivo .ICO, estejam posteriormente parametrizáveis em uma pasta. 

É importantíssimo dar o crédito a: Jim RechO código abaixo deve ser postado no Workbook: 

Sub Workbook_Open() 

Let Application.Caption = ".: A&A - Minha planilha personalizada" 

ChangeApplicationIcon 

End Sub 

Agora crie um módulo e coloque o conteúdo abaixo nele: 

Option Explicit 

Declare Function GetActiveWindow32 Lib "USER32" Alias _ "GetActiveWindow" () As Integer

Declare Function SendMessage32 Lib "USER32" Alias _ "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long 

Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _ "ExtractIconA" (ByVal hInst As Long, _ ByVal lpszExeFileName As String, _ ByVal nIconIndex As Long) As Long 

Crie, no mesmo módulo, a SUB que efetuará a chamada às definições acima: 

Sub ChangeApplicationIcon() 

Dim Icon& ' Pegue o ícone de outro aplicativo como abaixo: 
Const NewIcon$ = "Notepad.exe" ' Ou escolha um arquivo .ICO em um diretório: ' 
Const NewIcon$ = "F:\A&A\A&A - LogoIcon - 002.ico" 

Let Icon = ExtractIcon32 (0, NewIcon, 0) 

SendMessage32 

GetActiveWindow32(), &H80, 1, Icon '< 1 =" big" 0 =" small">

End Sub 


Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets

Série VBA Tips - Registro do LOG de acesso às aplicações

Série VBA Tips - Registro do LOG de acesso às aplicações


É muito comum que o desenvolvedor queira registrar o número de acessos, bem como acompanhar quem está acessando o seus arquivo através de um .LOG.

Isso pode ser facilmente implementado por adicionarmos uma pequena função dentro do FORM Splash (O primeiro FORM a ser aberto) da sua aplicação. Você pode alterar o código para que grave esses arquivos .LOG em um diretório (ou servidor de arquivos) escondido e acompanhar até mesmo remotamente os acessos à sua aplicação.


NO VBE DENTRO DO FORM SPLASH

Sub Form_Open (Cancel As Integer)

' Author: Date: Contact:
' André Bernardes 18/06/2008 08:21 brazilsalesforceeffectiveness@gmail.com
' Sub de abertura do formulário.
' Rastreador inserido em 25.09.2008 - 10:52
.LOG
.

Dim ThisFormName As String

Let ThisFormName = Me.Name

Call Rastrear ' Registra acesso no Log.
Call ImagesPath
Call SetMoldura("Logando à aplicação", " . . . ")


HideAccessCloseButton ' Elimina o botão fechar na janela da aplicação do Windows.


Me.LblTime.Caption = Now()

Call AssenteAcesso("OF", ThisFormName, "Sys: Splash de abertura.")
Call SetMoldura("", ".: A&A - In Any Place")


End Sub


A FUNÇÃO QUE DEVE COLAR DENTRO DO SEU MÓDULO PARA QUE O REGISTRO SEJA EFETUADO É:


Function Rastrear()


' Author: Date: Contact:
' André Bernardes 25/09/2008 10:01 brazilsalesforceeffectiveness@gmail.com
' Cria arquivo .LOG

Open Application.CurrentProject.Path & "\" & Left(Application.CurrentProject.Name, Len(Application.CurrentProject.Name) - 4) & ".log" For Append As #1
Print #1, " "
Print #1, "User: " & atCNames(1) & "- " & Trim(atCNames(2)), Now()
Print #1, " In: " & CodeProject.FullName
Print #1, " "
Close #1


End Function

Se você tiver um pouco de criatividade poderá registrar todos os acessos de todos as aplicações (MS Access, MS Excel, MS Word, MS PowerPoint, etc...) no mesmo arquivo .LOG analisando-o quando desejar.

A infinidade de possibilidades de utilização dessa solução são infinitas, então divirta-se.



Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets

VBA Word - Captura de tela VBA

VBA Outlook - Exportando Campos para o Excel



Neste exemplo, usaremos captura de tela VBA para copiar a janela ativa para a área de transferência e colá-lo em um documento do Word.

Nós estaremos usando uma API - Application Programming Interface - para capturar a tela que queremos. APIs chamar, ou executar, as funções da janela. 


Para usar a API usaremos hoje, que incluem / declarar que na parte superior do módulo. embora o nosso é declarado como privado, se você quiser acessar uma API de outros módulos que você pode declará-lo com a palavra pública, em vez da palavra privado.

No Word, pressione
ALT + F11 para abrir o editor VBA.


No canto superior esquerdo, clique direito sobre a pasta do módulo no VBA Project Explorer e inserir um novo módulo.


Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = & H2
Private Const VK_SNAPSHOT = & H2C
Private Const VK_MENU = & H12
Sub ScreenCapture ( )
keybd_event VK_MENU, 0, 0, 0
VK_SNAPSHOT keybd_event, 0, 0, 0
VK_SNAPSHOT keybd_event, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End Sub
Sub Screen_Capture_VBA ()
Dim Sec3 As Date, PasteYes As Integer
MsgBox "Três segundos após clicar em OK "& _
" a janela ativa será copiado para a área de transferência ".
Sec3 = DateAdd ( "s", 2, Agora)
Until Now> Sec3
DoEvents
laço
ScreenCapture
PasteYes = MsgBox ( "Clique em OK para colar a captura de tela em VBA.", _
VbOKCancel)
Se PasteYes = 1 Then
Selection.Paste
End If
End Sub



Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets

Principais Tendências de Análises de Dados em 2017

Principais Tendências de Análises de Dados em 2017

Principais Tendências de Análises de Dados em 2017

Há muito interessante em matérias que falam sobre a análise de dados e sua tendência. O investimento em Business Intelligence e Análises foi extremamente elevada e continua a crescer a um ritmo rápido. É possível que 2017 seja um dos anos mais emocionantes, onde o mercado de Análises moldarão uma série de eventos relacionados aos negócios e além disso. Convido-o a ler sobre aquelas, que acredito, serão as principais tendências de investimento em 2017.



Como sempre, estas são apenas previsões, e o futuro sobre eles mostrará se são mesmo realistas. Independentemente dos exatos resultados dessa especulação para o mercado de Análises em 2017, este ano certamente será um momento interessante para o cenário de negócios, e vamos precisar esperar para ver o impacto das Análises em moldar nossa indústria.



Série Big Data


Business de Big Data



Soluções de Big Data




Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®✔ Brazil SFE®´s Facebook´s Profile  Google+   Author´s Professional Profile  ✔ Brazil SFE®´s Pinterest       ✔ Brazil SFE®´s Tweets
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias