Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereich XL WS per Makro als Bild nach PP

Forumthread: Druckbereich XL WS per Makro als Bild nach PP

Druckbereich XL WS per Makro als Bild nach PP
17.09.2004 11:19:06
Lars
Ich möchte jeweils den Druckbereich eines (mehrfach erstellen) Tabellenblattes per VBA als Bild (keine Verknüpfung zur Ursprungsdatei) auf eine neue Folie einer Powerpoint Präsentation kopieren.
Manuell funktioniert das wie gewünscht (Einfügen als Bitmap). Aber per Makro kommen nur ein Drittel der Spalten in PP an.
Gibt es eine Paste-Option für PP (im XL Makro) oder einen anderen Weg? (Bisher verwende ich [xlSheetRange].CopyPicture und anschließen [ppSlide].Shapes.Paste)
Wie können alle Spalten übertragen werden?
Vielen Dank.
Lars
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich XL WS per Makro als Bild nach PP
17.09.2004 15:04:06
ANdreas
Hallo Lars,
das ist kein Problem - nicht vergessen vorher im VB-Editor und Extras Verweise..., den Verweis zur Microsoft PowerPoint x.0 Object Library zu setzen!

Sub DruckbereichNachPowerpoint()
Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSlide As PowerPoint.Slide
Set pptApp = CreateObject("Powerpoint.Application")
pptApp.Visible = True
Set pptPres = pptApp.Presentations.Add
Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank)
Range(ActiveSheet.PageSetup.PrintArea).CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
pptSlide.Shapes.PasteSpecial ppPasteEnhancedMetafile
'Speichern, Schließen etc.
End Sub

weitere Konstanten für PasteSpecial (PPT) findest Du hier:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbapp10/html/ppmthPasteSpecial.asp
Hoffe das hilft weiter,
Andreas
Anzeige
AW: Druckbereich XL WS per Makro als Bild nach PP
17.09.2004 15:27:07
Lars
Vielen Dank für Deine Antwort, Andreas.
Auf so eine Funktionalität hatte ich gehofft, aber mein VBA kennt
oSlide.Shapes.PasteSpecial
nicht (nur Paste). Fehlen da weitere Verweise?
Lars
AW: Druckbereich XL WS per Makro als Bild nach PP
17.09.2004 15:44:02
ANdreas
Hallo Lars,
seltsam. Bei läuft es mit dem Verweis auf die genannte Library und Du brauchst auch nur diese dazu.
Evtl. liegt es an der Office Version, wenn Du Pech hast, gibt es die Funktion in der Library erst nach Office2000 - weiß ich leider nicht. Versuchsweise probiere mal eine andere Konstante z.B. ppPasteMetafilePicture. Das Problem dabei ist, dass er dann wieder Spalten abschneidet, was bei mir bei ppPasteEnhancedMetafile nicht geschieht.
Wie schaut die genaue Fehlermeldung aus? Kennt er PasteSpecial nicht oder "nur" die Konstante ppPasteEnhancedMetafile nicht?
Gruß
Andreas
Anzeige
AW: Druckbereich XL WS per Makro als Bild nach PP
17.09.2004 16:29:55
Lars
Hallo Andreas.
Er kennt PasteSpecial nicht (beim Kompilieren sagt er was davon, dass er die
Methode nicht kennt). Die Konstanten kennt er natürlich auch nicht.
Ich kann morgen vielleicht testen, wie das mit Nach-2000 Versionen ist...(was mir aber nichts nützen würde)
Gruß,
Lars
Anzeige
AW: Druckbereich XL WS per Makro als Bild nach PP
17.09.2004 18:10:13
Lars
Hallo Andreas.
So. Ich habe das jetzt gerade mit 2002 getestet. Und das klappt wie gewünscht. Nur leider steht den Anwendern nur 2000 zur Verfügung.
Vielen Dank für Deine Hilfe.
Schöne Grüße
Lars

Forumthreads zu verwandten Themen

Bilddatei mit neuem Namen speichern
egonkernien

Hallo wer hilft bitte?
Guten Abend.
Ich möchte eine Dialogbox aufrufen, dort eine Bilddatei auswählen.
Ich möchte diese Bilddatei in ein Image1 auf einer Userform laden. Z.B. D:\Daten\Bilder\DSC0011.jpg
Dann diese Bilddatei umbenennen in D:\Daten\Test\082008_01.jpg, abspeichern...
28.08.2008 22:32:28
Thread-ID: 1005608
5 Beiträge
Excel-Sheet als text-Datei speichern
Florian

Hallo!
Ich habe nur eun kleines Problem:
Ich lasse per Makro ein Excel-Blatt als TXT-Datei abspeichern!
Das ist der Code hierfür:
Sub DB_Kündigung_erstellen() Sheets("Kündigung").Select Rows("1:2").Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.DisplayAlert...
05.09.2008 09:57:00
Thread-ID: 1007593
5 Beiträge
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Export von Excel Diagrammen als JPG
Excel

Hi zusammen!
Ich habe ein Prblem mit einem (bzw. mehreren) Excel-Diagrammen:
Ich habe eine Datebank mit einer Vielzahl von Datensätzen. Ich wähle in einem anderen Tabellenblatt per Dropdown-Feld je einen Datensatz aus und aus den per sverweis hierher gezogenen Werten aus der Datenbank w...
12.11.2008 11:27:00
Thread-ID: 1023758
6 Beiträge
Bereich von Tabelle1 als Grafik in Tabelle2 einfüg
Tabelle1

Hallo Leute,
ich komm irgendwie nicht weiter und benötige Hilfe.
es soll z.B. von Sheets("Tabelle1") Range("a1:b5")
als Grafik
in Sheets("Tabelle2")
Gruss
Atikar
19.11.2008 17:09:19
Thread-ID: 1026118
3 Beiträge
Bereich als Bild in bestimmter Größeexportieren
dirkraeder

Hallo Excelgemeinde!!
Ich habe ein Problem und benötige eure Hilfe!
Ich habe mir eine Excel Datei gebastelt. In dieser Datei habe ich ein Formular, dass sich durch Auswahl in einem Kombinationsfeld verändert.
Nun muss ich die Ansicht dieses Formulars als GIF-Bilddatei immer wieder m...
26.11.2008 11:08:00
Thread-ID: 1027962
3 Beiträge
Anzeige
als Bild kopieren
Manu

Hallo
die in Excel erstellten Grafiken übernehme ich als Bild in eine ppt. Bisher mache ich Screenshots, schneide unnötiges im Paint weg und speichere es als jpg ab um es als Grafik wieder in ppt zu importieren. Ich bin an Neuem interessiert und bin des jetztigen, m.E. sehr langen und aufwe...
16.12.2008 08:36:00
Thread-ID: 1033184
2 Beiträge
screenshot als JPG speichern
heike

Hallo experten,
ich suche eine VBA - Lösung um einen Screenshot zu erzeugen und diesen als JPG abzuspeichern.
Eine Lösung, um eine BMPdatei zu speicher habe ich bereits (sieh unten).
Danke Nepumuk.
Am besten währe genau dieser Ansatz, weil ich das Bild beschneiden kann.
Nur...
16.12.2008 20:47:09
Thread-ID: 1033426
2 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Diagramm als .PNG abspeichern
Grabner

Hallo!
Es geht um folgendes Thema, dass ich vor einiger Zeit mal gestellt hatte:
https://www.herber.de/forum/archiv/1040to1044/t1040069.htm
Das Problem ist, dass es immer nur das erste Diagramm des aktiven Excel-Registers exportiert. Jetzt habe ich mal testweise ActiveSheet.ChartObj...
30.01.2009 12:33:19
Thread-ID: 1045360
4 Beiträge
Alle Dateien als Excel97 speichern
WolfgangN

Hallo,
ich habe Excel2003 und möchte alle Excel-Tabellen aus einem Ordner (Excel-Tabellen) in einem anderen Ordner (PCShop) als Excel 97 Version speichern, um sie zu brennen und zu einem PC zu nehmen, wo nur Excel 97 installiert ist.
An den Dateien wird nichts geändert, soll nur als Exc...
12.02.2009 19:17:00
Thread-ID: 1050222
3 Beiträge
Anzeige
Pivot Tabelle in Array auslesen & neu erstellen
Andreas

Hallo Herber Fans,
da PivotTabellen sich nicht immer rational verhalten, ist es zuweilen notwendig, diese zu löschen und komplett neu aufzubauen, damit sie wieder fehlerlos sind und andere VBA Codes die mit ihnen arbeiten, nicht zum Absturz bringen.
Was ich nun realisierte, war ein Code...
12.02.2009 19:20:00
Thread-ID: 1050227
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige