Excel macro e seleção vba

[djacy.neto]

pessoal, tenho uma macro que faz envio de conteúdo da planilha por e-mail,

ela seleciona os dados, copia e cola como imagem no e-mail para envio.

funciona perfeitamente. mas como não entendo muito sobre a sintaxe e prog em VBA eu não consigo mexer no código...

 

o que acontece é que eu fiz uma macro gigante  e coloquei para fazer vários envios apenas replicando o código para cada seleção,

em alguns casos ele estoura a altura da linha ou largura da coluna excessivamente e sem necessidade,

em outros casos o range selecionado tem alguma imagem que não é enviada junto ao conteúdo.

abaixo o script:

Sub NOVA()
   Sheets("CALLCENTER").Select
   ActiveSheet.Range("C1:S74").Select
 Application.CutCopyMode = False
   Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
        
   ActiveWorkbook.EnvelopeVisible = True
  
   With ActiveSheet.MailEnvelope
      .Introduction = ("Bom dia" + vbCrLf + "Segue quadro atualizado. ")
      .Item.To = "[email protected]"
      .Item.Subject = "TESTE DE ENVIO"
      .Item.Send
   End With
End Sub

 

[R0DR1G0_CWB]

Boa tarde,

 

Compartilhe conosco essa planilha com dados fictícios para conseguirmos te dar uma ajuda mais assertiva.

[djacy.neto]

@R0DR1G0_CWB certo, exemplo em anexo,

 

quando executo a macro no email a imagem do que deve ser o painel altera os tamanhos das celulas,

e da p notar nos campos ranking equipes. e nem sempre as imagems de dentro da seleção sao enviadas,

nao sei se eu preciso determinar o tamanho da imagem no email ou o que acontece.

exemplo_01.zip

[R0DR1G0_CWB]

Bom dia,

 

Fiz algumas simulações e não consegui repetir o erro mencionado.

[djacy.neto]

fiz o teste aqui, para mandar print mais também ocorreu bem.

eu tenho uma duvida, se eu quiser por exemplo mandar sempre em cima do mesmo e-mail eu consigo?

exemplo

 

dia 6-7-2020 email enviado

dia 7-7-2020 email enviado em cima do email do dia 6