gibt es die Möglichkeit, ein Excel-Diagramm als Grafik per Makro nach Power-Point auf eine definierte Folie in einer definierten Grösse zu kopieren?
Danke vorab.
MfG Thomas
gibt es die Möglichkeit, ein Excel-Diagramm als Grafik per Makro nach Power-Point auf eine definierte Folie in einer definierten Grösse zu kopieren?
Danke vorab.
MfG Thomas
ich habe es unter 97 nicht getestet, aber unter 2000 funktioniert das folgende Vorgehen, was natürlich noch anzupassen ist, da hier immer eine neue Folie angelegt wird (bitte die entsprechenden Verweise in der Entwicklungsumgebung nicht vergessen):
Code eingefügt mit Syntaxhighlighter 1.15
Sub PowerPointStartenUndDatenKopieren()
Dim oPP As PowerPoint.Application
Dim oPres As Presentation
ActiveSheet.Select
'*** Das war in Excel markiert ist, wird in Powerpoint kopiert
Selection.Copy
Set oPP = New PowerPoint.Application
oPP.Visible = True
Set oPres = oPP.Presentations.Add(True)
oPres.Slides.Add 1, ppLayoutBlank
oPres.Application.ActiveWindow.View.Paste
With oPres.Application.ActiveWindow.Selection.ShapeRange
.Left = 138.625
.Top = 59.5
.Width = 442.75
.Height = 421#
End With
End Sub