Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

To position the title, set its Top property (specifying the number of points from the top edge of the worksheet) and its Left proper

Sub source()     Dim myChartObject As ChartObject     Set myChartObject = ActiveSheet.ChartObjects.Add(Left:=200, Top:=200, _         Width:=400, Height:=300)          myChartObject.Chart.SetSourceData Source:= _         ActiveWorkbook.Sheets("Chart Data").Range("A1:E5")          myChartObject.SeriesCollection.Add Source:=ActiveSheet.Range("C4:K4"), Rowcol:=xlRows     myChartObject.SeriesCollection.NewSeries     myChartObject.HasTitle = True     With myChartObject.ChartTitle         .Top = 100         .Left = 150     End With End Sub