J'ai une macro qui convertit Word docs en htm. Le problème est que les images sont toujours sauvegardées en 96 ppi, même si j'ai spécifié 240 ppi.Pourquoi SaveAs n'utilise pas correctement PixelsPerInch dans une macro?
Des idées sur la façon de résoudre?
Voici ma 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