Versuche seit Stunden Grafiken und Texte (Zellinhalte) von Excel an Powerpoint zu übergeben.
Mit folgendem Code kann ich alle Grafiken des aktiven Registers nach Powerpoint übertragen:
Sub jede_Grafik_nach_PowerPoint()
'Extras - Verweise: Microsoft PowerPoint x.x Object Library
Dim Grafik As Shape
Dim PP As PowerPoint.Application
Dim PP_Datei As PowerPoint.Presentation
Dim PP_Folie As PowerPoint.Slide
On Error GoTo Hell
Set PP = CreateObject("Powerpoint.Application")
With PP
.Visible = True
.Presentations.Add
End With
Set PP_Datei = PP.ActivePresentation
For Each Grafik In ActiveSheet.Shapes
'neue Folie einfügen
PP.ActivePresentation.Slides.Add 1, ppLayoutBlank
Set PP_Folie = PP_Datei.Slides(1)
'kopieren
Grafik.CopyPicture
'einfügen
PP_Folie.Shapes.Paste
Next
Set PP_Folie = Nothing
Set PP_Datei = Nothing
Set PP = Nothing
Exit Sub
Hell:
Set PP_Folie = Nothing
Set PP_Datei = Nothing
Set PP = Nothing
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub
Nun zu meinen Fragen:
Wie schaffe ich es, dass die Grafiken (die immer gleich gross sind), so in Powerpoint einfügen kann, dass diese nach meinen Vorgaben ausgerichtet werden (im Moment stimmt der "Nullpunkt" nicht)?
Wie kann ich Powerpoint mitteilen, dass ich eine bestimmte Blattgrösse möchte (also nicht die Standardgrösse A4 sondern z.B. 10 x 15cm -> die Grafiken sind z.B. genau so gross)?
Wie kann ich die Titel, welche jeweils über den Grafiken stehen (auch die Titel sind immer an genau derselben Stelle, also z.B. A5, A25, E5, E25...) zur entsprechenden Folie übertragen und diese ebenfalls nach meinen Vorgaben formatiert darstellen?
Hat jemand eine Lösung, einen Hinweis - ich wäre Euch sehr dankbar.
Beste Grüsse
Sue