Boa Noite encontrei essa macro em um site -> http://puremis.net/excel/code/045.shtm l"> http://translate.google.com.br/translat ... /045.shtml
Mais não estou conseguindo excuta-la segue a macro.
Option Explicit
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Const WM_SETICON = &H80
Const ICON_SMALL = 0&
Const ICON_BIG = 1&
' Tanto quanto eu sabia, o arquivo de ícone (a extensão é. ico) precisa ser
' Até onde UE sabia, o ícone do arquivo (é uma extensão. Ico) precisa ser
' preparado para além do arquivo Excel. "Preparado para além arquivo Excel.
', Mas aqui é a maneira de incorporar um ícone em uma planilha como um controle de imagem, "Mas aqui é uma maneira de incorporar um ícone em uma planilha como um controle de imagem,
' e exibindo a imagem sobre a barra de título do Excel usando o identificador de exibir e uma imagem na barra de título do Excel usando uma List fazer
' imagem do ícone incorporado.
'Imagem incorporado ícone.
Sub ChangingExcelIcon()
MsgBox "Change Excel Icon"
Call ChangeXLIcon(Plan1.Image1.ico.Handle)
End Sub
Sub MakeExcelIconDefaultAgain()
MsgBox "Make Excel Icon default again"
Call ChangeXLIcon
End Sub
Private Sub ChangeXLIcon(Optional ByVal hIcon As Long = 0&)
Dim hwnd As Long
Dim lngRet As Long
' Obter o identificador do Excel aplicativo "Obter o identificador da aplicação Excel
hwnd = FindWindow("XLMAIN", Application.Caption)
lngRet = SendMessage(hwnd, WM_SETICON, ICON_SMALL, ByVal hIcon)
lngRet = SendMessage(hwnd, WM_SETICON, ICON_BIG, ByVal hIcon)
lngRet = DrawMenuBar(hwnd)
End Sub
Aguardo retorno.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 07/09/2011 5:42 pm