使用VBA制作Excel文件Logo

Question

见过一个使用VBA制作的Excel 启动Logo  看起来很漂亮 老板让我也做一个 求助各位

Answer 1

想添加Excel启动Logo，首先键入ALT+F11打开VBA编辑器；在“插入”菜单中，选择“用户窗体”；在窗口编辑栏里拖住对话框的右下角，把窗体拉大；最后的大小就将是咱们自定义的启动画面的大小了。接下来，将“工具箱”里那个大大的“A”字图标拖拽到你的窗体上；鼠标点住出现的文本框的一角，将它拉大，将框内文字替换为之后想要显示的标题内容即可。如果此时VBA编辑器里并没有显示控件属性栏，请按F4将其调出，这样就可以通过属性栏中的字体一项更改标题字体。这里默认的字体是宋体，你也可以点击它右边画着“…”的小方框，在弹出的对话框中重新设置。本文例子里采用的字体是Arial Black Regular，72点。接着将属性“TextAlign”一栏调整为“fmTextAlignCenter”，选择属性“ForeColor”|“按钮文本”|“调色板”，在其中选择你喜欢的标题颜色。这里需要注意一件事，一个Label文本框内只能有一种字体；所以如果还想在弹出框中建立副标题，就还需要在窗体中再添加一个Label文本框才行。添加完填好文字，设置方法同之前那个Label完全相同。下面我们要为弹出的这个对话框添加背景颜色：首先用鼠标在窗体内没有其他控件的地方点一下，在属性栏选择“BackColor”|“调色板”，选择你中意的颜色即可。选择VBA插入菜单中的“模块”。并在弹出的代码编辑框内填入下面代码：Sub ClearForm()
Unload Intro
End Sub最后在工程资源管理器那里点开“ThisWorkBook”；如果你的VBA没有显示这个管理器，可以用CTRL+R将它调出；接着在弹出的代码编辑器里面输入：Private Sub Workbook_Open()
Intro.Show
End Sub

Answer 2

2楼做的窗口,当做闪屏应该不算完美.最好用API把窗口处理为无边框无标题的,还要弄个计时器,在设定的秒数后自动关闭,最好还是渐隐的.
我试过用循环来延时关闭窗口,但效果不理想,因为这样处理EXCEL不能利用这段时间加载数据,失去闪屏的意义.
期待美完解决方案