Обновление встроенного Excel (объект OLE) в Visio

Question

У меня есть встроенный Excel-лист в Visio, который представляет содержимое массива. Заполнение этого листа работает нормально, но после завершения макроса на листе не отображаются значения, пока я не открою вручную (двойной щелчок) ebedded excel.

Нужно ли явно обновлять OLE-объект или что мне нужно сделать, чтобы сразу увидеть какие-либо изменения в Visio?

Заранее спасибо!

Код:

Dim ws As Object

Index = ActiveDocument.Pages("Vorlage").Index

Set acc3 = New Access_Schnittstelle

Set ws = ActiveDocument.Pages(Index).OLEObjects(1).Object.Sheets(1)

range1 = XYZ

ws.Range(ws.Cells(1, 1), ws.Cells(10, 10)) = range1

Answer 1

Я просто "решил" эту проблему с сохранением файла после завершения макроса.

Это каким-то образом "обновляет" все встроенные объекты Excel в моем документе Visio.