Acredito que o logo a que se refere, seja o do proprio excel que é exibido na barra de tarefas, e acredito que o mesmo não possa ser alterado.

não, não. vlw!

Boa noite!!

Eu não sei o que deseja, mas há muita coisa de se pode mudar no excel...
http://www.rondebruin.nl/win/s2/win001.htm

Att

é exatamente isso aqui:

Alguém pode ajudar-me?

Então, já havia pesquisado sobre esse tópico antes, e mesmo depois que você converte ele como um aplicativo para o formato .EXE, mesmo assim quando você o executa, o icone do excel não se altera, confesso que depois de tantas modificações e personalizações que ele disponibiliza, logo isso não se pode alterar.
Projeto legal, disponibiliza uma copia?

Lorenzon, o que está solicitando não seria a mesma coisa do tópico abaixo onde eu cheguei até a converter o seu logo em icone ?
Pelo menos, pelos agradecimentos seus eu imaginei que estaria resolvido.

Mudar Ícone Excel (Barra de Títulos)
Mensagempor Lorenzon » 03 Mai 2014, 22:25

Mauro,
Não ficou bom, ficou ótimo!

Agradeço pela ajuda.

O eu e o planilhando.com somos presenteados com o seu conhecimento.

Mudar Ícone Excel (Barra de Títulos)
viewtopic.php?f=10&t=2444&start=20

[]s

Veja se esse link te ajuda:

http://stackoverflow.com/questions/2014 ... le-loading

Abs

Mauro,

Esses exemplos são bons, mas só altera, o ícone da barra de título, ou estou errado?

Alexandre,

Esse fórum discute exatamente o que preciso.

http://stackoverflow.com/questions/2014 ... le-loading

Mas as o ícone da barra de ferramenta continua inalterável, ele alterou apenas a barra de título, mas isso eu já fiz!

Veja o que eu fiz:

em um módulo eu inserir:

Declare Function ExtractIcon32 Lib "shell32.dll" Alias _
"ExtractIconA" (ByVal hInst As Long, _
ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

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

e na form:

Private Sub UserForm_Initialize()
call Sample
End Sub

Sub Sample()
Dim myIcoFile As String
Dim NewIco

'~~> Change this to the relevant icon file
myIcoFile = "C:UsersUSUARIODownloadsuTorrentPortableAppAppInfoAppIcon.ico"

NewIco = ExtractIcon32(0, myIcoFile, 0)

SendMessage32 GetActiveWindow32(), &H80, 1, NewIco
End Sub

Alexandre,

O link sugestionado por você, apresenta-nos o que eu, de fato, preciso.

Porém, utilizando o código lá contido, só consegui alterar o ícone da barra de títulos.

Pesquisei alguns outros fórum e encontrei pessoas com essa mesma dificuldade e, como resposta, encontrei dicas como: alterar o tamanho do ícone para 32 x 32, mas, mesmo assim, alterou apenas o ícone da barra de títulos. Veja aqui: http://stackoverflow.com/questions/5748 ... r-with-vba

Mauro,

Esses exemplos são bons, mas só altera, o ícone da barra de título, ou estou errado?

Lorenzon, a não ser que eu esteja entendendo errado, no exemplo do tópico que indiquei que foi aberto por você, é alterado o o icone que fica na Barra de Tarefas, como o site passou por atualização, não é possivel mais ver as imagens anexadas ao mesmo, então executei novamente o arquivo e segue o print.

Não é este icone da barra de tarefa que quer alterar ?

Se for istro, é só ajustar a s rotinas, que no exemplo altera a partir de um botão no formulário.

Lembrando que este exemplo está na v 2003, mas acredito funcionar em outras versões.

[]s

Ok, mas você pode fornecer o exemplo?

Mauro,

Eu apanhei esse exemplo, postado por você, mas, não sei por qual motivo, só altera o ícone da barra de título, localizado no conto superior esquerdo.

http://www.tomasvasquez.com.br/forum/vi ... D590BAmbZ4