EXCEL - Copiar e Colar no MS Paint

[Diogo Valentim]

Boa tarde, a todos!

Estou com uma pequena dificuldade em encontrar um código VBA que funcione.

Preciso copiar um grafico do excel, jogar essa foto do clipboard no MS Paint, copiar tudo do paint e fechar o paint.

Segue Flow:

Copiar intervalos de celula B2:E26;

Abrir MS Paint;

Colar imagem;

Selecionar Tudo;

Copiar;

Fechar MS Paint.

Estou tentando as funções:

ScreenCapture Shell "mspaint.exe", vbMaximizedFocus

ou código:

Shell Chr(34) & "C:\Windows\System32\mspaint.exe" & Chr(34) & " " & _

Chr(34) & sFileFullPathAndName & Chr(34), 1

tambem:

RetVal = Shell("C:\Windows\System32\mspaint.exe " & fullpath,

vbMaximizedFocus)

Por último tentei o básico:

Shell "mspaint.exe"

SendKeys "^V"

SendKeys "^A"

SendKeys "^C"

Mas nada funciona, estou usando Excel 2010.