本文作者:office教程网

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

office教程网 2024-03-20 13:25:11
后台-系统设置-扩展变量-手机广告位-内容正文顶部
摘要: 如何在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 ‘<–调整为你需要的最大列宽

excel图表怎么阻止用户修改工作表的名称

记得曾经有朋友问过我:如何阻止用户修改工作表的名称?下面是一段VBA代码,很地实现了这一功能。 在放置这段代码的工作簿中,当您修改任一工作表名称时,工作表名称会恢复原名,并且都会出现“您不能修改工作表名称”的提示。 试试看!

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

excel技巧禁用最近使用的工作簿列表

以前写过一篇关于在Exce 2007及之前的版本中禁用最近使用的文件列表的技巧文章。最近将该操作步骤在Excel 2013中试了一下,可行! 对于那些不想让别人看到自已打开过什么文档的朋友来说,使用这个技巧更隐蔽,除非使用者了解操作Windows注册表的知识。 有时,我们也许想禁用“最近使用的工作簿”,使得其他用户

后台-系统设置-扩展变量-手机广告位-内容正文底部
未经允许不得转载:

作者:office教程网,原文地址:如何在Excel中创建滑动菜单效果发布于2024-03-20 13:25:11
转载或复制请以超链接形式并注明出处 演示站

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

留言与评论(共有 0 条评论)
   
验证码: