如何在Excel中创建滑动菜单效果

如何在Excel中创建滑动菜单效果

如何在Excel中创建滑动菜单效果？我们经常在网站中能看到奇妙的滑动菜单效果：当鼠标放置在某处时，菜单自动展开，当鼠标离开时，菜单收起。其实，在Excel中也能创建类似的效果，Bacon Bits教给我们一个实现方法，具体内容见原文：Creating a Slide-Out Menu in Excel。

这里，只是列出其精华部分，即如何创建下面动画所示的滑动效果。

当反复单击左上方三条横线时，列A会逐渐变宽或收窄，从而摸拟了滑动效果。

实现的关键是下面的代码：

Sub HideSlicer()

Dim ColumnRange As String

Dim SmallestSize As Double

Dim LargestSize As Double

Dim Increment As Double

Dim FromSize As Double

Dim ToSize As Double

Dim Stepper As Double

Dim i As Double

ColumnRange = “A” ‘<–修改为你想取得滑动效果的列

SmallestSize = 8 ‘<–调整为你需要的最小列宽

LargestSize = 32 ‘<–调整为你需要的最大列宽

Increment = 6 ‘<–调整来设置动画的快慢

Select Case ActiveSheet.Columns(ColumnRange).ColumnWidth

Case Is <= SmallestSize

FromSize = SmallestSize

ToSize = LargestSize

Stepper = Increment

Case Is > SmallestSize

FromSize = LargestSize

ToSize = SmallestSize

Stepper = -Increment

End Select

For i = FromSize To ToSize Step Stepper

ActiveSheet.Columns(ColumnRange).ColumnWidth = i

i = i

DoEvents

Next i

End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。