VBA - PRINT DA TELA

MANDYLUCI 21/03/2013 11:37:59
#420861

Pessoal,

Estou fazendo uma macro que tira print da tela. Já fiz o código que tira o print da tela de mainframe e já funcionou, porém estou precisando dar um nome pra esta imagem e colocar ela em uma determinada célula do excel. Alguem sabe como fazer isso?

Segue o código do print abaixo.

Sub print_tela()

Dim wordapp As Object
Dim wrdDoc As Object
Dim Imagem As Object
Set wordapp = CreateObject([Ô]word.Application[Ô])

localidade = Plan1.Cells(6, 19)

caminho = [Ô]C:\Users\Public\Desktop\[Ô] & localidade & [Ô].edp[Ô]
Set objSAC = GetObject(caminho)


Set objcursor = objSAC.Screen


Set wrdDoc = wordapp.Documents.Add

objSAC.Visible = True


Application.Run ([Ô]temporizador_1[Ô])

Application.SendKeys [Ô](%{44})[Ô]
Application.Run ([Ô]MyDelayMacro[Ô])

Plan8.Paste


Application.Run ([Ô]temporizador_1[Ô])

End Sub