Hallo,
irgendwie schaffe ich es nicht, ein Diagramm nach Powerpoint zu exportieren. Kann mir da vielleicht einer helfen?
Gruß aus Aachen,
Florian
Hallo Florian!
Du müßtest aber schon ein bißchen mehr Info’s liefern. Willst Du das händisch machen oder willst Du ein VB-Programm, das das für Dich erledigt?
Was schaffst Du nicht? Wie bist Du bisher vorgegangen?
Gruß
Wolfgang
Hallo zusammen,
mittlerweile habe ich das alles hinbekommen. Es ging darum in Excel via VBA ein Diagramm zu erzeugen und dieses danach (auch via VBA) in PowerPoint als Präsentationsfolie zu exportieren.
Wenn jemand der Code interessiert, kann ich gerne posten.
Gruß aus Aachen,
Florian
Hallo Florian,
hatte auch schon mal so ein Problem. Kannst Du den Code
mal posten .
Gruß
Tom
Hallo,
da die Nachfrage nach dem Code groß ist, hier der Code in allgemeiner Form:
Sub powerpoint()
Dim pptApp As powerpoint.Application
Dim pptPres As powerpoint.Presentation
Dim pptSlide As powerpoint.Slide
Dim i As Byte
Dim x
Dim dateiname As Variant
dateiname = Application.UserName & „_“ & InputBox(„Wie soll Ihre Powerpointdatei heißen?“)
MsgBox („Ihr Powerpointdateiname lautet: " & dateiname & " und ist unter LW\Pfad\ gespeichert“)
Set pptApp = New powerpoint.Application
Set pptPres = pptApp.Presentations.Open(„LW\Pfad\leerePräsentation.ppt“, , , False)
ActiveSheet.ChartArea.Copy
With pptPres
x = .Slides.Count
.Slides(x).Duplicate
.Slides(x).Shapes.Paste
End With
With pptPres.Slides(1).Shapes(1)
.Left = 30
.Top = 130
.Width = 100
.Height = 400
End With
With pptApp
.Visible = msoTrue
'.ActivePresentation.SlideShowSettings.Run
.ActivePresentation.SaveAs („LW\Pfad“ & dateiname & „.ppt“)
End With
End Sub
Gruß aus Aachen,
Florian