PDA

View Full Version : creat chart



asdzxc
04-23-2012, 12:34 AM
I run the following macro to creat chart. However when the range changed, the macro is not working.

Sub Macro4() ' ' Macro4 Macro ' ' Keyboard Shortcut: Ctrl+p ' Range("C8").Select ActiveCell.FormulaR1C1 = "=(R[-3]C2)*2-R[-6]C2" Range("C8").Select Selection.AutoFill Destination:=Range("C8:C13"), Type:=xlFillDefault Range("C8:C13").Select Range("A10").Select Selection.AutoFill Destination:=Range("A10:A13"), Type:=xlFillDefault Range("A10:A13").Select Range("A2:C13").Select ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlLineMarkers ActiveChart.SetSourceData Source:=Range("'table-19'!$A$2:$C$13") End Sub