|
- Sub del()
- Dim AddArr, WeathArray, Cc
- AddArr = Array("兰州", "珠海", "武汉", "北京", "抚远", "漠河", "三沙", "喀什")
- WeathArray = Array("日出", "日落", "天亮", "天黑", "最高气温", "最低气温", "天气")
-
-
- Dim oPresent As Presentation
- Dim Sld As Slide
- Dim ShpRng As ShapeRange
- Dim Shp As Shape
- Dim GrpChart 'As Graph.Chart
- Set oPresent = Application.ActivePresentation
-
-
-
- With oPresent
- For Each Sld In .Slides
- Sld.Delete
- Next Sld
- Stop
-
- For ii = 0 To UBound(WeathArray)
- Set Sld = .Slides.Add(Index:=2, Layout:=ppLayoutBlank)
- 'Sld.Name = WeathArray(ii)
- Set GrpChart = Sld.Shapes.AddOLEObject(Left:=120, Top:=110, Width:=480, Height:=320, ClassName:="MSGraph.Chart", Link:=msoFalse)
- Debug.Print GrpChart.Name
- Next ii
- ''
- For Each Sld In .Slides
- Debug.Print Sld.Name
- Next Sld
- End With
-
- End Sub
复制代码
还是遇到定义问题。 |
|