Есть диаграмма на первом слайде.
Нужно с помощью кнопки программно изменить данные этой диаграммы. Код такой:

oShp.Chart.ChartData.Activate
oShp.Chart.ChartData.Workbook.Worksheets(1).Range("B1").Value = "123456"
oShp.Chart.ChartData.Workbook.Application.Visible = False
/* (сдесь oShp - искомая диаграмма) */

Проблема в первой строчке кода. Запускается инстанс Excel, хоть позже он и скрывается, но вначале портит весь вид презентации, слайдов больше 50ти, диаграмм еще больше, получается на каждую диаграмму вылазиет отдельный инстанс Excel...
Как от этого избавится ???