Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
16.04.2024 12:01:17
Dynamische Liste generiert aus mehreren Vorgagen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

301 Forumthreads zu ähnlichen 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
Anzeige
Bild aus Tabelle einem Image in einer Userform zuw
Polarfuchs

Hallo Ihr Checker,
in einer Arbeitsmappe habe ich ein Tabellenblatt mit Bildern. Wie kann ich ein bestimmtes Bild, die haben die Benennungen "Vorname_Nachname", einem Image einer UserForm zuweisen? Mit "LoadPicture" habe ich es schon versucht. Da bekomme ich die Fehlermeldung "Typen unvertr...
28.09.2008 14:40:18
Thread-ID: 1012915
7 Beiträge
Excel Tabelle als Leerz. getrennte txt speichern
Eddie

Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...
01.01.1970 00:00:00
Thread-ID: 1014969
34 Beiträge
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
6
33
4
5
2
2
1
1
2
2
3
2
3
1
3
5
8
8
1
2
5
3
1