I've been using Notes 9 with Windows 7 and Office 2013 to paste an Excel range into the email body of a notes message as a JPEG image,

Since upgrading to Windows 10 with Office 2016 (still on Notes 9) this no longer works as intended. The image pasted into the email body is now blank.

         If Copy_and_Paste Then
             embedCells.CopyPicture xlBitmap
             .Paste
             Application.CutCopyMode = False
         Else
             Save_Object_As_JPG embedCells, tempCellsJPG
             .Import "JPEG Image", tempCellsJPG
             Kill tempCellsJPG
         End If

 Private Sub Save_Object_As_JPG(saveObject As Object, JPGfileName As String)
 
     'Save a picture of an object as a JPG/JPEG file
     
     'Arguments
     'saveObject     - any object in the CopyPicture method's 'Applies To' list, for example a Range or Shape
     'JPGfileName    - the file name (including folder path if required) to save the picture as
     
     Dim temporaryChart As ChartObject
      
     Application.ScreenUpdating = False
     
     saveObject.CopyPicture xlScreen, xlPicture
     
     Set temporaryChart = ActiveSheet.ChartObjects.Add(0, 0, saveObject.Width, saveObject.Height)
     With temporaryChart
         .Border.LineStyle = xlLineStyleNone      'No border
         .Chart.Paste
         .Chart.Export JPGfileName
         .Delete
     End With
     
     Application.ScreenUpdating = True
     
     Set temporaryChart = Nothing
     
 End Sub