If there’s an unprotected active sheet, that line of code ought to work.

Sub MainGraph(wanum As String)
‘
‘ Macro1 Macro
‘
Dim wsItem As Worksheet
Dim chtObj As ChartObject
Dim chrObj As Integer
For Each wsItem In ThisWorkbook.Worksheets

For Each chtObj In wsItem.ChartObjects

chtObj.Delete

Next

Next

Set chtObj = ActiveSheet.ChartObjects.Add(Left:=250, Width:=700, Top:=170, Height:=400)

With chtObj.Chart
‘ remove extra series
Do Until .SeriesCollection.Count = 0
.SeriesCollection(1).Delete
Loop
End With
‘
chrObj = 1
‘Charts.Add

With chtObj.Chart
.ChartType = xlLine
.SeriesCollection.NewSeries.XValues = “=APChart.xls!ChartDates”

.SeriesCollection(1).Name = “Estimate”
.SeriesCollection(1).Values = “=APChart.xls!ChartFirmA”

.SeriesCollection.NewSeries.XValues = “=APChart.xls!ChartDates”

.SeriesCollection(2).Name = “Actuals”
.SeriesCollection(2).Values = “=APChart.xls!ChartFirmB”

.Location Where:=xlLocationAsObject, Name:=”NewAP”
.Parent.Name = “CHART” & chrObj
End With

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = “Estimate/Actuals ” & wanumb & Space(5) & “(As of ” & Date & “)”
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = “Years/Months”
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = “Hours”
End With
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
With Selection
.MarkerBackgroundColorIndex = 5
.MarkerForegroundColorIndex = 5
.MarkerStyle = xlDiamond
.Smooth = False
.MarkerSize = 6
.Shadow = False
End With

ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).ChartType = xlColumnClustered
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
End With

ActiveChart.ChartArea.Select
With Selection.Border
.Weight = 1
.LineStyle = -1
End With
Selection.Interior.ColorIndex = xlAutomatic
Sheets(“New787″).DrawingObjects(“CHART” & chrObj).RoundedCorners = False
Sheets(“New787″).DrawingObjects(“CHART” & chrObj).Shadow = False
ActiveChart.SeriesCollection(2).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
End With

ActiveSheet.ChartObjects(“CHART” & chrObj).Activate
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).Select
Selection.TickLabels.NumberFormat = “0″
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
‘Windows(“APChart.xls”).Activate
‘Range(“U40″).Select
ActiveSheet.Shapes(“CHART” & chrObj).Select
Selection.Locked = False
ActiveSheet.Protect
ActiveWindow.ScrollRow = 7
With ActiveChart
.Legend.Top = 5
.Legend.Left = 5
End With

‘Call ExportChart
‘ ActiveSheet.Shapes(“CHART” & chrObj).Select
Windows(“APChart.xls”).Activate
Range(“A3″).Select
End Sub

I inserted, moved, and resized a rectangle in Excel 2010 with the macro recorder on, and got this code:

Sub Macro2()
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 153.75, 63, 176.25, 63).Select
    Selection.ShapeRange.IncrementLeft 202.5
    Selection.ShapeRange.IncrementTop 89.25
    Selection.ShapeRange.ScaleWidth 0.4127659574, msoFalse, msoScaleFromBottomRight
End Sub

In general I prefer using explicit size and position statements:

With ActiveSheet.Shapes(1)
    .Left = 100
    .Top = 75
    .Width = 125
    .Height = 75
End With

In fact I’am currently using Excel 2010 and I have nothing recorded in my macro when, for exemple, I change dimensions of a rectangle . May be there’s an option to select when we work with shapes? Any ideas?

Microsoft had to rush at the end of the Office 2007 development cycle to prepare it for release, that they did not have resources to update the macro recorder for the brand new Office shapes. This affects charts too, since the pieces that comprise the charts are also new Office shapes.

Excel 2010 has a lot of the macro recorder goodies that Excel 2007 lacks.