Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Imagem de planilha ...
 
Notifications
Clear all

Imagem de planilha dentro do userform

 
2024 - VBA & Macros
Post Recente por jpirriga 8 anos atrás
3 Posts
2 Usuários
0 Reactions
1,460 Visualizações
RSS
 jpirriga
(@jpirriga)
Posts: 3
New Member
Topic starter
 

Boa tarde a todos!

Mais uma vez venho recorrer a ajuda de vocês.

Pretendo colocar a imagem de um determinado intervalo de celular de uma planilha dentro de um formulário (userform) usando a ferramenta "image1" ou alguma outra opção.

Por exemplo:

o Intervalo ("E4:I20") apareceria dentro do formulário, mantendo a formatação da planilha, como se eu colocasse uma foto do intervalo das células dentro da ferramenta imagem do userform.

Achei um código na net mais não consegui usar
segue o link que conte o tutorial:
https://excelmaniacos.com/2015/06/30/vb ... -userform/

Quando tendo rodar o código aparece o erro :
"ERRO EM TEMPO DE EXECUÇÃO 438"
"O OBJETO NÃO ACEITA ESTA PROPRIEDADE OU MÉTODO"

E destaca esta linha:
ThisWorkbook.Worksheets(1).ChartObjects(1).Chart.CopyPicture xlScreen, xlPicture, xlScreen

Espero sugestões

 
Postado : 06/10/2016 11:33 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Supondo que copiou a rotina e colocou em um Módulo separado, supondo que habilitou a Referência "OLE Automation" e que no seu formulário adicionou o Controle "Image1", e supondo que sua aba tem o nome de "Plan1", é só utilizar a rotina abaixo onde trocamos a linha que se refere a um Grafico e não intervalo :

Private Sub UserForm_Initialize()
   
   'Troque esta linha
   'ThisWorkbook.Worksheets(1).ChartObjects(1).Chart.CopyPicture xlScreen, xlPicture, xlScreen
    
    'por esta e ajuste o nome da aba
    Worksheets("Plan1").Range("E4:I20").CopyPicture

    Set Me.Image1.Picture = PastePicture
    
End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/10/2016 12:33 pm
 jpirriga
(@jpirriga)
Posts: 3
New Member
Topic starter
 

Mauro, boa tarde.

Muito Obrigado pela ajuda, perfeito.

Sou novo no vba ainda.

Grato

 
Postado : 06/10/2016 1:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico