Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como criar um arqui...
 
Notifications
Clear all

Como criar um arquivo jpg a partir de uma imagem na planilha

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
1,269 Visualizações
RSS
 anderdiniz
(@anderdiniz)
Posts: 20
Eminent Member
Topic starter
 

Tenho uma imagem na planilha2, mas não tenho o arquivo dessa imagem, pois ela é uma parte de outra planilha que foi transformada em imagem.
Preciso que essa imagem seja transformada em um arquivo .jpg

A imagem foi criada desta forma:

https://www.youtube.com/watch?v=XDbOLXW2k2o

O código abaixo não deu certo:

Sub EXPORTARIMAGEM()


Dim img As Shape
    Dim CAMINHO As String

    ThisWorkbook.Sheets("Planilha2").Select
    Set img = ThisWorkbook.Sheets("Planilha2").Shapes.item("MINHAIMG2")

    CAMINHO = ThisWorkbook.Path & Application.PathSeparator & "ARQ99" & ".jpg"
   On Error Resume Next
   Kill CAMINHO
    img.Export CAMINHO
    
    frmAnalise.Image8.Picture = LoadPicture(CAMINHO)
    frmAnalise.Image8.PictureSizeMode = fmPictureSizeModeStretch
    
    
    
End Sub

O que eu preciso mesmo é colocar uma parte da planilha dentro de um controle Image no formulário.

 
Postado : 05/11/2017 10:57 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu não sei se entendi...

Você tem um objeto imagem em uma guia de planilha, deseja exportar essa imagem?

Sub AleVBA_26478()
'Fonte: https://pt.stackoverflow.com/questions/111185/salvar-uma-imagem-colada-em-planilha-excel-por-meio-do-vba
Dim oImage As Shape
Dim oSheet As Worksheet
Dim oTemp As ChartObject
Dim oChartArea As Chart

Set oSheet = ActiveSheet
Set oImage = oSheet.Shapes.Item("Imagem 1") 'Altere Nome da imagem

oImage.CopyPicture

Set oTemp = oSheet.ChartObjects.Add(0, 0, oImage.Width, oImage.Height)
Set oChartArea = oTemp.Chart
oTemp.Activate
With oChartArea
    .ChartArea.Select
    .Paste
    .Export ("C:TempTeste.jpg")
End With
oTemp.Delete
End Sub

Att

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

 
Postado : 06/11/2017 6:50 am
Forum Jump:
  Tópico Anterior
Próximo Tópico