Advertisement
Guest User

Untitled

a guest
Oct 31st, 2014
160
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.14 KB | None | 0 0
  1. ActiveSheet.Shapes.AddChart.Select
  2. ActiveChart.SetSourceData Source:=Range("A1:D3")
  3. ActiveChart.ApplyDataLabels
  4. ActiveChart.ChartType = xlLine
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement