Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
also, als pdf sieht das ActiveWorkbook.SaveAs strpath & strfile anders aus. Hier mal der Code, aufgezeichnet für das aktive Blatt und uf Deine Variablen geändert:
PHP-Code:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strpath & strfile, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 13.01.2023
Version(en): 2007
Super er speichert in PDF. hält aber die exeldatei noch offen.
Ist die Qualität so zu ändern das man kleinere Dateigrößen erhält als Excel selbst??
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Moin!
Wäre es nicht naheliegend, mal die VBA-Hilfe zu konsultieren?
https://learn.microsoft.com/de-de/office...ixedformat
Dann könnte man auch über den benannten Parameter Quality:= stolpern.
Aber selbst diese Enumeration wird auf obiger Seite verlinkt:
https://learn.microsoft.com/de-de/office...matquality
Und falls Dir xlQualityMinimum immer noch nicht reichen sollte, könnte man ein Freeware-Tool wie PDF24 nutzen.
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 13.01.2023
Version(en): 2007
28.01.2023, 13:33
(Dieser Beitrag wurde zuletzt bearbeitet: 28.01.2023, 13:42 von xiphias.)
Danke
bin gerade am lernen auf
https://www.vba-tutorial.de
mit QualityMinimum wird es statt 278Kb jetzt 258Kb. Externe Tools kenne ich aber kann man sowas auch in ein Makro packen ??
PDF24 macht aus niedriger Qualität 48Kb
Es muß halt beim Drücken Speichern die Daten übertragen und das ablegen der Datei als PDF automatisch erfolgen.
Hatte früher mal was gefunden wo man die ganzen exceldateien auf einmal in pdf umwandeln kann. Aber das war etwas umständlich
