如何让excel图表形状生动起来
发布时间:2022-06-08 04:26:34
下面再举一个例子,如下图1所示。
图1
对单元格H3设置数据有效性如下图2所示。
图2
在形状所在的工作表模块中,输入代码:
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo errHandler Dim sh As Shape Dim myColor As Long Dim lAdj As Long Set sh = Shapes(“Partial Circle 1”) If Target.Address = “$H$3″ Then Application.EnableEvents = False sh.Adjustments.Item(1) = 0 Select Case Target.Value Case 0: lAdj = 0 Case Else: lAdj = -(360 – (360 * Target.Value)) End Select sh.Adjustments.Item(2) = lAdj ‘修改形状颜色 Select Case Target.Value Case Is >= 0.85: myColor _ = RGB(169, 208, 142) ‘绿色 Case Is >= 0.75: myColor _ = RGB(255, 255, 0) ‘黄色 Case Is >= 0.5: myColor _ = RGB(255, 192, 0) ‘橙色 Case Else: myColor _ = RGB(255, 0, 0) ‘红色 End Select sh.Fill.ForeColor.RGB = myColor End If exitHandler: Application.EnableEvents = True Exit Sub errHandler: MsgBox Err.Number & ” ” &Err.Description GoTo exitHandlerEnd Sub
我们可以添加一小段代码,让这个图动起来,如下图3所示。
图3
猜你喜欢
- 1、点击菜单栏上面的“文件”,打开word系统设置对话框。 2、打开的word系统设置对话框,和以前版本的完全不一
- excel表格中的数据怎么使用温度计式图表展示完成率?excel表格中有预售目标和实际完成数量,想要使用带有百分比的温度计图表来显示完成率,
- 在学习工作中总会有一些用到直方图、正态分布曲线图的地方,那么在Excel表格中怎么制作直方图呢?下面小编就为大家详细介绍一下,来看看吧某班级
- 在Word中如何画横线对于办公熟手来说是轻而易举,但对于那些对办公还是菜鸟级别就不是那么容易了,下面就为大家介绍几种非常常见而且比较简单的画
- SoftMaker FlexiPDF 2022怎么安装破解?今天小编就为大家带来了SoftMaker FlexiPDF 2022破解安装使用
- 误操作及安装了某些安全软件都可能导致注册表被锁定,用户也无法再对注册表进行任何修改。那么,注册表被锁该怎么办呢?下面小编就来分享一下Win1
- 在对已经创建了的图表进行一系列的设置后,用户若希望以后创建的新图表都可以用此图表的格式,就可以将此excel2010图表设置保存为模板,方便
- 做excel表格时,要填很多数据,例如男女、职业、部门等,这些数据都是重复存在的,这时候我们就可以用数据有效性来填这些数据,提高效率的同时还
- 需求千变万化,有时要求Word删除表格保留内容,有时又反过来要求去掉文字保留表格。对于这两种要求,Word怎么实现?以下是小编为您带来的关于
- word中绘制箭头很简单, 想要画一个垂直90度的直角箭头,我们需要使用肘形箭头连接符来完成。以下是小编为您带来的关于word2016画直角
- win10系统与win7系统相比发生不少变化,许多用户一时还无法找到win10系统的控制面板,那么今天小编就为大家介绍一下,如何找把win1
- 写一份报告论文总结或者其他类型的Word文档时,目录是必须有的,可目录绝不能是手打出来的。其原因之一:手打的不整齐、美观;原因之二:目录手打
- Word中的快捷键有很多,但是在办公中,F4按键可以说是最实用的,它可以重复上一操作步骤,很多场合中都可以用到,替代了很多快捷键功能,下面让
- 交互式图表可以实现多个图表之间的联动。其制作思路是将数据源转换成智能表格,再根据智能表格创建不同的数据透视表(图),最后用切片器将不同的数据
- 很多朋友在使用word2013文档的时候,可能还不是很清楚Word2013文档怎么设置双面打印?今天,小编就给大家简单介绍下Word2013
- 默认情况下,MicrosoftOfficeExcel在一个工作簿中提供三个工作表(工作表:在Excel中用于存储和处理数据的主要文档。也称为
- 略显平淡的 iOS 15,似乎并没有激发到用户们的兴趣!也或许是此前传闻的功能都没能出现,比如息屏显示、全新的图标设计等等,重要的是iOS
- WPS怎么制作最萌小熊上楼梯趣味课件操作步骤场景设计:小熊要完成成语之最的填空后才能上一个楼梯,哪位同学能帮他呢? 搭楼梯1、新建一个新的幻
- WPS文字修改图片线条颜色的方法1.打开WPS,进入它的主页面,点击红色箭头所指的“插入” 2.在这里用插入图形来
- 新建并打开word 2016空白文档,编辑时间轴事件。输入时间轴事件,设置好字体、大小、颜色。添加合适项目符号。选中输入的时间轴事件,点击菜