Сохранить текущий график в диаграмме пользовательской формы с помощью функции «сохранить как», связанной с командной кнопкой?

У меня есть пользовательская форма, которая позволяет мне вычислять значения и рисовать графики на основе этих значений. На этом этапе графики сохраняются на листе Excel. Пользовательская форма содержит диаграмму, которая позволяет отображать нарисованные мной графики. Кнопка прокрутки позволяет мне перемещаться между графиками на диаграмме. Например, если значение кнопки прокрутки равно 1, и я нарисовал 3 графика на своем листе Excel, первый нарисованный график будет отображаться в диаграмме пользовательской формы. Теперь я пытаюсь создать макрос, связанный с командной кнопкой, который позволяет мне сохранить график, отображаемый на диаграмме (текущий график). Я хочу использовать интерфейс «сохранить как», потому что пользователь должен выбрать, где сохранить график.

На форуме нашел следующий код:

Sub filesave()  
    Dim bFileSaveAs As Boolean  
    bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show  
End Sub  

При нажатии моей командной кнопки, связанной с этой функцией, открывается окно «Сохранить как», но оно позволяет мне сохранить только книгу Excel.
Итак, я хотел бы адаптировать этот код к своей проблеме. Если у вас есть какие-либо идеи, я весь слушаю.


person Nikola Lakic    schedule 31.03.2020    source источник
comment
Как вы хотите сохранить график? Картинка?   -  person BigBen    schedule 31.03.2020
comment
Да, например, в формате JPG.   -  person Nikola Lakic    schedule 31.03.2020
comment
Возможно, полезно: stackoverflow.com/questions/11939087/   -  person BigBen    schedule 31.03.2020
comment
Большое спасибо. Но в этом примере я думаю, что график экспортируется туда, где находится рабочая книга. Я хочу чего-то другого. Действительно, я хочу открыть окна «сохранить как», связанные с моим графиком, который я хочу экспортировать.   -  person Nikola Lakic    schedule 31.03.2020
comment
Посмотрите на Application.GetSaveAsFilename - docs.microsoft.com/en- мы/офис/vba/api/   -  person Tim Williams    schedule 31.03.2020