Tag Archives: Ícone

VBA – Icone Personalizado Form e Barra do Windows

Publicado por Mauro Coutinho

Colegas, conforme solicitação do amigo Erikson no tópico abaixo:

Userform com Ícone próprio
Userform com Ícone próprio

Userform com icone próprio
http://www.tomasvasquez.com.br/forum/viewtopic.php?f=6&t=1492

No tópico acima, temos a juda do colega Melo onde o mesmo alem de detalhar postou um exemplo tambem.

Fiz algumas adaptações das rotinas, conforme explicado abaixo, então segue um exemplo onde temos duas formas de utilizar o Formulário :

  1. O Icone Personalizado está definido na Propriedade do Conttrole Image diretamente no Formulário, para altera-lo é só altera-lo na propriedade.
  2. O Icone está definido na propria rotina travez do Caminho e Nome do mesmo, para funcionar corretamente, é só ajustar o caminho e o nome do Icone.

O tópico do fórum para baixar o arquivo e discussões sobre está no link abaixo:

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=17&p=7216#p7216

Façam os testes e qualquer dúvida, retornem.

Abraços

VBA – Alterar Icone Barra Titulo Excel

Novamente, o fórum gerando frutos e, para variar, o colega Mauro Coutinho mostra para o que veio. O post abaixo é de sua autoria, portanto, é quem deve obter os devidos crédito de toda a proeza:

Colegas, recebi algumas solicitações referente a alterar o Icone da Barra de Titulo do Excel, e, tendo em vista a dificulade de se aplicar esta implementação por aqueles que não teem muita intimidade com VBA, resolvi montar dois exemplos, um para Excel 2003 e outro para 2007.

Como a Fonte, http://translate.google.com.br/translate?hl=pt-BR&langpair=en|pt&u=http://puremis.net/excel/code/045.shtml, está fora do ar ja há alguns dias coloquei nos mesmos as devidas explicações de como fazer esta implementação.

Alterar Icone Excel 2003
AlteraIconePasta2003.rar
Tamanho (123.07 KiB)

Alterar Icone Excel 2007
AlteraIcone Pasta2007.rar
Tamanho (115.21 KiB)

Upei tambem no 4Shared, para poder manter uma cópia se precisar :
Excel 2003
http://www.4shared.com/document/7xpRb6R … a2003.html
Excel 2007
http://www.4shared.com/file/yybqHkLC/Al … a2007.html

Qualquer duvida reportem no Forum.

O tópico do fórum que publicou o exemplo pode ser acompanhado aqui:

http://www.tomasvasquez.com.br/forum/viewtopic.php?f=17&t=1327&p=6516#p6516

VBA – Mudando o Ícone da Aplicação

Macro para mudar o ícone padrão da aplicação VBA.

Siga os seguintes passos:

  1. Abra uma nova pasta de trabalho no Excel
  2. Abra o VBA Ferramentas->Macro->Editor do Visual Basic (Alt+F11)
  3. No Editor do VBA, Selecione Exibir->Project Explorer
  4. Clique duas vezes em EstaPasta_de_trabalho e cole o código desta seção (abaixo)
  5. Insira um novo módulo Inserir->Módulo e cole o código desta seção (abaixo)
  6. Salve e Feche a pasta de trabalho
  7. Abra novamente a pasta de trabalho e veja o resultado
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
'******Código para EstaPasta_de_trabalho******
Option Explicit 
 
Private Sub Workbook_Open()
    Application.Caption = " Meu Aplicativo Personalizado"
    ChangeApplicationIcon
End Sub
 '***************************************** 
 
 '************Códido do Módulo****************
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 
 
Sub ChangeApplicationIcon() 
 
    Dim Icon& 
 
     'Muda o ícone para o do Bloco de Notas
     'Mude para o arquivo que contém o ícone desejado (.ico)
    Const NewIcon$ = "Notepad.exe"
 
    Icon = ExtractIcon32(0, NewIcon, 0)
    SendMessage32 GetActiveWindow32(), &H80, 1, Icon '< 1 = big Icon
    SendMessage32 GetActiveWindow32(), &H80, 0, Icon '< 0 = small Icon
 
End Sub
 '*****************************************

Créditos:
Excel Experts – Criado por Jim Rech
http://www.vbaexpress.com

Limitações:
Na versão 2007 do Office, o novo ícone só será visto com o aplicativo em tela cheia.