如何使用vba附加excel工作簿以在power point中滑动

Question

我想在特定的形状索引处附加一个 excel 工作簿，例如。 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