0
我在Excel 2007中有一个条形图。我想分别更改图表中每个条形的格式,然后将其更改回原始格式。总体效果是使每个条形图依次突出显示。在Excel 2007中按顺序突出显示每个条形图条形图
有没有办法用VBA做到这一点?
我在Excel 2007中有一个条形图。我想分别更改图表中每个条形的格式,然后将其更改回原始格式。总体效果是使每个条形图依次突出显示。在Excel 2007中按顺序突出显示每个条形图条形图
有没有办法用VBA做到这一点?
这可能让你开始:
Sub Tester()
Dim oCht As Excel.Chart, s As Series
Dim x As Integer, i As Integer
Dim oldColor As Long
Set oCht = ActiveSheet.ChartObjects("Chart 1").Chart
For x = 1 To oCht.SeriesCollection.Count
Set s = oCht.SeriesCollection(x)
For i = 1 To s.Points.Count
With s.Points(i).Interior
oldColor = .Color
.Color = vbRed
DoEvents
Application.Wait Now + TimeSerial(0, 0, 2)
.Color = oldColor
DoEvents
End With
Next i
Next x
End Sub
感谢您的帮助。 – Idr 2011-05-27 04:48:11