MS Excel - Mudando o ícone da Planilha.

É importante para algumas aplicações que o ícone da planilha, especialmente quando se abrem muitas simultâneamente, 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 Rech, no link: http://www.j-walk.com/ss/excel/eee/eee020.txt O código abaixo deve ser postado no Workbook: Private 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" Icon = ExtractIcon32(0, NewIcon, 0) SendMessage32 GetActiveWindow32(), &H80, 1, Icon '< 1 =" big" 0 =" small">

End Sub

Nenhum comentário:

Postar um comentário

diHITT - Notícias