Notifications
Clear all

Trocar logo do excel

17 Posts
4 Usuários
0 Reactions
2,734 Visualizações
Lorenzon
(@lorenzon)
Posts: 355
Reputable Member
Topic starter
 

Pessoal, boa tarde!

O que ha tempos estou a fazer é exatamente o que o Bruno Castro discuti no fórum abaixo:

http://exceler.org/forums/topic/trocar-logo-do-excel/

ou seja, um código que altere a logo que fica na barra de tarefas (abaixo) quando o projeto está em uso.

Vale ressaltar que, com a ajuda de vocês, eu já alterei a logo/ícone da barra de título.

Aguardo ajuda!

 
Postado : 11/10/2014 11:34 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Lorenzon, como pode ver no meu print, se está falando do icone na barra de tarefas ele é alterado, você chegou a baixar o arquivo e testar ?
No tópico do forum do Tomaz que indicou tem o exemplo do Melo, é um pouco diferente as rotinas mas tambem funciona.
Como eu disse no tópico anterior, tem de ajustar o Caminho e o nome do arquivo ".ico", se não fizer isto não da certo.
Outra coisa, este modelo foi feito para a v 2003, qual versão está utilizando ?

O Caminho e Nome do arquivo tem de ser alterado na linha abaixo :
Private Sub UserForm_Activate()
Dim vFile As Variant

'Ajustar o caminho e nome do icone
vFile = "C:IconesMeuIcone.ico"

Set mclsFormChanger = New CFormChanger
Set mclsFormChanger.Form = Me

mclsFormChanger.ShowIcon = True
mclsFormChanger.IconPath = vFile

mclsFormChanger.ShowTaskBarIcon = True
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/10/2014 10:52 am
Lorenzon
(@lorenzon)
Posts: 355
Reputable Member
Topic starter
 

Mauro,

Ressalto, esse código, pelo menos para mim, só alterou o ícone da barra de títulos.

Utilizo o office 2013.

 
Postado : 15/10/2014 11:11 am
Página 2 / 2