none
salvar Userform como IMAGEM RRS feed

  • Pergunta

  • 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

    quarta-feira, 7 de setembro de 2016 20:07

Todas as Respostas

  • 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


    quarta-feira, 7 de setembro de 2016 23:42
  • 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.

    quinta-feira, 8 de setembro de 2016 00:56
  • 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

    quinta-feira, 8 de setembro de 2016 01:44