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

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

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

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

4、在模块当中输入如下代码，然后运行Private Sub UserForm_Init坡纠课柩ialize() Hwnd=Fin颊俄岿髭dWindow("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=100End Sub

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