Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ExcelChart in Powerpoint positionieren

ExcelChart in Powerpoint positionieren
07.08.2003 12:32:06
Sven
Hallo,

ich kopiere per makro einen Chart in Excel und kann diesen
auch mit dem Befehl Paste wieder in Powerpoint einfügen.
Jedoch würde ich den Graph gerne an die richtige Stelle und in der richtigen
Größe haben.

Ist das möglich ???

Viele Grüße Sven

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ExcelChart in Powerpoint positionieren
07.08.2003 16:41:43
Ramses
Hallo Sven,

das Makro macht in etwa das gleiche. Vielleicht hilft es dir


Sub Excel_Range_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
'Dateiname
ppPres = "C:\Demo.ppt"
'Object referenzieren
Set ppApp = CreateObject("Powerpoint.Application")
'bereich kopieren
Range("A1:q30").Copy
'Diagramm kopieren : Name bitte anpassen
'ActiveSheet.ChartObjects("Diagramm 1").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.Paste
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 
     Code eingefügt mit Syntaxhighlighter 1.16



Gruss Rainer


Anzeige

240 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige