Excel vba - ajustar imagem automaticamente no intervalo

[RAIMUNDO LIMA DE ARAUJO]

Olá, boa tarde!
Diariamente eu printo a tela do sistema e colo nesse intervalo C18 Á N21, porém, gostaria de saber, se é possível, ao colar a imagem (CTRL+V), o codigo ajusta-se automaticamente a imagem nesse intervalo. 

é possível? Alguém pode me ajudar? 

Outro problema que eu tenho é quando tem alteração de algum volume, eu tenho que tirar de novo um novo print e colar nesse intervalo. Esse acompanhamento de carregamento é por motorista. 

 

 

teste.rar

[Basole]

É possível. Copie a imagen do print e selecione a celula "C18" que automaticamente a macro cola (CTRL+V) e ajusta a imagem a janela 

 

Cole o codigo no modulo da respectiva planilha(aba) 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$C$18" Then
On Error GoTo ER
   Excel.Application.EnableEvents = False
        Excel.Application.CutCopyMode = False
        ActiveSheet.Paste
        Selection.ShapeRange.LockAspectRatio = False
        Selection.ShapeRange.Top = (Target.Top - 6)
        Selection.ShapeRange.Left = (Target.Left - 1)
        Selection.ShapeRange.Width = Target.Resize(, 12).Width
        Selection.ShapeRange.Height = Target.Resize(5).Height - 3
ER:
    Excel.Application.EnableEvents = True
End If
End Sub

 

[RAIMUNDO LIMA DE ARAUJO]

Obrigado!