excelbereich in powerpoint kopieren!!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Matze,
es fällt mir schwer Dein Problem nachzuvollziehen.
Deswegen kann ich Dir nur folgende Lösung anbieten, die zwar technisch nicht schön ist, aber sehr zuverlässig funktioniert:
- Screenshot machen (Taste "Druck" bzw. "Print" auf der Tastatur)
- In einem Grafikprogramm "speichern unter..." bzw. "save as..."
- als *.jpg speichern
- aus powerpoint die Grafik einfügen
Ausserdem empfehle ich Dir auf Powerpoint zu verzichten und Deine Präsentation in Form eines PDF zu machen.
Dadurch umgehst Du Probleme die immer wieder bei Powerpoint-Präsentationen auftauchen. Es gibt nichts peinlicheres als eine Präsentation die abschmiert. ("An dieser Stelle hätten wir jetzt die Zahlen / Grafik xy gesehen".
PDF ist da wesentlich widerstandsfähiger. Man benötigt keine viele MB schweres Microsoft Powerpoint oder MS Powerpoint Viewer. Freie PDF Viewer gibt es ab 1 MB grösse und müssen auch nicht installiert werden (Foxit PDF Reader).
PDF erstellen mit jedem schreibprogramm und dann Drucken mit Free PDF XP
http://freepdfxp.de/fpx732.htm
Hat noch viele andere Vorteile!
Grüße
Martin

hallo herbert,
der code is der folgende und ich habe ihn praktisch über einen anderen thread gefunden...


Private Sub cmdPraesentation_erstellen_Click()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
'Dateiname
ppPres = "H:\Zentraltool\Präsentation1.ppt"
'Object referenzieren
Set ppApp = CreateObject("Powerpoint.Application")
'Bereich kopieren
Worksheets("K1").Range("A1:M31").Copy
'Diagramm kopieren
'ActiveSheet.ChartObjects("Diagramm 3").Copy
'Object initialisieren
ppApp.Visible = msoTrue
'PPT öffnen
Set ppFile = ppApp.Presentations.Open(ppPres)
'Folie auswählen
ppApp.ActivePresentation.Slides(2).Select
'Bereich einfügen und OLE Verknüpfung herstellen = Link
ppApp.ActiveWindow.View.PasteSpecial DataType:=ppPasteDefault, link:=msoTrue
'Eingefügte Tabelle skalieren
With ppApp.ActiveWindow.Selection.ShapeRange
'Oberer Rand 1 cm unter Standardtitel
.Top = 150
'Linker Rand 1.5 cm von linkem Folienrand
.Left = 35
'Eingefügte Tabelle auf Links und rechts 1,5 cm Rand skalieren
.Width = 650
'Bei Bedarf Höhe noch einstellen
'Hier ist jedoch zu beachten, dass das Object skaliert wird !!!
'Die Breite verändert sich dann
'.Height = 300
End With
End Sub

mein problem ist jetzt, dass bei PasteSpecial ein automatisierungsfehler kommt und der markierte bereich net in die folie eingefügt wird. hoffe dass es jetzt ein wenig verständlicher ist... danke für die hilfe
gruss,
matze

Sub cmdPraesentation_erstellen_Click() Dim ppApp As Object, ppFile As Object, ppPres As String Worksheets("K1").Range("A1:M25").Copy Application.ScreenUpdating = False ppPres = "H:\Zentraltool\Präsentation1.ppt" Set ppApp = CreateObject("Powerpoint.Application") ppApp.Visible = msoTrue Set ppFile = ppApp.Presentations.Open(ppPres) With ppApp.Presentations("Präsentation2.ppt").Slides(2) .Shapes.Paste .Shapes(1).Left = 20 .Shapes(1).Top = 20 .Select End With Application.ScreenUpdating = True Application.CutCopyMode = False Set ppApp = Nothing Set ppFile = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

excelbereich in powerpoint kopieren!!!

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread