von Excel Daten nach PP kopieren
29.07.2003 08:59:54
Bianca
hab hier ein großes Problem!!!
Ich will bestimmte Zeilen aus Excel nach PP kopieren. Ich kann bisher auch P öffnen nur mit dem kopieren klappts noch nicht so wirklich, kann mir da jemand helfen??
Option Explicit
Dim PptApp As PowerPoint.Application, PptPtt As PowerPoint.Presentation
Sub Form_Load()
OpenPresentation ("P:\CBR\Präsentationen\Vorlagen TG\tg_board_budget_neu.ppt")
End Sub
Sub OpenPresentation(Fullname$)
Set PptApp = CreateObject("PowerPoint.Application") 'Erstellt eine neue PowerPoint.Application (entspricht "new")
PptApp.Visible = True
Set PptPtt = PptApp.Presentations.Open(Fullname$)
nach_pp_kopiern
With PptApp
.Visible = True
.Activate
End With
Selection.Paste
With ActiveWindow.Selection.ShapeRange
.Left = 29.25
.Top = 56.625
.Width = 661.625
.Height = 426.875
End With
'ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank).SlideIndex
'ActiveWindow.View.Paste
End Sub
Sub nach_pp_kopiern()
Sheets("Cover sheet").Select
Range("A2:I15").Select
Selection.Copy
End Sub
Danke schon mal im Voraus
Gruß
Bianca