[分享]修改EXCEL图标和程序标题名称

yfxpzq

首先在要改的工作薄相同路径放一个ICO图标,用来作为更改后要显示的图标.

1、

Option Explicit
Public Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const WM_SETICON = &H80
2、

Private Sub Workbook_Open()
Dim IconPath As Variant
Dim hIcon As Long
IconPath = ThisWorkbook.Path & "\MSN.ICO"
hIcon = ExtractIcon(0, IconPath, 0)
SendMessage FindWindow("XLMAIN", Application.Caption), WM_SETICON, 1, hIcon
Application.Caption = "我的财务系统"
End Sub

yfxpzq

效果如下

 

ccwan

谢谢分享。

win2009

修改和恢复excel程序标题的vba代码

公有的 过程 修改excel的标题()
应用程序.标题 = "标题修改试验"
消息框： "excel标题已经被改为: " & 应用程序.标题 _
& "! 下面将恢复默认的标题文字!"
应用程序.标题 = vbnullstring
结束 过程


修改和恢复excel程序标题的VBA代码

Public Sub 修改Excel的标题()
    Application.Caption = "标题修改试验"
    MsgBox "Excel标题已经被改为: " & Application.Caption _
        & "! 下面将恢复默认的标题文字!"
    Application.Caption = vbNullString
End Sub

win2009

option explicit
公有的 声明 函数 extracticon 引用库 "shell32.dll" 别名 "extracticona" (变量 hinst 为 长整型值    变量 lpszexefilename 为 字符串    变量 niconindex 为 长整型值) 为 长整型值
公有的 声明 函数 发送消息API函数 引用库 "user32" 别名 "发送消息API函数a" (变量 hwnd 为 长整型值    变量 wmsg 为 长整型值    变量 wparam 为 整型值    变量 lparam 为 长整型值) 为 长整型值
公有的 声明 函数 findwindow 引用库 "user32" 别名 "findwindowa" (变量 lpcl为sname 为 字符串    变量 lpwindowname 为 字符串) 为 long
公有的 const wm_seticon = &h80
2、
私有的 过程 workbook_open()
定义变量 iconpath 为 变体数据类型
定义变量 hicon 为 长整型值
icon路径 = 当前工作簿.路径 & "\msn.ico"
hicon = extracticon(0, iconpath, 0)
发送消息API函数 findwindow("xlmain"    应用程序.标题)    wm_seticon    1    hicon
应用程序.标题 = "我的财务系统"
结束 过程

chenlifeng123

引用图标，这儿有一个路径是IconPath，即被引用的图标要保存在当地路径。
如果我在vb6中，把该图标放到资源库中，又该如何引用呢？谢谢您的指点，期望指导！～

jyj679

Public Const WM_SETICON = &H80
此句在vba中报警      编译错误：常数、固定长度字符串、数组、用户定义类型以及Declare语句不允许作为对象模块的公共成员
求解释原因！我安装的是excel2010

lujkhua

1. Sub 修改工作簿标题图标就算啦()
   
2.     Application.Caption = "不用API也可以改变标题的嘛"
   
3.     Application.ActiveWindow.Caption = "怒剑狂花"
   
4. End Sub

复制代码

02761752696

谢谢 分享  学习

销香叶雨

没有测试成功呢？