|
Guten Tag,
benötige mal eure Hilfe.
Ich habe in einem Worksheet zwei VBA Kommandos erstellt.
Diese sind aber sehr langsam und das dauert mir so etwas zu lange.
Nr. 1 -> Ziel: Als PDF Speichern, Dateinname wird vorgebenen, Speicherort soll frei wählbar sein.
Das habe ich zurzeit:
Sub PDF()
Dim pdfName As String
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\Desktop\" & "Übersicht2019" & ".pdf", "PDF-Dateien (*.pdf), *.pdf")
Sheets.Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
.Close savechanges:=False
End With
End Sub
Nr.. 2 -> Ziel Als PDF Speichern und in eine Email als Anhang einfügen. Dateiname ist vorgeben, Email Adresse und Betreff auch.
Sub Email()
If MsgBox("Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, "PDF anzeigen?") = vbYes Then pdfOpenAfterPublish = True
pdfName = ThisWorkbook.Path & "\" & "Dateiname" & ".pdf"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.TO = "Emailadresse"
.CC = Range("Z2").Value
.Subject = "Übersicht 2019"
.htmlBody = Range("Z4").Value
.Attachments.Add pdfName
.Display
End With
pdfOpenAfterPublish = False
End Sub
Gibt es die Möglichkeit die PDF zu komprimieren ? Damit es vielleicht besser läuft oder schneller geht..
Ich freue mich auf eure Vorschläge.
Danke im Vorraus !!!
|