Retrieve current path and save file there

Dear Experts:

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.

Regards, Andreas
Sub ChartExporter()  
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"  
    Next  
End Sub

Open in new window

Andreas HermleTeam leaderAsked:
Who is Participating?
 
raysonleeConnect With a Mentor Commented:
flPath = ActiveWorkbook.Path
0
 
Andreas HermleTeam leaderAuthor Commented:
great, that did the trick.

Thank you very much for your great help. Regards, Andreas
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.