Von Excel aus Textfelder in PowerPoint ausrichten
29.01.2014 10:39:50
Moritz
ich habe ein Excel-Sheet mit Daten, dass eine PowerPoint-Datei mit Grafiken und Textfeldern füllt. In PowerPoint habe ich einen VBA-Code geschrieben, der sich um die Positionen der Textfelder kümmert, wenn die Textfelder übereinander liegen.
Nun möchte ich den VBA-Code im Excel-Sheet abspeichern und von dort aus auch starten. Den VBA- _ Code habe ich um den Abschnitt zum öffnen der PowerPoint-Datei ergänzt, jedoch bekomme ich immer einen Unverträglichkeitsfehler bei:
Set oShapes = oSlide.Shapes
Das erste Set funktioniert:
Set oPres = PPfile.ActivePresentation
Der Code sieht wie folgt aus:
Sub felder_optimieren()
'Der pp Slide auf dem man arbeitet
Dim slide As PowerPoint.slide
'Die Powerpoint Datai auf der man arbeitet
Dim PPfile As PowerPoint.Application
Set PPfile = CreateObject("PowerPoint.Application")
PPfile.Visible = True
PPfile.Activate
Dateiname = "C:\Users\---user---\Documents\PowerPoint-Datei.pptm"
'öffne sie
PPfile.Presentations.Open (Dateiname)
Dim oPres As Presentation
Dim oSlide As slide
Dim oShapes As Shapes
Dim oShape As Shape
Dim textfeld(1 To 5000) As String
Dim pl(1 To 5000) As Integer
Dim pr(1 To 5000) As Integer
Dim po(1 To 5000) As Integer
Dim pu(1 To 5000) As Integer
Dim sn(1 To 5000) As String
Set oPres = PPfile.ActivePresentation 'ActivePresentation
For Each oSlide In oPres.Slides
Set oShapes = oSlide.Shapes
For Each oShape In oShapes
If oShape.Type = msoGroup Then
oShape.Ungroup
End If
Next oShape
Next oSlide
End Sub
Hat einer von Euch vielleicht eine Idee, wie ich das lösen kann?
Vielen Dank und viele Grüße
Moritz