Excelde sayfa görüntüsünü resim olarak alma

[nakinen]

Aşağıda vermiş olduğum makro, sayfa görüntüsünü resim olarak belgelerim klasörüne kopyalıyor.
Yalnız problem şu ki Office 2013'te çalışan makro, 2016 versiyonda boş bir resim dosyası oluşturuyor. bu kodları 2016 ya uyarlamak mı gerekiyor? yoksa excelde herhangi bir ayarmı yapmak gerekiyor?

Sub foto()
      Dim obce As Object
      Dim caart As Chart
      Dim jipeg As Range
      Dim alertTime
      ActiveSheet.Select
      ActiveWindow.DisplayGridlines = False      'Kılavuz çizgilerini kapatır.
      Set jipeg = ActiveSheet.UsedRange
      jipeg.Copy
      Set obce = ActiveSheet.Shapes.AddShape(1, 1, 1, 1, 1)
      obce.Select
      ActiveSheet.Paste
      obce.Delete
      With Selection
          .CopyPicture 1, 2
          Set caart = ActiveSheet.ChartObjects.Add(1, 1, .Width, .Height).Chart
      With caart
          .Paste
          .Export ActiveSheet.Name & ".jpg" 'nereye çıkartılacaksa
          .Parent.Delete
      End With
      .Delete
      End With
      Set jipeg = Nothing
      Set obce = Nothing
      ActiveWindow.DisplayGridlines = True      'Kılavuz çizgilerini açar.
    End Sub