So the Problem I have is: an Excel Range copy as picture is not staying larger in the email that sends – like outlook is doing some auto resize while sending. See below code and wondering what I can change or turn off to allow this automation to work

Sub myemailSender()
        'Email Set up
        Email_Subject = "my_subject"
        Email_Send_To = "my_email"
        
        Set Mail_Object = CreateObject("Outlook.Application")
        Set Mail_Single = Mail_Object.CreateItem(0)
        
        With Mail_Single
         .Subject = Email_Subject
         .To = Email_Send_To
         .Display
        End With
        
        Application.CutCopyMode = False
        Sheets("Mysheet").Calculate
        Range("MyCopyRange").Copy
        Range("MyCopyRange").CopyPicture xlScreen, xlBitmap
        
        Const wdInlineShapePicture = 3
        Set wrdDoc = Mail_Single.GetInspector.WordEditor
        wrdDoc.Range.PasteAndFormat wdChartPicture
        For Each wrdShp In wrdDoc.InlineShapes
            If wrdShp.Type = wdInlineShapePicture Then
                ' Increase the scale to make the image larger
                wrdShp.ScaleHeight = 150 ' Adjust this value as needed
                wrdShp.ScaleWidth = 150  ' Adjust this value as needed
            End If
        Next
        Mail_Single.Send
        Application.Calculation = xlAutomatic
End Sub