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

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
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias