如何让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
0
投稿猜你喜欢
Win7系统中的C盘，有一个名为Installer的文件夹，该文件夹占用的空间很大。那么Installer文件夹可以删除吗？下面小编就给大家- 微软对win7系统新增不少实用功能，备份与还原想必大家也有一定了解，当我们对系统进行备份之后，如果系统出现各种故障问题时，我们可以通过这个还
- 百度网盘是百度推出的一款非常好用的云存储软件，随时随地查看文件、下载文件，非常方便。那就有小伙伴问小编了怎么将百度网盘设置为有任务不休眠的状
- Win10标准用户改为管理员怎么操作呢？最近很多小伙伴想要拥有管理员身份，这样在电脑上就可以对系统进行任何设置，而且在使用电脑过程中也不会软
- Dell笔记本的触摸屏是可以打开和关闭的，为了避免有的时候误触，有的用户会把触摸屏关闭，那Dell笔记本触摸板怎么打开？外星人电脑触摸板设置
- CorelDRAW是一款图形设计软件，用户在使用CorelDRAW的时候，想要设置绘图比例不知道应该怎么操作，针对这一问题，接下来就为大家介
- 在操作电脑过程中，遇到了操作有延迟的问题，通常表现为开机进入win7系统时，点击什么软件都打不开，需要等一分钟左右才能打开。现系统部落小编介
- IE浏览器被劫持了怎么办呢？最近有用户反映浏览器的主页总是被改成其他的网页，其实这是浏览器被劫持导致的，那么如何解决浏览器被劫持主页被修改的
- Win10系统中打印机显示未指定设备怎么办？用户在使用打印机的时经常会遇到各种问题，最近就有用户反应，在连接打印机的时候，发现无法连接并且显
- 好压是新一代高效全能压缩软件，它的界面美观，使用起来方便。有较高的压缩率，成为Windows操作平台上最为流行的压缩解压缩工具之一。但最近有
- 我们在前面提到过，当回归自由度在17以上时，Excel无法进行回归分析，那么就需要分两次进行回归分析。以下是小编为您带来的关于Excel分两
- 在Excel中经常需要录入好数据以后经常球年均增长率，具体该如何计算年均增长率呢?接下来是小编为大家带来的excel中年均增长率的计算教程，
- Win7系统中不常用程序图标怎么清除？我的电脑中显示的是磁盘的盘符，但是很多用户如果添加安装了一些第三方软件后也会生成，多了就显得杂乱，那要
- Win10 19H1快速预览版18305怎么手动升级？今天微软发布了Win10 19H1快速预览版18305，想要将自己的系统升级到最新的版
- Word文档爱心符号怎么打出来？我们在设计文档内容的时候，有时候会需要使用到特殊的符号，这些符号可以通过文档里面的符号库来找到。有用户需要打
- 学校使用的是希沃多媒体教学，但是有个问题就是老师正在讲课，就弹出一些不雅广告，让学生和老师都很尴尬，今天就来说说关于Windows弹出恶意广
- 美味不用等APP如何使用？美味不用等是一款非常不错的订餐软件，用户们可以在里面预订餐位和餐厅点菜等，那么我们该如何使用这款软件呢，下面就给大
- 11月13日，微软邀请国内部分科技数码媒体到望京微软大厦去体验现已在中国开启预售的Surface Pro 4，该产品将会在11月18日正式开
- win10右键添加关机重启怎么设置教程？在win10系统中，桌面右键功能除了系统默认提供的之外，还可以自己进行添加或删减部分功能，比如我们可
- win7系统电脑待机断网怎么解决？电脑系统长时间不使用的话会进入默认的待机状态，在待机情况下会出现断网现象，这是电脑省电的设置，那如果不想待
