Скопируйте OLEObject из Excel во вновь созданную Powerpoint - PullRequest
Новая
       10

Скопируйте OLEObject из Excel во вновь созданную Powerpoint

2 голосов
/ 04 октября 2010

Я изо всех сил пытаюсь получить правильное использование API, даже после нескольких часов поиска.

По сути, я хочу сделать следующее из моего файла Excel.

1) Создать новыйPowerpoint презентация и слайд.[ВЫПОЛНЕНО]

2) Скопируйте OLEObject из файла Excel в слайд Powerpoint.

Что я уже сделал для нет.2 - 

Dim s As Shapes
For Each Obj in Worksheets("TEMPLATE").OLEObjects
  'Copy OLEObjects from Excel to Powerpoint slide
  Set s = pptSlide.Shapes.AddOLEObject '( ... ?? ... )
Next Obj

Пожалуйста, помогите мне, как скопировать объекты OLEObject из файла Excel в слайд Powerpoint.

Спасибо.

1 Ответ

2 голосов
/ 04 октября 2010

Почему бы просто не скопировать и вставить объекты OBJObjects? 

For Each Obj in Worksheets("TEMPLATE").OLEObjects
  'Copy OLEObjects from Excel to Powerpoint slide
  Obj.Copy()
  pptSlide.Shapes.Paste()
Next Obj

EDIT FOR COMMENT

Метод вставки должен возвращать объект ShapeRange.Вы можете установить свойства top и left первой фигуры в возвращенном ShapeRange.Я не проверял это (и я не использую VB.NET), но это должно быть примерно так: 

Dim sr as ShapeRange
Dim sh as Shape

Set sr = pptSlide.Shapes.Paste()
Set sh = sr.Item(1)
sh.Left = 10
sh.Top = 10
...