Public Sub Zeile_nach_PowerPoint()
Dim pp As PowerPoint.Application
Dim pres As PowerPoint.Presentation
Workbooks("Zeile nach Powerpoint.xls"). _
Sheets("Tabelle1").Shapes("Picture 4").Copy
Set pp = CreateObject("PowerPoint.Application")
Set pres = pp.Presentations.Add(True)
With pp
.Visible = True
.ActivePresentation.Slides.Add 1, ppLayoutTitle
.Windows(1).View.Zoom = 80
End With
With pres.Slides(1)
.Shapes("Rectangle 2").Delete
.Shapes("Rectangle 3").Delete
.Shapes.Paste
.Shapes("Picture 4").Left = 300
.Shapes("Picture 4").Top = 280
End With
pp.Visible = True
Set pp = Nothing
Set pres = Nothing
End Sub
Public Sub Zellen_nach_PowerPoint_1()
'---
Sheets("Tabelle1").Range("b14:f14").Copy
'---
With pres.Slides(1)
.Shapes.Paste
.Shapes(1).Left = 350
.Shapes(1).Top = 280
End With
Application.CutCopyMode = False
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen