Bilder komprimieren
Schulle65
Gesendet: 03.03.12 19:14
Betreff: RE: Bilder komprimieren


habe eben noch was dazu festgestellt:
- wenn man wdFormatFilteredHTML verwendet dann wird nur die komprimierte Bilddatei gespeichert.
- wenn man im leeren Word Dokument eine Tabelle 1x1 erstellt (mit den entsprechenden Einstellungen) dann wird das Ergebnis auch nur so klein wie die Tabelle / Zelle.

der geƤnderte Code sieht dann so aus:

'-----------Anfang-----------------------

Function BildVerkleinern(sQuelle As String, sZiel As String, sTempDoc As String) As Boolean
Dim sPfad As String
Dim objWord As Word.Application
Dim odoc As Word.Document

If Dir(sTempDoc) = "" Then
MsgBox "Leeres Worddokument fehlt"
Exit Function
End If

sPfad = CurrentProject.Path & "\TempBilder\"

If Dir(sPfad, vbDirectory) = "" Then MkDir sPfad



Set objWord = New Word.Application
Set odoc = objWord.Documents.Open(sTempDoc)


odoc.InlineShapes.AddPicture FileName:=sQuelle ', LinkToFile:=False, SaveWithDocument:=True
objWord.ActiveDocument.SaveAs FileName:=sPfad & "Temp.htm", FileFormat:=wdFormatFilteredHTML

odoc.Close False
objWord.Quit

Set odoc = Nothing
Set objWord = Nothing

If Dir(sPfad & "Temp-Dateien\image001.jpg") <> "" Then
FileCopy sPfad & "Temp-Dateien\image001.jpg", sZiel
On Error Resume Next
Kill sPfad & "Temp.htm"
Kill sPfad & "Temp-Dateien\image001.jpg"
BildVerkleinern = True
End If
End Function

'----------Ende------------------------
Top of the page Bottom of the page