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
