[已解决]有没有办法不显示最左上角那个EXCEL标识，或改成别的LOGO？

jiangtao2012

如标题，想让EXCEL文件的最左上角替换成个小卡通之类的新标识。呵呵，我真逗

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-2-19 12:58

jiangtao2012 发表于 2013-2-19 12:47
当然有意义呀，您能帮就帮一下吧

将Excel工作簿中左上角的Excel工作簿图标更换，改成认为合适的图标，以表示与其它工作簿的区别。有很多图标可供选择，可以通过以下方式查找图标，如点击左下角开始——搜索——在文件和文件夹中输入exe，则可发现很多带.exe后缀的图标如cmd.exe……等可供使用。只要将找到的图标名取代notepad.exe即可。
将工作簿左上角的图标更换为Notepad图标。
‘******下面的代码写入ThisWorkbook模块中******
Private Sub Workbook_Open()
   Application.Caption = "我的工作簿"
   ChangeApplicationIcon
End Sub
‘******下面的代码写入标准模块中******
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&
   '*****Change Icon To Suit*******
   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

跳转到最佳答案楼层

hwc2ycy

有创意。

jiangtao2012

hwc2ycy 发表于 2013-2-19 11:36
有创意。

这个创意有点恶搞吧？呵呵
      不过，您能帮我么？

hwc2ycy

整这个没什么意义呀。

jiangtao2012

hwc2ycy 发表于 2013-2-19 11:55
整这个没什么意义呀。

当然有意义呀，您能帮就帮一下吧

那么的帅

jiangtao2012 发表于 2013-2-19 12:47
当然有意义呀，您能帮就帮一下吧

将Excel工作簿中左上角的Excel工作簿图标更换，改成认为合适的图标，以表示与其它工作簿的区别。有很多图标可供选择，可以通过以下方式查找图标，如点击左下角开始——搜索——在文件和文件夹中输入exe，则可发现很多带.exe后缀的图标如cmd.exe……等可供使用。只要将找到的图标名取代notepad.exe即可。
将工作簿左上角的图标更换为Notepad图标。
‘******下面的代码写入ThisWorkbook模块中******
Private Sub Workbook_Open()
   Application.Caption = "我的工作簿"
   ChangeApplicationIcon
End Sub
‘******下面的代码写入标准模块中******
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&
   '*****Change Icon To Suit*******
   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

JLxiangwei

jiangtao2012 发表于 2013-2-19 12:47
当然有意义呀，您能帮就帮一下吧

图标.zip (15.75 KB, 下载次数: 43)

2013-2-19 13:16 上传

点击文件名下载附件

lucking551

都是大师，学习。。。。

jiangtao2012

JLxiangwei 发表于 2013-2-19 13:16

亲，2010版本中的经典菜单在哪？

az168

都是高手，学习一下。还是学用阶段，不需要美化