Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Specify Exact Location

Sub SpecifyExactLocation()     Dim WS As Worksheet     Set WS = Worksheets("Sheet1")     WS.Shapes.AddChart(xlColumnClustered, _         Left:=WS.range("C11").Left, _         Top:=WS.range("C11").Top, _         Width:=WS.range("C11:J11").Width, _         Height:=WS.range("C11:C30").Height).Select     ActiveChart.SetSourceData Source:=WS.range("A1:E4") End Sub