below code (courtesy by Brad (byundt) from EE) exports all charts of the active sheet to a specific folder "C:\Temp\Test Folder\.
I wonder whether it is possible to export the graphics into the same folder as the excel file?
So, if the excel (charts) file resides in folder: C\MyChartFile\TestFolder\.
.., the macro - when activated - has to retrieve the path information and export the charts to that folder.
Help is much appreciated.
Thank you very much in advance.
Dim oCht As ChartObject
Dim flPath As String, fName As String
Dim i As Long
flPath = "C:\Temp\Test Folder\" 'Put files in this folder
For Each oCht In ActiveSheet.ChartObjects
i = i + 1
fName = flPath & "nameofpicture" & i & ".jpg"
oCht.Chart.Export Filename:=fName, FilterName:="jpg"