新聞財經娛樂♬資訊 News Economy

Sub pptpaster()Const ppLayoutTitleOnly = 11Dim i As Integer'does not require reference to PowerPointDim pptapp As ObjectDim pptPres As ObjectDim pptsld As ObjectDim s As IntegerDim ocht As ObjectSet pptapp = CreateObject("PowerPoint.Application")pptapp.Visible = TrueSet pptPres = pptapp.Presentations.AddFor s = 1 To ActiveWorkbook.Sheets.CountFor i = 1 To Sheets(s).ChartObjects.CountSheets(s).ChartObjects(i).CopySet pptsld = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutTitleOnly)Set ocht = pptsld.Shapes.Paste(1)ocht.Left = 100ocht.Top = 200NextNextEnd Sub                                          

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22: