Saving Embedded Picture From Excel Workbook Sheet To Folder Hard Drive

[littleiitin]

Sub ExportImageinExceltoADrive(strsheetName As String, strPicName As String, strPathtoSavewithImageName As String)

Dim chtTempChart As ChartObject

With ThisWorkbook.Worksheets(strsheetName)
Set chtTempChart = .ChartObjects.Add(500, 500, 500, 350)
With chtTempChart.Chart
.ChartType = xlLine
.Location Where:=xlLocationAsObject, Name:=strsheetName
.HasLegend = False
End With
.Shapes(strPicName).Copy
chtTempChart.Activate
chtTempChart.Chart.Paste
chtTempChart.Chart.Export Filename:=strPathtoSavewithImageName, FilterName:="jpeg"
chtTempChart.Delete
End With
End Sub


Below is Example How to Use:



Sub ExportExample()

Dim strPath As String
Dim strSheet As String
Dim strPicName As String

'========Sheet Name where Image is==========================================
strSheet = "3333"
'================================================= ==========================

'=======Image Name============================================== ============
strPicName = "Picture 10"
'================================================= ==========================

'=======Path where you want to Save this Image with Image Name==============
'==============You can write any name in Place of "Background-16"===========

strPath = "K:\ExcelFox\Background-16.jpg"
'================================================= ==========================

Call ExportImageinExceltoADrive(strSheet, strPicName, strPath)
End Sub