怎么让excel图表形状生动起来 _知识经验

下面再举一个例子，如下图1所示。

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

文章插图
图2
在形状所在的工作表模块中，输入代码：
Private Sub Worksheet_Change(ByVal Target As Range)On Error GoTo errHandlerDim sh As ShapeDim myColor As LongDim lAdj As LongSet sh = Shapes(“Partial Circle 1”)If Target.Address = “$H$3″ ThenApplication.EnableEvents = Falsesh.Adjustments.Item(1) = 0Select Case Target.ValueCase 0: lAdj = 0Case Else:lAdj = -(360 – (360 * Target.Value))End Selectsh.Adjustments.Item(2) = lAdj‘修改形状颜色Select Case Target.ValueCase 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 Selectsh.Fill.ForeColor.RGB = myColorEnd If exitHandler:Application.EnableEvents = TrueExit Sub errHandler:MsgBox Err.Number & ” ” &Err.DescriptionGoTo exitHandlerEnd Sub
我们可以添加一小段代码，让这个图动起来，如下图3所示。