[Anónimo]

boa tarde galerinha!

gostaria de saber se é possível e como faço para alterar o logotipo do excel por algum outro particular.

não estou falando para alterar o logo do atalho, esse eu sei fazer. gostaria de alterar o logo do excel que fica aparecendo da barra de título (acima) e até mesmo o que fica na barra de tarefas (abaixo).

fico no aguardo.

att.
wagner goularte

[Anónimo]

nada …. ??????

[jorgerod]

wagner,

talvez aqui? – http://www.cpearson.com/excel/seticon.aspx

diz qq coisa, ok?

fica bem.

[Anónimo]

jorge,

muito bom !!!!

essa programação muda o logo do excel para qualquer outro logo, o que fica do lado esquerdo no topo.

vamos tentar ir além?

gostaria que o logo que fica aparecendo na barra de tarefas abaixo na tela tb trocasse o logo. seria possível?

outra coisa, na barra do titulo do arquivo, aparece “microsoft excel – ‘nome do arquivo'”, será que conseguimos eliminar esse “microsoft excel”?

a idéia é eliminar tudo que caracterize excel para ficar mais parecido com um software.

fico no aguardo.

att.
wagner goularte

[jorgerod]

na barra do titulo do arquivo, aparece “microsoft excel – ‘nome do arquivo'”, será que conseguimos eliminar esse “microsoft excel”?

será isto que pretendes? experimenta e diz qq coisa, ok?

private sub workbook_open()

‘change the caption from excel and file name to whatever you want
application.caption = “teste”

end sub

private sub workbook_beforeclose(cancel as boolean)

‘reset caption to standard caption.
application.caption = “”

end sub

[jorgerod]

wagner,

quanto à questão: gostaria que o logo que fica aparecendo na barra de tarefas abaixo na tela tb trocasse o logo. seria possível?

experimenta o seguinte código num módulo e tenta adaptar:

‘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

‘modification of code from excel experts e-letter archives.
‘original code by jim rech can be found by following this
‘link > http://www.j-walk.com/ss/excel/eee/eee020.txt

sub changeapplicationicon()

dim icon&

‘*****change icon to suit*******
const newicon$ = “fontview.exe” ‘ pode-se alterar o ícone aqui, proveniente de um ficheiro exe qualquer…
‘*****************************

icon = extracticon32(0, newicon, 0)
sendmessage32 getactivewindow32(), &h80, 1, icon ‘< 1 = big icon
sendmessage32 getactivewindow32(), &h80, 0, icon '< 0 = small icon

end sub

diz qq coisa, ok?

fica bem!!! 🙂

[jorgerod]

wagner,

outro código, que podes testar, alterando o path onde se encontrará o ícone, em vez de um ficheiro exe, como te referi no último post:

http://www.vbforums.com/showthread.php?285959-excel-program-icon&p=1670104#post1670104

depois diz qq coisa, ok?

[Anónimo]

jorge,

referente ao #1446, é isso mesmo. tão simples mas eu não sabia que era só isso.

muito obrigado!

[Anónimo]

jorge,

muito obrigado pela ajuda! todas as programações indicadas funcionam.

mas, um item que ainda quero fazer e não foi comentada e tb não sei se vc entendeu.

o logo da barra de titulo está sendo alterado. ok.
o descritivo do titulo está sendo alterado. ok.
o logo que fica na barra de tarefas (abaixo) não foi comentado. nok.

tentarei explicar melhor sobre esse ultimo item. É o logo que qdo abre-se vários arquivos de excel, eles ficam todos listados mas aparece apenas um na barra. isso acontece com tds os tipos de arquivos que são abertos. tambem costumam ficar o explorer, internet, midiaplayer …. eu gostaria que qdo abrise um excel, aparecese um logo particular.
entendeu?

fico no aguardo.
obrigado!
wagner goularte

[Autor]

Artigos