VBA Exporting sheet range as image sometimes gives blank image

[Jack113256]

Hi, im trying to export the sheet as an image but theres a small chance that the output jpg file will be blank.
Is it a timing issue or something? Ive tried putting delays after exporting the image but the error still occurs sometimes.

For your info, The sheet that contains this range is not empty and contains a chart,

    ws.Activate

    Dim rng As Range
    Set rng = Range("A1:Q25")
    rng.CopyPicture xlScreen, xlPicture

    Set oCht = ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=rng.Width, Height:=rng.Height)
    oCht.Activate
    With oCht.Chart
        .Paste
        .Export fileName:=picPathJpg, Filtername:="JPG"
    End With
  
    wb.Close SaveChanges:=False

 

[NdNoviceHlp]

Hi Jack and Welcome to the Board! I'm not that sure that this code is much different but U can try it out and see if it helps. Dave

Application.ScreenUpdating = False
ws.Activate
Dim rng As Range
Set rng = ws.Range("A1:Q25")
rng.CopyPicture ' xlScreen, xlPicture
With ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=rng.Width, Height:=rng.Height)
.Activate
.Chart.Paste
.Chart.Export Filename:=picPathJpg, Filtername:="JPG"
End With
Application.ScreenUpdating = True
wb.Close SaveChanges:=False

 

[Jack113256]

Hi Jack and Welcome to the Board! I'm not that sure that this code is much different but U can try it out and see if it helps. Dave

Application.ScreenUpdating = False
ws.Activate
Dim rng As Range
Set rng = ws.Range("A1:Q25")
rng.CopyPicture ' xlScreen, xlPicture
With ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=rng.Width, Height:=rng.Height)
.Activate
.Chart.Paste
.Chart.Export Filename:=picPathJpg, Filtername:="JPG"
End With
Application.ScreenUpdating = True
wb.Close SaveChanges:=False

Ok i'll try, thanks.