PDF mit VBA erzeugen Problem

[tmessers]

Hallo geschätztes Forum,

ich wende mich mit einem (für mich) merkwürdigen Problem
an Euch.

Ich habe für meine Kollegen einen Code geschrieben, der aus einer
Excel-Liste ein pdf erzeugt. Bei der Erstellung des Codes habt Ihr mir
damals geholfen.

Der Code lautet:

Code:

oexcel.activeworkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        "Z:\Testverzeichnis\Testdatei.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Der funktioniert wie gewünscht.
Mittlerweile fällt aber auf, dass sich der Ablauf des Codes stark verlängert hat.
Technische Ursache scheiden aus 
Mir file aber folgendes auf.
Die Excel-Datei hat eine Größe von 590 KB und besteht ausschließlich aus Text in Spalten und Zeilen.
Die erzeugte PDF-Datei hat eine Größe von 18350 KB und ich glaube hier liegt das Problem.

Weiß jemand Rat?

Gruß

tmessers

[snb]

Diese Code reicht schon:

Code:

ActiveSheet.ExportAsFixedFormat 0, "Z:\Testverzeichnis\Testdatei.pdf"

Und die Datei enthällt zuviele Shapes.

[tmessers]

Danke für die schnell Antwort.
Dein (snb) Code funktioniert auch, löst das Problem aber leider nicht.

Es wird aber noch merkwürdiger:

Offensichtlich liegt das Problem an anderer Stelle.

Nutzt Kollege 1 den Code hat die PDF 18350 KB, nutzt Kollege 2 den Code hat
die PDF 381 KB.

Vermutlich liegt es an irgendwelchen Einstellungen bei dem einen Kollegen????

[snb]

Das sind keine identische Dateien.

[tmessers]

@snb


Das mag sein, aber mit dem selben Code erzeugt.

Der Ordner an dem die Datei abgelgt ist ist der selbe, der Inhalt der Datei ist der selbe.

[snb]

Warum dann 2 identische Dateien speichern ?

[schauan]

Hallöchen,

@snb

Code:

Warum dann 2 identische Dateien speichern ?

Vielleicht zum Test / Vergleich ?

@tmessers
Hast Du mal das versucht?
Quality:=xlQualityMinimum, IncludeDocProperties:=False

Allgemein sind noch die Einstellungen der Bildqualität in den Excel-Optionen von Relevanz - wobei da auch Diagramme und andere Objekte dazu zählen. Allerdings, sollte bei Dir nicht zutreffen, wenn Du nur Texte hast ...

[snb]

@Schauan

Vielleicht zum Test / Vergleich ?

2 identische Dateien ??
Das Ergebnis scheint mir 'ziemlich' vorhersehbar.

[schauan]

Hallöchen,

ich hätte beim speichern identischer xlsx als pdf dann auch gleiche pdf Dateigrößen erwartet

Nutzt Kollege 1 den Code hat die PDF 18350 KB, nutzt Kollege 2 den Code hat
die PDF 381 KB.

[tmessers]

Danke für Eure bisherigen Antworten.

Zur Verdeutlichung des Codes noch folgendes:

Kollege 1 startet den Code, es passiert folgendes


1) Öffnen einer definierten Excel-Datei
2) Ermitteln der letzten Zeile und Erzeugung einer Laufenden Nummer als letztezeile + 1
3) Übernahme der laufenden Nummer in eine Userform
4) Über die Userform werden weitere Daten eingegeben
5) Die weiteren Daten werden in die Excel-Datei übernommen
6) Die Excel-Datei wird als Sicherungskopie im pdf-Format gespeichert, die pdf-Vorgängerversion wird überschrieben
7) Die Excel-Datei wird gespeichert und geschlossen
Dateigröße 18000+ Kilobyte

Kollegen 2 startet den Code

Schritte 1-7

Dateigröße 381 Kilobyte
___________________________________

Mit den Einstellungen zur Bildqualität habe ich auch schon experimiert. Ohne Erfolg

___________________________________

Die Excel-Datei hat derzeit etwas mehr als 7000 zeilen mit 9 Spalten

_____________________________________