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

Frage Microsoft Microsoft Office

Mitglied: Shaggy84

Shaggy84 (Level 1) - Jetzt verbinden

05.03.2008, aktualisiert 06.03.2008, 17525 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
Bilder vom LDAP in VBA - Excel
Frage von 94451VB for Applications3 Kommentare

Hallo, ich mache über VBA einen Abruf vom LDAP um die eine Userliste vom Unternehmen zu ziehen mit: Set ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 17 StundenViren und Trojaner1 Kommentar

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 21 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell12 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Vmware
DOS 6.22 in VMWare mit CD-ROM
gelöst Frage von hesperVmware10 Kommentare

Hallo zusammen! Ich hab ein saublödes Problem. Es ist eine VMWare mit DOS 6.22 zu erstellen auf dem ein ...

Cloud-Dienste
PIM als SaaS Nutzungsgebühr
Frage von vanTastCloud-Dienste8 Kommentare

Moin, wir haben uns ein PIM (Product Information Management) nach unseren Ansprüchen für viel Geld als SaaS-Lösung bauen lassen. ...