在powerpoint中编辑嵌入对象

时间:2010-12-24 19:38:28

标签: excel vba excel-vba powerpoint powerpoint-vba

我有一个powerpoint演示文稿,其中一个幻灯片中嵌入了excel工作簿。我还有一个用户表单,我希望用户输入信息,我想获取此信息,然后使用相关信息编辑excel表。

我不知道如何在powerpoint中访问excel表格,所以我可以更改单元格的值。

1 个答案:

答案 0 :(得分:3)

Sub a()

Dim oSl As PowerPoint.Slide
Dim oSh As PowerPoint.Shape

Set oSl = ActivePresentation.Slides(1)

Set oSh = oSl.Shapes(1)

With oSh.OLEFormat.Object.Sheets(1)
    .Range("A1").Value = .Range("A1").Value + 1
    .Range("A2").Value = .Range("A2").Value - 1
End With

Set oSl = Nothing
Set oSh = Nothing

End Sub  

灵感来自this code