title: How to resize a picture copied from Excel to Outlook?
body: <p>This is my VBA to copy a picture from Excel to Outlook. It comes out very blurry and it is very small.</p>
  <p>How can I resize it?</p>
  <pre class="lang-vb prettyprint-override"><code>    Dim MailSelection As Object
      ThisWorkbook.Sheets(&quot;Email Sheet&quot;).Select
      Sheets(&quot;Email Sheet&quot;).Range(&quot;A1:AP60&quot;).CopyPicture xlScreen, xlPicture
      Set OutlookApp = CreateObject(&quot;Outlook.Application&quot;)
      Set MailSelection = OutlookApp.CreateItem(0)
      With MailSelection
          .To = &quot;TPrs@t-mobile.com; TPes@T.com; TPACam@t.com; Ni.Joh@T.com; Taam@T.com;&quot;
          .SentOnBehalfOfName = &quot;TPACCResourcePlanningTeam@t-mobile.com&quot;
          .Subject = &quot;Hourly Handle Time and Shrinkage&quot;
          .HTMLBody = &quot;&lt;html&gt;&lt;center&gt;&lt;FONT COLOR=&quot;&quot;FFFFFF&quot;&quot;&gt;.&lt;/FONT&gt;&lt;/center&gt; 
  &lt;/html&gt;&quot;
          .Recipients.ResolveAll
          .Attachments.Add (&quot;N:\MACRO AND REPORTS\OFFICIAL REPORTS\Same Day CRT &amp; 
  Shrinkage Tampa TEST.xlsb&quot;)
          .Display
  'Wait for email to be created
          Application.Wait Now + TimeValue(&quot;00:00:01&quot;)
  'Paste range at bottom of email
          SendKeys &quot;^({v})&quot;, True
          Application.Wait Now + TimeValue(&quot;00:00:01&quot;)
          SendKeys &quot;{END}{ENTER}{ENTER}{ENTER}&quot;, True
      End With
      'Get excel range to copy into email as picture
  
  End Sub
  </code></pre>