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, 18124 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
PowerPoint Datei sind riesig
Frage von a.grotheMicrosoft Office

Hallo zusammen, habe hier auf der Arbeit folgendes Problem mit PowerPoint 2013 prof. plus. - Kollege erstellt eine PowerPoint ...

Microsoft Office
Excel VBA vbyesno
gelöst Frage von Florian86Microsoft Office2 Kommentare

Hallo, ich habe folgenden Code Sub AbgerundetesRechteck1_Klicken() Dim wksOrig As Worksheet Dim wksStore As Worksheet Dim lngLastRow As Long ...

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 ...

Microsoft Office
Excel VBA - PDF
Frage von SabineTMicrosoft Office3 Kommentare

Hallo Zusammen, ich habe ein pdf, über welches ich bereits die OCR Texterkennung laufen lassen habe. Jetzt möchte ich ...

Neue Wissensbeiträge
Windows 10

Windows 10 V1809: Rollout ist gestartet - kommt per Windows Update

Information von kgborn vor 11 StundenWindows 101 Kommentar

Eine kurze Information für die Admins, die Windows 10 im Programm haben. Microsoft hat die letzte Baustelle (die Inkompatibilität ...

Sicherheit

Heise Beitrag Passwort-Sammlung mit 773 Millionen Online-Konten im Netz aufgetaucht

Information von Penny.Cilin vor 14 StundenSicherheit5 Kommentare

Auf Heise Online ist folgender Beitrag veröffentlicht worden: Heise Beitrag passwörter geleakt Ich bin mir jetzt nicht ganz sicher, ...

Microsoft Office
TEAMS - Skype for business
Tipp von Nebellicht vor 14 StundenMicrosoft Office

Hallo, ms ersetzt Skype for business durch TEAMS. Also, nicht wundern wenn mit der OFFICE365 Umgebung kein Skype for ...

Windows 10

Windows 10: Cortana und die Suche gehen bald wieder eigene Wege

Information von Frank vor 18 StundenWindows 102 Kommentare

Microsoft hat einen neuen Insider Build von Windows 10 veröffentlicht (Fast Ring, Version 18317), wo die digitale Assistentin "Cortana" ...

Heiß diskutierte Inhalte
Windows Server
Uhren gehen immer wieder falsch
Frage von killtecWindows Server23 Kommentare

Hallo, ich habe folgende Konstellation: 1. Physischer DC Div. Virtuelle DC's auf Hyper-V Servern Die Hyper-V-Server, der Physische DC ...

Switche und Hubs
Medienkonverter mit 12 oder 24 Ports gesucht
Frage von wmuellerSwitche und Hubs21 Kommentare

Guten Morgen, ich bin auf der Suche nach einem größeren Medienkonverter, der "stumpf" 1:1 die Ports auf über ein ...

Debian
OpenSSH Login mit Public Key schlägt fehl, mit Passwort funktioniert
gelöst Frage von DKowalkeDebian19 Kommentare

Hallo zusammen, ich hatte hier schon nach einer Anleitung für einen SFTP Server mit Linux gefragt, habe dort auch ...

Windows 10
VM wächst schnell von 14 auf 35 GB an - warum?
Frage von degudejungWindows 1018 Kommentare

Hallo, ich bin ein Freund schlanker VMs und setze daher gerne mit dem Erscheinen einer neuen Win10 Version - ...