P
Per
I'm linking and embedding some pictures into a document with
addpicture (I can post the code if needed). These are inserted
as inlineshapes.
To position the pictures correctly I need to convert them to
shapes with convertoshape (.RelativeHorizontalPosition is not
available for inline shapes, nor .wrapformat, etc...).
Now I've got what I need, BUT when I update the graphic (using
links dialog or by printing), the graphs now revert to the
original size. I need to be able to update the graphics, but
want them to retain the formatting I've applied.
I tried converting back to an inline shape after making the
needed adjustments, but they still revert to the original size
when updated.
For a simple example insert a picture into Word using
insert > picture > from file (insert and link).
Resize it and run:
Sub test()
Dim ishape As InlineShape
Dim shape As shape
For Each ishape In ActiveDocument.InlineShapes
ishape.ConvertToShape
Next ishape
For Each shape In ActiveDocument.Shapes
shape.ConvertToInlineShape
Next shape
End Sub
Now, edit > links > update now. Back to the original
size....
Has anyone dealt with this or know of a workaround?
Any help would be SOOOO appreciated!
Per
addpicture (I can post the code if needed). These are inserted
as inlineshapes.
To position the pictures correctly I need to convert them to
shapes with convertoshape (.RelativeHorizontalPosition is not
available for inline shapes, nor .wrapformat, etc...).
Now I've got what I need, BUT when I update the graphic (using
links dialog or by printing), the graphs now revert to the
original size. I need to be able to update the graphics, but
want them to retain the formatting I've applied.
I tried converting back to an inline shape after making the
needed adjustments, but they still revert to the original size
when updated.
For a simple example insert a picture into Word using
insert > picture > from file (insert and link).
Resize it and run:
Sub test()
Dim ishape As InlineShape
Dim shape As shape
For Each ishape In ActiveDocument.InlineShapes
ishape.ConvertToShape
Next ishape
For Each shape In ActiveDocument.Shapes
shape.ConvertToInlineShape
Next shape
End Sub
Now, edit > links > update now. Back to the original
size....
Has anyone dealt with this or know of a workaround?
Any help would be SOOOO appreciated!
Per