如何讓excel圖表形狀生動起來

如何讓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

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。