Dar print da tela o userform e enviar por e-mail

[AdmiltonAlves]

boa tarde.

estou com problema nessa rotina.

1º esta abrindo o outllok e copiando a tela do userform mas em branco sem os dados.

2º a ela copiada para o outlook esta pequena, gostaria que fosse no tamanho original.

3º coloquei o e-mail em branco, mas gostaria do comando para buscar direto na textbox

rotina abaixo.

Private Sub CommandButton1_Click()
  Dim cob As Excel.ChartObject
  Dim wks As Excel.Worksheet
  Dim shp As Excel.Shape
  Dim cht As Excel.Chart
  Dim objOutlook As Object 'Outlook.Application
  Dim objMailItem As Object 'Outlook.MailItem
  Dim strImagePath As String
  
  strImagePath = Environ("temp") & "\benzatemp.png"

  Application.SendKeys "(%{1068})", True
  DoEvents
  Application.Wait Now + TimeSerial(0, 0, 1)
  
  Application.ScreenUpdating = False
  Unload Me
  Set wks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
  wks.Paste
  Set shp = wks.Shapes(1)
  Set cht = wks.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
  cht.Paste
  cht.Export strImagePath, "png"
  wks.Parent.Close SaveChanges:=False
  Application.ScreenUpdating = True
  
  Set objOutlook = CreateObject("Outlook.Application")
  Set objMailItem = objOutlook.CreateItem(0)
  With objMailItem
    .HTMLBody = "<img src='" & strImagePath & "' />"
    .To = ""
    .Subject = "Cotação de preço"
    .CC = ""
    .Display
  End With
  
  Kill strImagePath
End Sub