Excel ajustar intervalos codigo vba

[RAIMUNDO LIMA DE ARAUJO]

Prezados, bom dia. 

 

Estou usando o codigo abaixo para enviar e-mail e copiar imagem da planilha localizamos a ultima linha preenchida, porém, gostaria de mudar, copiar apenas um intervalo dela. Que seria o intervalo print B1 A L11

 

Sub Enviar_ORDEM()

Dim WH      As Worksheet
Dim OutProg As Object
Dim OutMail As Object
Dim OutApp  As Object

Set WH = Planilha1 ' PRINT QUE VAI NO E-MAIL PARA COLAR TGL01
Set OutProg = CreateObject("Outlook.Application")
Set OutMail = OutProg.CreateItem(0)

Application.ScreenUpdating = False

WH.Select

Application.ScreenUpdating = True

Application.DisplayAlerts = False

Set WH = Planilha5 ' ONDE PEGA OS E-MAIL PARA ENVIAR CONFIGURAAO EMAIL

Dim Anexo   As String

'Anexo = ThisWorkbook.Path ' NOME DO ARQUIVO PARA ANEXAR
'Anexo = Anexo & "\" & "ORDEM DE CARREGAMENTO.xlsm"

Anexo = MaisRecentArq(ThisWorkbook.Path & "\")
    
With OutMail
    .Display
    .To = WH.Range("D10").Value 'Para
    .CC = WH.Range("D12").Value 'Copia
    .Subject = WH.Range("D14").Value ' Assunto
    .bcc = "[email protected]"
    .Attachments.Add Anexo
    .Body = WH.Range("D16").Value ' Corpo e-mail
    '.Send
    
End With

Application.DisplayAlerts = True

Set OutMail = Nothing
Set OutApp = Nothing
Set OutProg = Nothing

Set WH = Planilha1 ' INFORMATIVO



'o codigo abaixo, seleciona a ultima linha preenchida e dá print para ser enviado e-mail. 

Se possível, mudar o intervalo print B1 A L11
WH.Range("B1:L" & Cells(Rows.Count, "L").End(xlUp).Row).Select ' usamos a coluna E para localizar a ultima linha preenchida
   
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    WH.Range("A1").Select

    ' Salva pasta de trabalho
    
End Sub

 

[OreiaG]

Substitua esta linha >>>

WH.Range("B1:L" & Cells(Rows.Count, "L").End(xlUp).Row).Select

 

por esta >>>

WH.Range("B1:L11").Select

 

[RAIMUNDO LIMA DE ARAUJO]

@OreiaG

quando eu colo a imagem desse intevalo no e-mail ela fica muito grande, é possível diminuir?

 

 

WH.Range("B1:L11").Select

 

Ah! fiz esse teste codigo acima deu certo, obrigado 

Boa tarde, 

 

 

 

Obrigado!