怎样使用VBA制作百叶窗效果的欢迎画面？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub UserForm_Initialize()

    Hwnd=FindWindow("ThunderDFrame", Me.Caption)
   IStyle=GetWindowLong(Hwnd, GWL_STYLE)
   IStyle=IStyle And Not WS_CAPTION
   SetWindowLong Hwnd, GWL_STYLE, IStyle
   DrawMenuBar Hwnd
   New_Width=Me.Width * 1.5
   New_Height=Me.Height * 1.5
   FrameCount=40
   DelayTime=100
End Sub

5、重新启动工作簿，可以看到工作簿启动时将会同时启动动感的自定义画面，像水平百叶窗帘的特效，如图