|
- Sub del()
- Dim Present As Presentation, Sld As Slide, Shp As PowerPoint.Shape
- Dim Sht As Worksheet
- Dim oChart As Chart
- Dim ObjShp 'As Object
- Dim Str
- Set Present = Application.ActivePresentation
- For Each Sld In Present.Slides
-
- For Each Shp In Sld.Shapes
-
- If Shp.Type = msoEmbeddedOLEObject Then
- Debug.Print Shp.Name, Shp.Type
-
- Str = Shp.Name
- Set ObjShp = Sld.Shapes(Shp.Name).OLEFormat.Object
- 'Set Sht = ObjShp.Worksheets("数据表")
- Debug.Print ObjShp.Type
- Debug.Print ObjShp.Type = msoEmbeddedOLEObject
- Debug.Print Shp.Type = msoEmbeddedOLEObject
- Debug.Print ObjShp.Type = msoLinkedOLEObject
- Stop
- Debug.Print ObjShp.Worksheets("sheet1").Cells(2, 1)
- Stop
- Stop
- Stop
- End If
- Next Shp
- Next Sld
-
- Stop
- End Sub
复制代码
现在关键点掌握,如何获取worksheet的数据。 |
|