VBA 向WORD插入InlineShapes对像位置不正确解决方案

2012-03-22

VBA 向WORD插入InlineShapes对像位置不正确VBA 向WORD插入InlineShapes对像位置不正确以代码的形式,向WORD

VBA 向WORD插入InlineShapes对像位置不正确
VBA 向WORD插入InlineShapes对像位置不正确

以代码的形式,向WORD插入对像,一个,InlineShapes对像,,并将这个InlineShapes转换成,Shape时,位置不正确了.

怎么解决.

[解决办法]
楼主，我再解释一次，ConvertToShape是将嵌入式图形转换为可自由浮动的图形，
如果是在表格中的图形，“自由浮动的图形”就会变成“浮动”在表格下面。

看你的需求是想调整文档中所有图片的位置吧，
可以做到，但不能对表格中的图形使用ConvertToShape方法，否则就浮动成表格下面了。

下面代码插入一个“公式3.0”对象，可以同时适用于“表格内”和“表格外”两种情况：
你还可以调整参数，比如“对象名”，“显示为图标”等。

VB code

Sub Command6_Click() Dim WdInlineSign As InlineShape Set WdInlineSign = Selection.InlineShapes.AddOLEObject(ClassType:="Equation.3", FileName:="", LinkToFile:=False, DisplayAsIcon:=True)End Sub
[解决办法]
在表格中有些地方插入inlineshape,比如表格末尾,inlineshape过大会导致图片被"挤"到下一行开头,你再将它转成shape位置自然不对了.你可以自己手动往表格中内容的末尾插入一个inlineshape试试.

热点排行