Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Dados planilha dentro de um objeto image.(RESOLVIDO)
Dados planilha dentro de um objeto image.(RESOLVIDO)
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.
- Anexos
-
- TESTE.rar
- ARQUIVO ANEXADO
- (35.42 KiB) Baixado 216 vezes
Editado pela última vez por pasedo em Qui Jun 27, 2019 1:04 pm, em um total de 1 vez.
Re: Dados planilha dentro de um objeto image.
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 :
Espero ter ajudado.
Abs
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
Abs