Programmatically inserted inline image is dithered in Word 2003
Word 2000
Word 2003 (difference in size is due to monitor resolution in Virtual PC)
This is how the image is diplayed and printed.
Code:
'Logo Dimensions (in inches)
GlobalConst LOGO_HEIGHTAsSingle = 2
GlobalConst LOGO_WIDTHAsSingle = 2
'***********************************************************************************************
PrivateSub cmdOk_Click()
'...
With ActiveDocument
.InlineShapes.AddPicture _
FileName:=Logos(i).strTIF, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Range:=.Bookmarks("Logo").Range
With .Bookmarks("Logo").Range
x = .InlineShapes.Count
Resize_Logo .InlineShapes(x), .InlineShapes(x).Width, LOGO_WIDTH
EndWith
EndWith
'...
EndSub
'***********************************************************************************************
PublicSub Resize_Logo(ByRef isPicAs InlineShape, lngDimAsSingle,ByVal lngTargetAsSingle)
Dim dblFactorAsDouble
lngTarget = InchesToPoints(lngTarget)
If lngDim <> lngTargetThen
dblFactor = ((lngTarget - lngDim) / lngDim) + 1
isPic.Height = dblFactor * isPic.Height
isPic.Width = dblFactor * isPic.Width
EndIf
EndSub
When I manually insert a .tif as an inline image (Insert>Picture>From File...) in Word 2003 the image isn't dithered. What can I do, other than manually inserting the image and/or resizing the image outside of Word, to fix this?
[3354 byte] By [NimbusSoftware] at [2008-2-10] 