怎样使用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、重新启动工作簿，可以看到工作簿启动时将会同时启动动感的自定义画面，像水平百叶窗帘的特效，如图