excel图表形状怎么设置
发布时间：2022-10-08 07:15:15
excel图表形状怎么设置？下面再举一个例子，如下图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怎么取消屏保？有些用户在使用win7系统的时候经常会遇到电脑自动锁屏的状态，那么该怎么取消屏保呢，这里就给大家带来一种取消屏保的方法- 设计师们是不是还在为调不出好看的颜色而发愁呢？别急，今天小编给大家整理了6个宝藏调色软件，创建漂亮的色彩不再难。每一个调色软件都有各自的特点
- QQ输入法手机版使用输入法手势的方法如下：手势输入支持：退格、删除、空格、回车，具体操作方式请参考输入法设置中的手写设置。
- 现在学校都给学生的成绩都是分等级的(划分为A、B、C、D、E等级)，60分一下得E，70以下得D等，在学校录入了学生成绩以后，如何将考卷的分
- Excel中的公式需要进行批量修改，公式具体该如何进行批量修改呢?接下来是小编为大家带来的excel批量修改公式的教程，供大家参考。exce
- Word文档设置段前分页的方法教学分享。段前分页功能的作用是可以帮助我们去进行内容的分隔，比如我们在一页的最后一行输入一个标题之后，软件就会
- ubuntu是一款能直接安装在Windows系统的Linux操作系统，帮助用户获取更加丰富的操作体验和性能。那升级win11系统之后还能安装
- 今天小编为大家分享怎么在word文档中的表格加竖线方法，对于经常使用word文档的朋友可以参考本文，希望这篇文章能对大家有所帮助在日常办公或
- 电脑是现在很多用户在工作、生活中都会用到的设备，在操作电脑的时候用户会经常查看时间、日期等数据，为了方便自己查看我们可以设置数据的格式为自己
- ①启动Word2013，单击文件--账户，在office主题中可以选择。 ②例如我之前是白色，现在我将其修改为深灰
- 在浏览网页时，人们经常会看到一些好文章，他们可能会在第一时间想到保存它们。当问题出现时，如何挽救它们？选择、复制、运行WORD、粘贴并重新排
- win10怎么关闭jpeg壁纸质量压缩功能？win10系统中会自动将图片质量压缩至85％，这是为了节省系统资源，但是有的图片还是很占用资源，
- 苹果替 iOS 15 的 FaceTime 加入「SharePlay 同播共享」新功能，能够使用 FaceTime 视频通话时，也能共享 i
- hosts文件是每一台电脑中都必须要拥有的重要文件，hosts文件的作用有很多，很多小伙伴都需要给hosts文件加ip地址吧，今天就一起来看
- 《暗黑破坏神3》是一款受到众多玩家欢迎的大型网游，大部分MAC用户都可以很流畅的玩《暗黑破坏神3》，不过仍有一部分老机型用户无法顺利运行。为
- Win 7系统文件丢失导致驱动安装失败怎么办?本文将提供Win 7系统文件丢失导致驱动安装失败的解决方法供大家了解 Win 7系统
- 很多用户都遇到了同样一个问题，那就是一个叫做wsappx的进程占据了电脑过多的内存，导致电脑卡顿死机，这该怎么办呢？wsappx是一个什么样
- Win8系统怎么不重装系统直接升级到Win10系统？许多已经下载安装了win8系统的用户发现win8系统一点都不好用，想要将win8系统升级
- 在办公室上班时，有时需要短暂外出，但又怕其他人乱动计算机，更不想把计算机进行注销。这时候我们可以锁定计算机，别人就动不了你的电脑了。那Win
- win10系统使用过程中，有时候会遇到账户被停用的情况，那么win10账户被禁用了怎么办呢?就此问题，今天小编就带大家带来了win10账户被
