超过图表形状怎么设置？下面再举一个例子，如下图一所示。

图一

对单元格H3设置数据有效性如下图2所示。

图2

在形状所在的工作表模块中，输入代码：

私有子工作表_更改（按值目标作为范围)出错转到错误处理程序尺寸嘘作为形状尺寸我的颜色作为长尺寸lAdj作为长集合sh=形状("部分圆1")如果目标。地址="$H$3 "然后申请启用事件=假sh .调整。项目(1)=0选择案例目标。值案例0: lAdj=0案例else : LaDj=-(360 (360 *目标。值))结束选择嘘.调整。项目(2)=lAdj '修改形状颜色选择案例目标。值大小写为=0.85: myColor _=RGB(169，208，142)'绿色'大小写Is=0.75: myColor _=RGB(255，255，0)'黄色'大小写Is=0.5: my color _=RGB(255，192，0)'橙色Case Else: myColor _=RGB(255，0，0)'红色结束选择。应用程序结束启用事件=真退出子错误处理程序： MsgBox错误.数字呃.描述转到exitHandlerEnd Sub

我们可以添加一小段代码，让这个图动起来，如下图3所示。

图3