Значение ячейки из Excel в Power Point

[Hoochara]

День добрый, форумчане.

Помогите пожалуйста с решением вот такой проблемы:

Я создаю презентацию Power Point из Excel, добавляю слайд, вставляю в него необходимые фотографии и дальше я хочу чтоб в определенную част слайда вставлялся текст из Ячейки Экселя.
Проблема в том что код работает если запускать его из power point, но тогда не могу обратиться к Workbook. Решил написать код в Excel, теперь не могу заставить понять, что мне нужен power point.
( Сам понимаю что решение элементарное, но додумать не могу)
Пример во вложении.
Спасибо.

[doober]

Сообщение от Hoochara

Проблема в том что код работает если запускать его из power point, но тогда не могу обратиться к Workbook.
Спасибо.

Не может этого быть.

 Set sh = GetObject("C:\Деталь_M1.xls").Worksheets(1)
 XX = sh.Range("A1:c20")
 sh.Parent.Close (False)

[Hoochara]

Не могу решить проблему, помогите пожалуйста.
Из листа Excel копирую диаграмму
Лист2.ChartObjects("Диаграмма 1").Copy
Далее вставляю её в PowerPoint
pp.ActiveWindow.View.Paste
Но, как только я меняю данные в сводке( из которой строится диаграмма)
в PowerPoint диаграмма тоже меняется автоматически.
Можно ли диаграмму из Excel вставить в powerpoint либо как значение,
либо как картинку/фотку.
Спасибо.

[Hoochara]

Сообщение от Hoochara

Не могу решить проблему, помогите пожалуйста.
Из листа Excel копирую диаграмму
Лист2.ChartObjects("Диаграмма 1").Copy
Далее вставляю её в PowerPoint
pp.ActiveWindow.View.Paste
Но, как только я меняю данные в сводке( из которой строится диаграмма)
в PowerPoint диаграмма тоже меняется автоматически.
Можно ли диаграмму из Excel вставить в powerpoint либо как значение,
либо как картинку/фотку.
Спасибо.

Если кому-то будет интересно:
pp.ActiveWindow.View.PasteSpecial (ppPastePNG) - вставляет как картинку.