Dados planilha dentro de um objeto image.(RESOLVIDO)

[pasedo]

Bom dia pessoal, estou tentando aqui como fazer para estes dados da planilha que esta da celula "B8 a C24 para aparecer neste objeto image em forma de imagem dentro do Multipage1 na aba recibo . Podem me ajudar? Tem com fazer isso? Grato.

[srobles]

Pasedo,

Não sei seria a melhor maneira, mas vou tentar dar um palpite.

Substitua todo o código contido no módulo1 pelo código que deixo abaixo :

Código: Selecionar todos

Sub FORM()
    Load UserForm1
        Call exportaRangeImagem
    UserForm1.Show
End Sub

Sub exportaRangeImagem()
    Dim novaImagem As Chart
    Dim meuRange As Range
    Dim nomeImagem As String
    
    With ThisWorkbook.Sheets("RECIBO")
        
        Set meuRange = Range("B12:E28")
        
        meuRange.CopyPicture xlScreen, xlPicture
        
        Application.DisplayAlerts = False
        
        Set novaImagem = Charts.Add
        
        nomeImagem = ThisWorkbook.Path & "\recibo_" & Format(Now, "DD.MM.YYYY" & "_" & "hh.mm") & ".jpg"
        
        With novaImagem
            .Activate
            .Paste
            
            ActiveChart.Shapes.Range(Array("chart")).Select
            Selection.ShapeRange.ScaleWidth 1.8543692404, msoFalse, msoScaleFromTopLeft
            Selection.ShapeRange.ScaleHeight 1.172713255, msoFalse, msoScaleFromTopLeft
            
            .Export nomeImagem, "JPG"
            
            With UserForm1.Image1
                .Picture = LoadPicture(nomeImagem)
            End With
            
            .Delete
        End With
        'Kill nomeImagem
    End With
End Sub

Espero ter ajudado.

Abs

[pasedo]

srobles, perfeito, muito obrigado.

[pasedo]

srobles, perfeito, muito obrigado.