如何在Excel中创建滑动菜单效果？我们经常在网站上看到精彩的滑动菜单效果：当鼠标放在某处时，菜单自动展开，当鼠标离开时，菜单关闭。其实在Excel中也可以创建类似的效果，培根位教我们一个实现方法。有关详细信息，请参见原文：在Excel中创建滑出式菜单。

这里，只列出本质，即如何创建下图动画所示的滑动效果。

反复点击左上角的三条水平线，A列会逐渐变宽或变窄，从而模拟滑动效果。

实现的关键是以下代码：

子隐藏切片器()

将列范围调暗为字符串

最小尺寸加倍

将大尺寸调成两倍

双倍模糊增量

从两倍大小变暗

模糊到两倍大

变暗步进器加倍

模糊的我是双重的

column range=" a " '将其更改为您想要实现滑动效果的列。

最小尺寸=8 '调整到您需要的最小列宽。

最大尺寸=32’调整到您需要的最大列宽。

增量=6’调整以设置动画速度。

选择案例活动表。列(列范围)。列宽

大小写=最小

FromSize=SmallestSize

ToSize=LargestSize

步进器=增量

箱子最小

FromSize=LargestSize

ToSize=SmallestSize

步进器=-增量

结束选择

对于i=从尺寸到尺寸步进器

活动纸。列(列范围)。ColumnWidth=i

我=我

DoEvents

接下来我

末端接头