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
投稿猜你喜欢
Q：excel乘积函数有哪些？A：介绍两个excel乘积函数：dproduct函数和product函数。两个函数，就函数名而言，第一个函数多- Excel表格怎么制作彩色的圆环统计图？excel表格中的数据想要制作成圆环统计图，该怎么制作呢？下面我们就来看看详细的教程，需要的朋友可以
- 在Word操作过程，有时会遇到Word模板文件Normal.dot出错等等。这时，就需要找到Word模板，将出错的Word模板删除掉。删除之
- Excel中的数据有效性具体该如何设置呢?下面是由小编分享的excel2003中设置数据有效性的方法，以供大家阅读和学习。excel2003
- WPS文件怎么使用八爪鱼调整段落？WPS文章可以使用段落布局快速调整，该怎么显示出八爪鱼呢？下面我们就来看看详细的教程， 需要的朋友可以参考
- 有些手游主播会将手机画面投影到电脑的界面上，那这功能其实就是win10的投影功能实现的。但是有些用户也想进行这样的操作，却在自己的电脑里怎么
- 第1步，打开Word2013文档窗口，选中需要更改大小写的英文字符文本块。在“开始”功能区的“字体”分组中单击“更改大小写”按钮。 &nbs
- 问题描述：安装office2007的时候，弹出来对话框，提示错误：安装程序找不到office.zh-cnOfficeMUI.msi。请浏览确
- 一些时候，由于工作方面的需要，我们可能希望能随时知道某些Excel 2007中的某些单元格中的数据的变化情况。 譬如有时我们需要同时查看多个
- 要在excel2003表格中创建图表，首先要在工作表中输入用于创建图表的数据，然后选择该数据并选择一种图表类型，再根据需要设置其他选项即可。
- 图表制作完成，要想让图表脱颖而出，还需要对图表进行必要的美化处理，让图表看上去更加专业。下面主要介绍在excel2013中应用图表样式、形状
- word2003的带圈字符可在格式中设置，具体位置如下：在运行菜单栏中“格式”→“中文版式”→“带圈字符”弹出“带圈字符”对话框，可以在弹出
- ①单击文件按钮，直接在这个页面找到相关文档，点击打开文件位置即可。 ②第二种方法，单击文件--信息，可以看到文件的
- 四象限图表是统计上经常用到的图表形式，下面，我就来讲讲EXCEL如何制作四象限图表散点图。01、首先，我们打开excel，并任意输入一些数据
- 简单的说起来。。。数据透视表就是一款无脑小白数据分析利器。同时还具有许多高大上的动态展示。↑ 在Excel中制作动态地图↑ 城市热力图，效果
- 如果是在Word中，忘记给插入的表格命名，很简单，先在表格下方直接输入表格标题，如下图。然后点击表格，当表格左上角出现双向十字箭头时，点击这
- 今天偶尔打开一个从别处复制过来的excel 文件，但是文件出现“该文件可能只读或者访问的位置是只读，或文件所在的服务器没有响应”(如图一)
- Excel2016怎么填充空白单元格？这篇文章主要介绍了Excel2016批量填充空白单元格方法,需要的朋友可以参考下Excel2016批量
- iOS / iPadOS 14 正式版已经推出一段时间了，这次带来的全新小组件功能让不少苹果用户纷纷更新体验。虽然正式版比测试版的稳定性和流
- 你还在为Excel中right函数的使用方法而苦恼吗，今天，小编就教大家在Excel中right函数的使用方法，让你告别Excel中righ
