Save as picture... in excel VBA

[amaresh achar]

Hi...

I have a circle and rectangle shape (grouped together) in Sheet2.

I want to save that entire group as single picture ***.jpg file (using VBA code)

Can anyone please help me with this...??

Version: Office 365 16.0.16130.20306
Windows 10

 

[davesexcel]

One would think it was simple but it requires a couple steps.

You need to copy and paste it into a chart then save the chart.

Sub Save_Pic()
Dim shp As Shape, flnm As String
Set shp = ActiveSheet.Shapes("MyGroupShape")

flnm = "C:\Users\---\Pictures\MyGroupShape.jpg" ' your file name
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
Set chrt = ActiveSheet.ChartObjects(1)
With shp
chrt.Width = .Width
chrt.Height = .Height
.CopyPicture
End With
ActiveChart.Paste
chrt.Chart.Export Filename:=flnm
chrt.Delete
End Sub

I have a named group in sheet1,

 

[amaresh achar]

One would think it was simple but it requires a couple steps.

You need to copy and paste it into a chart then save the chart.

Sub Save_Pic()
Dim shp As Shape, flnm As String
Set shp = ActiveSheet.Shapes("MyGroupShape")

flnm = "C:\Users\---\Pictures\MyGroupShape.jpg" ' your file name
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
Set chrt = ActiveSheet.ChartObjects(1)
With shp
chrt.Width = .Width
chrt.Height = .Height
.CopyPicture
End With
ActiveChart.Paste
chrt.Chart.Export Filename:=flnm
chrt.Delete
End Sub

I have a named group in sheet1,

View attachment 93031

Thanks for your response Sir... Yes I previously tried these options, but the image file saved with this technique has very lower resolution (around 90dpi)

But the MS Excel from latest office 365 offers an option to save a shape or group of shapes just by Right click ---> Save Picture As... and save it in any convenient formats...(at 330 dpi) any idea about how to use that option?

 

[NdNoviceHlp]

HTH. Dave

Excel - Picture Place In Cell - Episode 2606

Microsoft Excel Tutorial - new feature to place a picture in a cell in Excel. Can the Excel IMAGE function use a local hard drive? Not yet. New Excel VBA method: InsertPictureInCell Insert Many Pictures in Excel in one command. Feature Requests: Expose a VBA property to show original source of...

www.mrexcel.com