Thema Datum  Von Nutzer Rating
Antwort
Rot Exceldiagramme in PPT einfuegen mit Marko
24.04.2013 07:18:37 verzweifelte Sekreta
NotSolved

Ansicht des Beitrags:
Von:
verzweifelte Sekreta
Datum:
24.04.2013 07:18:37
Views:
865
Rating: Antwort:
  Ja
Thema:
Exceldiagramme in PPT einfuegen mit Marko

Hi Liebe Community,

Ich habe folgendes Problem:
Ich muss aus einem Excel Sheet sehr viele Diagramm in eine PPT einfuegen. Eine meiner Meinung nach sehr stumpfe aufgabe, deswegen will ich das ueber einen VBA code loesen.

Ich habe jetzt verschiedene sheets genereriert und auf jeden sheet sind genau die Diagramme, die am Schluss auf einer PPT sein sollen. Das Klappt bisher auch ganz gut!!

Hier mein code

Sub ChartsNachPPT()

Set objPPT = CreateObject("PowerPoint.Application")
PPTVorlage = "C:\Presentation1.pptx"
objPPT.Visible = True
Set objPres = objPPT.Presentations.Open(PPTVorlage)
Set objSlide = objPres.Slides(1)


x = 1
For Each cht In ActiveWorkbook.Sheets("Sheet2").ChartObjects
cht.CopyPicture xlPrinter, xlPicture
Set oSR = objPres.Slides(4).Shapes.Paste
x = x + 1
oSR.Align msoAlignCenters, msoTrue
oSR.Align msoAlignMiddles, msoTrue
Next

x = 1
For Each cht In ActiveWorkbook.Sheets("Sheet3").ChartObjects
cht.CopyPicture xlPrinter, xlPicture
Set oSR = objPres.Slides(10).Shapes.Paste
x = x + 1
oSR.Align msoAlignCenters, msoTrue
oSR.Align msoAlignMiddles, msoTrue
Next

PPTDateiname = Application.GetSaveAsFilename _
(FileFilter:="PPT Files (*.pptx), *.pptx")

Set objPres = Nothing
objPPT.Quit
Set objPPT = Nothing
End Sub


Jetzt hiermit habe ich aber dass Problem, dass alle z.b 5 diagramme eines Sheets direkt im zentrum e
iner Slide angezeigt werden!!

Wie bekomme ich es hin dass die Diagramme schoen positioniert sind???




Danke schonmal 


Gruesse 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Exceldiagramme in PPT einfuegen mit Marko
24.04.2013 07:18:37 verzweifelte Sekreta
NotSolved