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