Creating an image directory using a macro

Sorry use this file as i have already added the Command Button where i wanted it to be able to save the image if even possible.

Thank you for your response sir. This works ideally but it seems to only have a one time use. If i select 2 objects to plot and then click save image it lets me name the file for example "testpic.jpg" and converts it to a view able image. This is exactly what i need but if i go to load select another option to plot from the drop down boxes it throws an error in the new code written here highlighted below.

If Not mMyChart Is Nothing Then
' remove existing reference
mMyChart.Delete
End If

Range("T1").Select ' Default Cell Highlight

Dim MyChart As Chart
Dim ChartData As Range
Dim ChartName As String


I need it to be able to load multiple plots against each other and then be able to save whichever image i choose. I would also like for each image loaded to have a unique name already when i go to save so i can modify if needed. Example: If i plotted "Inclination" vs. "TGF" then when i go to save instead of having to give the image a name that it already provides one for me like so Inclination_TGF_8212015_150103. So its the 2 plots labeled then the date and then the time and this would change with the different items that are loaded on the charts. Something to that nature would be great but the main thing is being able to load multiple charts and saving them without messing up the functionality of things as they are already.

Yes that fixed the main thing i needed. Now what can i do about having the unique name of the 2 charts when saving the image? Is it in this code that i need to change?

Private Sub CommandButton1_Click()

Dim ExportFilename As Variant

If mMyChart Is Nothing Then
MsgBox "No current chart to export", vbExclamation
Else
ExportFilename = ThisWorkbook.Path & Application.PathSeparator & ComboBox2.Value & "_" & ComboBox1.Value & "_" & Format(Date, "ddmmyyyy") & ".jpg"
ExportFilename = Application.GetSaveAsFilename(ExportFilename)
If ExportFilename = False Then Exit Sub

mMyChart.Export Filename:=ExportFilename
End If

I cant even get it to show the date prior to choosing where i want it saved much less adding the time stamp. The above code just show blank when i go to save and i have to type the name of the file and the extension.

Please Login or Register  to view this content.

Awesome this fixed the naming issue but why wont the extension .jpg carry over?

Please Login or Register  to view this content.

Yup that worked perfectly except the picture was blurry after saving but i changed the extension to .png and its a lot clearer now. Is there a way to make the chart bigger so you can see some distance between the plots?

Try this one.

Awesome!! That was just a little to big but i can adjust coding size as needed. Thank you Andy Pope & bakerman2 for helping me along the way with this!!!

You're welcome and thanks for the rep