salvar Userform como IMAGEM

Question

Boa Tarde Pessoal,

Estou precisando tirar um print screen apenas de um objeto no formulário e salvar como imagem. Se não houver como ser apenas um objeto pode até ser o formulário todo, mas preciso salvar como IMAGEM. Por isso mesmo FORMPRINT não resolve meu problema.

Espero que alguém tenha alguma idéia.

Obrigada desde ja

Answer 1

Marcinha, boa noite!

O que você pode fazer é tirar um print da sua userform e depois colar essa imagem no própria Excel.

Segue código:

Private Sub CommandButton1_Click()

Application.SendKeys "(%{1068})", True

Application.Wait (TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1))

UserForm1.Hide

Range("B10").Select

SendKeys "^v"

End Sub

1 - Com o método SendKeys tiramos um print da tela;

2 - Usamos o método Wait apenas para garantir que o print terá tempo suficiente para printar a tela antes de fecharmos a Userform1;

3 - Selecionamos a célula B10, mas poderia ser qualquer uma, apenas para colarmos a imagem;

4 - Novamente com o método SendKeys, colamos a imagem no Excel.

Espero que tenha ajudado. Sei que dessa forma tiramos um print de toda a tela, mas acredito que já ajude um pouco.

Att

Answer 2

Obrigada Gustavo,

Mas não tem como printar apenas o USERFORM? Tipo quando apertamos ALT + PRINTSCREEN

Pois esse método tira o print da tela inteira.

Answer 3

Contribuindo:

O código sugerido já realiza o "ALT+PrintScreen" (o "ALT" é representado pelo "%"). Por favor verifique se o comportamento já não é o pretendido (lembre-se que o formulário deve estar em primeiro plano).

Testei aqui e deu certinho.

---

Filipe Magno