Как прикрепить книгу Excel к слайду в Power Point с помощью VBA

Question

Я хочу прикрепить книгу Excel к указанному c индексу формы, например. sld.Shapes (19) в слайде PowerPoint с использованием vba.

Я пытаюсь это, но не получаю желаемого результата:

sld.Shapes(19).AddOLEObject _
ClassName:="Excel.sheet", fileName:="Standard_Sectors_template.xlsx", DisplayAsIcon:=msoTrue

Пожалуйста, помогите.

Спасибо

Answer 1

Во-первых, согласно документации здесь , вы должны указать аргумент ClassName или FileName для объекта, но не оба. Во-вторых, вы должны указать путь к файлу.

Соответственно, следующий код установит новую добавленную книгу в местоположение sld.Shapes(19). Измените путь соответственно.

Dim shp As Shape

With sld
    Set shp = .Shapes.AddOLEObject(FileName:="C:\Path\Standard_Sectors_template.xlsx", DisplayAsIcon:=msoTrue, Link:=msoFalse)
    With .Shapes(19)
        shp.Left = .Left
        shp.Top = .Top
    End With
End With