批量添加图表
'MASS CREATE CHART Sub Mass_Create_Chart() Dim oChart As ChartObject Dim m1%, m2%, j% Dim title_1, title_2 Dim rng_1, rng_2, rng_x Dim nChart As New Chart Dim iTop As Integer, iLeft As Integer Dim iCount As Integer iTop = 170 'INITIAL TOP iLeft = 20 'INITIAL LEFT With Sheets("Summary") 'DELETE PREVIOUS CHARTS For Each oChart In .ChartObjects oChart.Delete Next 'CREATE CHART For m1 = 2 To 9 iCount = iCount + 1 'GET BASE ROW If m1 = 9 Then m2 = 12 Else m2 = 11 'GET DATA INFORMATION title_1 = .Cells(m1, 1).Text & "-" & .Cells(m1, 2).Text title_2 = .Cells(m2, 1).Text & "-" & .Cells(m2, 2).Text Set