[Excel 2003] .Location of a chart

[Siddharth Rout]

31 is correct

Can I see the exact code that you are trying to use?

[Ecniv]

        Set cht = objExcel.Charts.Add
        With cht
            
            .ChartType = IIf(blnLines, 65, 51) 'xlLineMarkers,xlColumnClustered
            .SetSourceData Source:=sht.Range(sht.cells(lngStartRow, 1), sht.cells(lngRowOP, lngMaxCol + 1)), PlotBy:=1 'xlRows
            If .SeriesCollection.Count > 1 Then
                .SeriesCollection(1).Delete
            End If 'since the days are numbers it considers it data hence adds a line - the code above removes that series...
            Set rng = sht.Range(sht.cells(lngStartRow, 2), sht.cells(lngStartRow, lngMaxCol + 1))
            For lngLoop = 1 To cht.SeriesCollection.Count
                .SeriesCollection(lngLoop).XValues = "='" & sht.Name & "'!" & rng.Address(referencestyle:=-4150)  'xlr1c1
            Next
            
            .HasTitle = True
            .ChartTitle.Characters.Text = strBrand & " - Daily " & strTitle & " (from " & IIf(blnUseLastUpdated, "last updated", "created") & ")"
            .Axes(xlCategory, xlPrimary).HasTitle = True
            .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Date"
            .Axes(xlValue, xlPrimary).HasTitle = True
            .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Number of " & strYAxis
        
            .HasLegend = True
            .Legend.Position = IIf(blnLegendBottom, -4107, xlRight) 'xlbottom
            .HasDataTable = False
        
        
    '---- last thing - change the chart to an object!
            .Location WHERE:=2, Name:=sht.Name 'xlLocationAsObject
        End With

Something like that above
Name of the sheet shouldn't matter, just that it was 31 chars...