Hallo zusammen,
bin neu hier und habe vor kurzem angefangen mich mit VBA zu beschäftigen. Beim kopieren von einem Diagramm aus Excel nach Powerpoint habe ich ein Phänomen, für das ich keine Erklärung habe:
Nachfolgende Sub kopiert mir alle Diagrammblätter eines Excel-Workbooks nach Powerpoint.
In den Diagrammen hat die X-Achse eine Datum-Formatierung (tt.mm.yyyy) Nach dem Einfügen in Powerpoint zeigt die Grafik das Datumformat allerdings so an: mm.tt.yyyy
Frage:
Wie kriegt ich das hin, dass ermir das Datum in dem ersten Format (tt.mm.yyyy) anzeigt?
Code:
Sub CopyDiagrammGes(ppAnwendung As Object, ppPres As PowerPoint.Presentation, Optional Name As String)
Dim zaehler As Long
Dim ppSlide As PowerPoint.Slide
Dim cht As Object
Sheets("Gesamt-Status").Activate
zaehler = ppPres.Slides.count
Set ppSlide = ppPres.Slides.Add(zaehler + 1, ppLayoutText)
'Diagrammblätter kopieren
For Each cht In ActiveWorkbook.Charts
cht.CopyPicture xlScreen, xlPicture
'cht.CopyPicture xlScreen, xlBitmap, xlScreen
Next
ppPres.Slides(zaehler + 1).Select
With ppAnwendung.ActiveWindow
.ViewType = ppViewSlide
.View.Paste
End With
Application.CutCopyMode = False
With ppAnwendung.ActiveWindow.Selection.ShapeRange
.Top = 200
.Left = 100
'.Width = 300
.Height = 300
End With
End Sub
Ich arbeite mit Office 2003 (VBA 6.5) auf einem Win-XP Rechner
Gruß
Adleano
bin neu hier und habe vor kurzem angefangen mich mit VBA zu beschäftigen. Beim kopieren von einem Diagramm aus Excel nach Powerpoint habe ich ein Phänomen, für das ich keine Erklärung habe:
Nachfolgende Sub kopiert mir alle Diagrammblätter eines Excel-Workbooks nach Powerpoint.
In den Diagrammen hat die X-Achse eine Datum-Formatierung (tt.mm.yyyy) Nach dem Einfügen in Powerpoint zeigt die Grafik das Datumformat allerdings so an: mm.tt.yyyy
Frage:
Wie kriegt ich das hin, dass ermir das Datum in dem ersten Format (tt.mm.yyyy) anzeigt?
Code:
Sub CopyDiagrammGes(ppAnwendung As Object, ppPres As PowerPoint.Presentation, Optional Name As String)
Dim zaehler As Long
Dim ppSlide As PowerPoint.Slide
Dim cht As Object
Sheets("Gesamt-Status").Activate
zaehler = ppPres.Slides.count
Set ppSlide = ppPres.Slides.Add(zaehler + 1, ppLayoutText)
'Diagrammblätter kopieren
For Each cht In ActiveWorkbook.Charts
cht.CopyPicture xlScreen, xlPicture
'cht.CopyPicture xlScreen, xlBitmap, xlScreen
Next
ppPres.Slides(zaehler + 1).Select
With ppAnwendung.ActiveWindow
.ViewType = ppViewSlide
.View.Paste
End With
Application.CutCopyMode = False
With ppAnwendung.ActiveWindow.Selection.ShapeRange
.Top = 200
.Left = 100
'.Width = 300
.Height = 300
End With
End Sub
Ich arbeite mit Office 2003 (VBA 6.5) auf einem Win-XP Rechner
Gruß
Adleano