VBA 向WORD插入InlineShapes对像位置不正确
VBA 向WORD插入InlineShapes对像位置不正确
以代码的形式,向WORD插入对像,一个,InlineShapes对像,,并将这个InlineShapes转换成,Shape时,位置不正确了.
怎么解决.
[解决办法]
楼主，我再解释一次，ConvertToShape是将嵌入式图形转换为可自由浮动的图形，
如果是在表格中的图形，“自由浮动的图形”就会变成“浮动”在表格下面。
看你的需求是想调整文档中所有图片的位置吧，
可以做到，但不能对表格中的图形使用ConvertToShape方法，否则就浮动成表格下面了。
下面代码插入一个“公式3.0”对象，可以同时适用于“表格内”和“表格外”两种情况：
你还可以调整参数，比如“对象名”，“显示为图标”等。
Sub Command6_Click()
Dim WdInlineSign As InlineShape
Set WdInlineSign = Selection.InlineShapes.AddOLEObject(ClassType:="Equation.3", FileName:="", LinkToFile:=False, DisplayAsIcon:=True)
End Sub
