Application defined or object defined error

[dpaton05]

I have a procedure that runs

Sub Western_header_footer()
Dim printWorksheet As Worksheet, logoShape As Shape, tempImageFile As String
Dim footshape As Shape, ACAWorksheet As Worksheet

        'The worksheet on which the print page setup will apply
        Set printWorksheet = ThisWorkbook.Worksheets("CSS_quote_sheet")
        'Set ACAWorksheet = ThisWorkbook.Worksheets("ACA_Quoting")
        'The sheet location and name of shape to be used in page setup
            
        Set logoShape = ThisWorkbook.Worksheets("sheet2").Shapes("ImgWestHeader")
        Set footshape = ThisWorkbook.Worksheets("sheet2").Shapes("ImgWestFooter")

        'Save the shape as a temporary image
        tempImageFile = Environ("temp") & "\image.jpg"
        Save_Object_As_Picture logoShape, tempImageFile
            With printWorksheet.PageSetup
                .CenterHeaderPicture.fileName = tempImageFile
                .CenterHeader = "&G"
            End With
        Kill tempImageFile
        
        tempImageFile = Environ("temp") & "\image.jpg"
        Save_Object_As_Picture footshape, tempImageFile
            With printWorksheet.PageSetup
                .CenterFooterPicture.fileName = tempImageFile
                .CenterFooter = "&G"
            End With
        Kill tempImageFile
    Worksheets("CSS_quote_sheet").Activate
    Range("B7").Value = "AngW"
End Sub

and when it gets to the save_object_as_picture procedure, the following will run,

Private Sub Save_Object_As_Picture(saveObject As Object, imageFileName As String)

    Dim temporaryChart As ChartObject
    Application.ScreenUpdating = False
    saveObject.CopyPicture xlScreen, xlPicture
    Set temporaryChart = ActiveSheet.ChartObjects.Add(0, 0, saveObject.Width + 1, saveObject.Height + 1)
    With temporaryChart
        .Activate
        .border.LineStyle = xlLineStyleNone      'No border
        .Chart.Paste
        .Chart.Export imageFileName
        .Delete
    End With
    Application.ScreenUpdating = True
    Set temporaryChart = Nothing
End Sub

but the code will halt on the following line

Set temporaryChart = ActiveSheet.ChartObjects.Add(0, 0, saveObject.Width + 1, saveObject.Height + 1)

The procedure copies a picture from sheet2 and puts it at the top of CSS_quote_sheet.

It used to work and I am not sure why it now gives me an application defined or object defined error.

Can someone help me please?

 

[sijpie]

Have you tried debugging?
When the code halts press on the debug button, to take you to the VBA.
Now use your mouse to hover over saveObject.Width. It should tell you the value. same for .Height

Now hover over Activesheet. It will probably say 'Object defined error'
Press Ctrl+G to go to the direct window
type: ?activesheet.name
press return. The name of the activesheet should appear below the line