Sub PaintReferencePictureFormatToTargetPicture(ByRef oILSRef As InlineShape, oILSTarget As InlineShape) PaintReferencePictureFormatToTargetPicture ActiveDocument.InlineShapes(1), ActiveDocument.InlineShapes(2) The other day I cried 'Eureka' when I discovered (or thought I did) that just simply selecting the reference image and copying the formatting 'Selection.CopyFormatting' and then selecting the target image and pasting the formatting 'Selection.PasterFormatting' did the job.Įarlier today I learned that that process handled most of the attributes (e.g., borders, shadow, softedge, etc.) it missed some of the more advanced attributres like artistic effect, sharpness, color tone, etc.Īfter much whailing and gnashing of teeth, I think I have now found a solution: For lack of something better to do, I've spent the last few days working on a template add-in for Word that would faithfully copy and apply the formatting of one reference image to a target image.
I've seen several questions in the past about working with the picture formatting tools in Word 2007/2010.
This isn't a question and I hope I'm not breaking a rule by just posting a solution to my own problem.
