geospatial
Active Member
- Joined
- Sep 2, 2008
- Messages
- 290
I currently have a macro that will export all the charts i have on a worksheet. At this time it is only one worksheet at a time.
The code I have is
Sub create_jpeg()
Application.Screenupdating = False
Dim mychart As Chart
Set my chart = ActiveSheet.ChartObjects(1).Chart
mychart.Export Filename:="T:\CEHC\Intel\mychart.jpg", Filtername:="JPG"
End Sub
Is there a way to bring a popup window to allow the user to select save location and filename?
The code I have is
Sub create_jpeg()
Application.Screenupdating = False
Dim mychart As Chart
Set my chart = ActiveSheet.ChartObjects(1).Chart
mychart.Export Filename:="T:\CEHC\Intel\mychart.jpg", Filtername:="JPG"
End Sub
Is there a way to bring a popup window to allow the user to select save location and filename?