Ich möchte mehrere PPT-Datei mit VBA-Makro erstellen.Erstellen Sie mehrere PPT von Excel mit VBA
Betrachten Sie diesen Fall, bereits PPT-Anwendung wurde geöffnet. Wenn ich das Makro ausführen, sollte es eine neue separate PPT-Anwendung erstellen, aber mein Makro anfügen Folien auf geöffnete Datei.
Wie erstellt man eine separate PPT-Anwendung und macht den Rest der Dinge.
Danke, Unten ist ein Teil des Codes.
Dim newPowerPoint As Object 'PowerPoint.Application '
Dim activeSlide As Object 'PowerPoint.Slide
Dim sht As Worksheet
On Error Resume Next
Set newPowerPoint = CreateObject("PowerPoint.Application")
'If newPowerPoint Is Nothing Then
'Set newPowerPoint = New PowerPoint.Application
'End If
If newPowerPoint.Presentations.Count = 0 Then
newPowerPoint.Presentations.Add
End If
'Show the PowerPoint
newPowerPoint.Visible = True
For Each sht In ActiveWorkbook.Sheets
newPowerPoint.ActivePresentation.Slides.Add newPowerPoint.ActivePresentation.Slides.Count + 1, ppLayoutText
newPowerPoint.ActiveWindow.View.GotoSlide newPowerPoint.ActivePresentation.Slides.Count
Set activeSlide = newPowerPoint.ActivePresentation.Slides(newPowerPoint.ActivePresentation.Slides.Count)
activeSlide.Shapes(1).Delete
activeSlide.Shapes(1).Delete
Range("A1:T32").Select
Selection.Copy
activeSlide.Shapes.PasteSpecial(DataType:=ppPasteEnhancedMetafile).Select
Sie sollte auch die Fehlerbehandlungsroutine nach dem Objekt zurücksetzen (und stattdessen einen get-Objektaufruf verwenden) – RGA
Danke, dass es funktioniert – Singaravelan