Positioning a Chart

[kcatherine]

I cannot get this chart to position on the page where I want it to. It will not move to the left. I want the Chart to go across cells E4:K4 and the height to be from E4:E18.

Sub Charts()
Worksheets("Reports").Activate
ActiveSheet.Range("B6:C31").SpecialCells(xlCellTypeConstants).Select
Set myChart = ActiveSheet.Shapes.AddChart.Chart
myChart.ChartType = xlColumnStacked
myChart.HasLegend = False
myChart.HasTitle = True
myChart.ChartTitle.Text = "Employees By Pay Rate"
myChart.Location xlLocationAsObject, "Charts"
Worksheets("Charts").Activate
With ActiveChart.Parent
        .Top = Rows(4).Top
        .Width = Range("E4:K4").Width
        .Height = Range("E4:E18").Height
        .Left = Range("E4").Left
End With
End Sub

 

[RoryA]

Hi and welcome to the forum.

Try this:

Sub Charts()
Worksheets("Reports").Activate
ActiveSheet.Range("B6:C31").SpecialCells(xlCellTypeConstants).Select
Set myChart = Worksheets("Charts").Shapes.AddChart.Chart
myChart.ChartType = xlColumnStacked
myChart.HasLegend = False
myChart.HasTitle = True
myChart.ChartTitle.Text = "Employees By Pay Rate"

With myChart.Parent
        .Top = Rows(4).Top
        .Width = Range("E4:K4").Width
        .Height = Range("E4:E18").Height
        .Left = Range("E4").Left
End With
End Sub