Как экспортировать диаграмму как рисунок из MS Access 2019 - PullRequest
Новая
       25

Как экспортировать диаграмму как рисунок из MS Access 2019

1 голос
/ 26 октября 2019

Я портирую приложение панели мониторинга из Access 2013 на 2019 и не могу найти способ экспортировать диаграммы в виде картинок. Я воссоздал диаграммы на формах, используя новый движок диаграмм, но я не могу заставить работать какой-либо метод.

Я использовал: 

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

Может кто-нибудь указать мне пример кода, который делает это, пожалуйста?

1 Ответ

0 голосов
/ 26 октября 2019

Я использую 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
...