PDA

Vollständige Version anzeigen : Excel Datei in Präsentation


Puschkin
31.08.2002, 10:54
Ich habe ein Excelblatt in welchem einige eingebettete AutoCad Zeichnungen sind. Wie kann ich dieses Excel - Sheet umwandeln sodaß ich dies in eine Präsentation bekomme, da meine bisherige Vorgehensweise (ausdrucken, einscannen und als Bild einfügen) zu aufwendig und unschön wird ?

Danke

<img src="confused.gif" border="0">

jinx
31.08.2002, 11:17
<font size="2" face="Century Gothic">Moin, Puschkin,

von Excel2000 aus wird mit dem folgenden Code von Patrizia S. Prudenzi das in der Excel-Mappe markierte Objekt (ggf. die Objekte gruppieren) in eine PP-Präsentation eingefügt - die Angaben sind entsprechend anzupassen:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Sub</span> PowerPointStartenUndDatenKopieren()
<span class="TOKEN">Dim</span> oPP <span class="TOKEN">As</span> PowerPoint.Application
<span class="TOKEN">Dim</span> oPres <span class="TOKEN">As</span> Presentation
ActiveSheet.Select
<span class="REM">'*** Das war in Excel markiert ist, wird in Powerpoint kopiert</span>
Selection.Copy
<span class="TOKEN">Set</span> oPP = <span class="TOKEN">New</span> PowerPoint.Application
oPP.Visible = <span class="TOKEN">True</span>
<span class="TOKEN">Set</span> oPres = oPP.Presentations.Add(<span class="TOKEN">True</span>)
oPres.Slides.Add 1, ppLayoutBlank
oPres.Application.ActiveWindow.View.Paste
<span class="TOKEN">With</span> oPres.Application.ActiveWindow.Selection.ShapeRange
.Left = 138.625
.Top = 59.5
.Width = 442.75
.Height = 421#
<span class="TOKEN">End</span> <span class="TOKEN">With</span>
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurden in diesem Beitrag Links korrigiert, die auf falsche Adressen zeigten...</font>

Puschkin
01.09.2002, 06:24
uff, nun könntest du das ev. auch für einen Anwender erklären, der das noch nie gemacht hat - und wo gehört der Code hin ???

Danke
Puschkin

jinx
01.09.2002, 08:02
<font size="2" face="Century Gothic">Moin, Puschkin,

dieser Code gehört in eine Excel-Mappe - entweder in die Mappe, die Du hauptsächlich für den Export verwendest oder in eine neu anzulegende namens personl.xls (aus dieser Mappe heraus steht es Dir auf dem Rechner in jeder Mappe zur Verfügung).

Angelegt wird die Mappe durch das Starten einer Aufzeichnung (EXTRAS / OPTIONEN / MAKRO / Aufzeichnen, wobei in der dann erscheinenden Userform von Diese Arbeitsmappe auf Persönliche Makroarbeitsmappe zu wechseln ist). Ein Klick auf okay, dann kann das Makro über die erscheinende Symbolleiste gestoppt werden - es hat bereits seinen Zweck erfüllt.
Dieses "Makro" kannst Du dann im Visual Basic-Editor wieder entfernen, weil es ja keinerlei Funktionen ausführt (VBA-Projekt (PERSONL.XLS) im Projekt-Explorer auswählen, unter Module das Modul1 auswählen - bitte Vorsicht und Code ansehen, falls es dort mehrere Module gibt - und nach einem Rechtsklick Entfernen von Modul1 wählen, nicht speichern...

Zum Arbeiten mit dem Visual Basic-Editor (kurz VBE) sieh Dir doch bitte einmal <a href="http://www.ms-office-forum.net/forum/showthread.php?s=&threadid=55099" target="_blank">Eurowert-Anzeige per Dialogbox</a> an, dort sollte das Vorgehen beschrieben werden.

Solltest Du weitere Fragen haben, nur zu - vielleicht können sie ja relativ schnell beantwortet werden...

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurden in diesem Beitrag Links korrigiert, die auf falsche Adressen zeigten...</font>

Peter1980
14.08.2007, 14:08
Hi,

ist der oben genannte Code noch verwendbar?

Bei mir kommt es zu folgender Fehlermeldung: User-defined Type not defined (dabei wir die 2. Zeile markiert "oPP As PowerPoint.Application"

Kann mir jemand hier weiterhelfen?

Hans Hofmann
15.08.2007, 10:39
Streiche
Dim oPP As PowerPoint.Application
Dim oPres As Presentation
Set oPP = New PowerPoint.Application

setze
Dim oPP As Object
Dim oPres As Object
Set oPP = CreateObject("PowerPoint.Application")

nina19
12.05.2014, 21:14
Hi Leute!
Ich krame den alten Thread mal wieder hervor um nicht unnötig einen neuen aufzumachen.
Bei mir klappt der Code super. Wie kann ich den Code ergänzen wenn ich drei Diagramme auf den Folien 1,2,3 einfügen möchte?

Grüße Nina :)