Ms access 如何从MS Access 2019将图表导出为图片

我正在从Access 2013年到2019年移植仪表板应用程序，无法找到将图表导出为图片的方法。我已经使用新的图表引擎在表单上重新创建了图表，但我无法找到任何有效的方法

我用过：

Set oleGrf = Forms("zf_" & GRFile$)!Graph1.Object
oleGrf.Export "U:\datasource\dashboards\cwgraphs\" & GRFile$ & ".PNG", "PNG"

---

有人能给我举一个代码示例吗？

我使用Access 2010。这对我很有用：

    Dim grpApp As Object
    Set grpApp = Nothing
    Set grpApp = Me.Graph1.Object

    grpApp.Export "C:\Users\June\TestJHB.jpg"
    Me.Graph1.Locked = False
    Me.Graph1.Enabled = True

    Set grpApp = Nothing
    Me.Graph1.Action = acOLEClose
    Me.Graph1.Locked = True
    Me.Graph1.Enabled = False

---

我使用Access 2010。这对我很有用：

    Dim grpApp As Object
    Set grpApp = Nothing
    Set grpApp = Me.Graph1.Object

    grpApp.Export "C:\Users\June\TestJHB.jpg"
    Me.Graph1.Locked = False
    Me.Graph1.Enabled = True

    Set grpApp = Nothing
    Me.Graph1.Action = acOLEClose
    Me.Graph1.Locked = True
    Me.Graph1.Enabled = False

---

是的，它适用于旧版本，谢谢。我正在寻找适用于Access 2019的代码。抱歉，我只能找到一条语句，说明VBA可以使用ModerChart属性和设置，但没有代码示例。是的，它适用于旧版本，谢谢。我正在寻找Access 2019上的代码。抱歉，我只能找到一条语句，说明VBA可以使用ModerChart属性和设置，但没有代码示例。