Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst mit VBA Code Excel Inhalt in neue PowerPoint Datei als Bild kopieren

Mitglied: Shaggy84

Shaggy84 (Level 1) - Jetzt verbinden

05.03.2008, aktualisiert 06.03.2008, 17816 Aufrufe, 2 Kommentare

Hallo Forum User,

ich möchte ganz gerne aus Excel ein bestimmtes Tabellenblatt als Bild nach Powerpoint kopieren.

Ich habe auch im Forum schon folgenden VBA Code gefunden, nur muss hier schon eine PP Datei dafür existieren.

Daher meine Frage:
- mit welchem Befehl öffnet man eine neue noch nicht vorhandene PP Datei und exportiert die Daten dort hinein?

01.
Sub ppexportopen() 
02.
 
03.
Dim App As Object 
04.
Dim Slide As Object 
05.
 
06.
Set App = CreateObject("PowerPoint.Application") 
07.
Sheets("Template Open").Range("A1:H30").CopyPicture 
08.
App.Visible = True 
09.
App.Presentations.Open "c:\Beispiel.ppt" 
10.
Set Slide = App.ActivePresentation.Slides(1) 
11.
Slide.Shapes.Paste 
12.
 
13.
End Sub
Grüße, Gregor
Mitglied: wakko
05.03.2008 um 16:10 Uhr
Moin,

mit
01.
App.Presentations.Add
erstellst du eine neue Präsentation.
Mit
01.
 App.ActivePresenatation.slides.add 1, ppLayoutText 
fügst du eine erste Folie hinein.
Mit
01.
App.ActivePresentation.saveAs "c:/ordner/dateiname.ppt"
speicherts du die Präsentation.

Tipp:
Zieh dir die Objektbibliothek msppt.olb (befindet sich im Office-Programmverzeichnis) als Verweis (unter Extras->Verweis..) in dein Projekt, dann kannst du mit
01.
Dim app as new Powerpoint.Application
arbeiten und hast die Autovervollständigung.

MfG,
Henrik
Bitte warten ..
Mitglied: Shaggy84
06.03.2008 um 09:07 Uhr
Hallo Henrik,

danke für die schnelle Lösung, funktioniert einwandfrei mit folgendem Code:

01.
 
02.
Sub ppexportopen() 
03.
 
04.
'Dim app As New PowerPoint.Application 
05.
'für Autovervollständigung 
06.
Dim app As Object 
07.
Dim Slide As Object 
08.
 
09.
Set app = CreateObject("PowerPoint.Application") 
10.
app.Visible = True 
11.
app.Presentations.Add 
12.
app.ActivePresentation.Slides.Add 1, ppLayoutBlank 
13.
'erstelle neue PP Presentation und füge ein leeres Blatt ein 
14.
Sheets("Template Open").Range("A1:H30").CopyPicture 
15.
'makiere einen bestimmten Bereich als Bild 
16.
Set Slide = app.ActivePresentation.Slides(1) 
17.
Slide.Shapes.Paste 
18.
'füge den makierten Bereich in der neuen PP Presentation ein 
19.
 
20.
End Sub 
21.
 
Ein Frage habe ich aber noch. Wenn ich den Code mit "Dim app As New PowerPoint.Application" benutze, funktioniert er dann auch noch auf einem Computer ohne die Objektbibliothek im Verweis?

Geht aber so ja auch schon 1A. Also vielen Dank nochmal!

Grüße, Gregor
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Excel VBA UserForm1 - Daten in neue Datei kopieren

gelöst Frage von abuelitoMicrosoft Office10 Kommentare

Hallo an Alle, ich habe wieder mal ein Problem mit meiner UserForm1. Ich habe eine UserForm1 und möchte über ...

Microsoft Office

VBA Code zum Kopieren von einzelnen Zellen in Excel

Frage von SebastianLMicrosoft Office3 Kommentare

Hallo, ich möchte in einer Excel Tabelle per Button den Inhalt von einer Zelle in eine andere Zelle im ...

VB for Applications

Excel VBA Code

gelöst Frage von specialuserVB for Applications2 Kommentare

Hallo zusammen, Hab hier einen Button in einer Excel mit Makros erstellt. Der Button hat die Funktion aus der ...

VB for Applications

Inhalte vergleichen - Excel VBA

gelöst Frage von Acht85VB for Applications10 Kommentare

Hallo lieber User, ich habe ein kurze Frage und würde mich sehr freuen, wenn ihr mir damit weiterhelfen könnt. ...

Neue Wissensbeiträge
Drucker und Scanner
HP-MF-Drucker per Fax angreifbsr
Information von Lochkartenstanzer vor 1 TagDrucker und Scanner2 Kommentare

Endlich eine sinnvolle Verwendung für Faxe: Damit kann man offensichtlich den Drucker übernehmen. lks

Router & Routing

Das pfSense Buch ist jetzt für jeden kostenlos zu beziehen

Tipp von magicteddy vor 2 TagenRouter & Routing2 Kommentare

Bisher war das Buch nur für zahlende Unterstützer verfügbar, jetzt steht für Jedermann kostenlos zur Verfügung. Siehe auch The ...

Firewall

Möglicherweise neue Sicherheitslücke in Mikrotik-Firmware

Information von LordGurke vor 4 TagenFirewall3 Kommentare

Hallo zusammen, vor ein paar Monaten gab es ja bereits eine Sicherheitslücke in der Firmware von Mikrotik-Routern, über welche ...

Erkennung und -Abwehr
Rechner hacken mit Cortana, auch Remote
Information von Lochkartenstanzer vor 5 TagenErkennung und -Abwehr3 Kommentare

heise berichtet über den Vortrag von der Blackhat Open Sesame: Picking Locks with Cortana. Einige Fehler sind schon gefixt, ...

Heiß diskutierte Inhalte
Firewall
PfSense blockt Webseite nicht
Frage von matze2090Firewall27 Kommentare

Hallo, ich habe bei mir pfSense laufen. Das erste ist was ich machen möchte eine Webseite zu blocken. Könnt ...

Windows 10
WIN 10 1803 - LTE Stick kein Internetzugriff
Frage von killtecWindows 1023 Kommentare

Hallo, ich habe mit einem Windows 10 1803 Probleme mit einem LTE-Stick. Das gleiche Problem ist bei mehreren Rechnern ...

CPU, RAM, Mainboards
Xeon E5620: noch schnell genug?
Frage von ahussainCPU, RAM, Mainboards19 Kommentare

Hallo allerseits, ich habe die Möglichkeit, aus Restbeständen einen Tower mit Xeon E5620 CPU und 24 GB RAM zu ...

Datenbanken
MySQL Datenbank Import Aufgabe für mehrere .csv dateien
Frage von Marcel1989Datenbanken18 Kommentare

Hi, ich komm nicht weiter. Ich hab auf einem Windows Server 2012 r2 eine MariaDB/MySQL laufen. Nun soll diese ...