Why doesn’t SaveAs use correct PixelsPerInch in macro?

[ghenne]

I have a macro which converts Word docs to htm. The problem is that the
images are always saved as 96 ppi, even though I have specified 240 ppi.

Any ideas on how to fix?

Here is my macro:

Sub Doc2htm()
With ActiveDocument.WebOptions
.RelyOnCSS = True
.OptimizeForBrowser = False
.OrganizeInFolder = True
.UseLongFileNames = True
.RelyOnVML = False
.AllowPNG = True
.ScreenSize = msoScreenSize800x600
.PixelsPerInch = 240
.Encoding = msoEncodingWestern
End With
With Application.DefaultWebOptions
.UpdateLinksOnSave = True
.CheckIfOfficeIsHTMLEditor = False
.CheckIfWordIsDefaultHTMLEditor = False
.AlwaysSaveInDefaultEncoding = False
.SaveNewWebPagesAsWebArchives = True
End With

Dim newName As String
Dim fileDir As String
newName = ActiveDocument.Name
If InStr(newName, ".doc") = 0 Then Exit Sub
newName = Left(newName, InStr(newName, ".doc") - 1) & ".htm"
fileDir = Left(ActiveDocument.FullName,
InStrRev(ActiveDocument.FullName, "\"))

ChangeFileOpenDirectory fileDir
ActiveDocument.SaveAs FileName:=fileDir & newName, FileFormat:= _
wdFormatFilteredHTML, LockComments:=False, Password:="",
AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
'Application.Quit

End Sub