Встраивание объекта OLE в PowerPoint из Excel VBA - размер и положение не работает

Question

Я использую Excel VBA для обновления презентации PowerPoint.Я пытаюсь встроить два файла Excel в один из слайдов, и я установил все параметры, но бит размера и позиции, похоже, не работает.

MyPresentation.Slides(9).Shapes.AddOLEObject Left:=142, Top:=142, Width:=200, Height:=170, Filename:=Met2FactSheet, _
DisplayAsIcon:=msoTrue, IconLabel:="Metro2 Fact Sheet"

Объект встроен, но без определения размеравообще (как если бы я пропустил эту часть кода).

Answer 1

Попробуйте сначала назначить его переменной объекта, а затем попытаться установить свойства.Например ...

Set ppShape = MyPresentation.Slides(9).Shapes.AddOLEObject( _
    Filename:=Met2FactSheet, _
    DisplayAsIcon:=msoTrue, _
    IconLabel:="Metro2 Fact Sheet")

With ppShape
    .Left = 142
    .Top = 142
    .Width = 200
    .Height = 170
End With

Если вы используете раннее связывание, вы можете объявить ppShape как PowerPoint.Shape.В противном случае, если вы используете позднюю привязку, вы можете объявить ppShape как Object.

Надеюсь, это поможет!