[求助]：刚才又发现一个问题，我又来麻烦斑竹了

kaconer

我用vba语句
ActiveDocument.Shapes.AddPicture("test.gif", False, True, 100,100, 50, 50).Select
插入一个图片，为什么老是插在第一页呢？就是不插在我鼠标所在的那一页，真是太让我伤心了，我好着急啊。斑竹帮忙解决一下，我在线等你的好消息！


:8 :8 :8

efan2000

这样当然不行，ActiveDocument.Shapes.AddPicture仅指明在当前文档的某一位置插入，并没有具体到哪里，应该用Selection.InlineShapes.AddPicture，表示在光标点位置插入图片。代码如下：

2. 
   
3.   [FONT=courier new]
   
4. Sub test()
   
5.     Dim isObj As InlineShape
   
6.     Set isObj = Selection.InlineShapes.AddPicture("snap1.gif", False, True)
   
7.     isObj.Width = 50
   
8.     isObj.Height = 50
   
9.     Set isObj = Nothing
   
10. End Sub
    
11.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub test()<br />     Dim isObj As InlineShape<br />     Set isObj = Selection.InlineShapes.AddPicture("snap1.gif", False, True)<br />     isObj.Width = 50<br />     isObj.Height = 50<br />     Set isObj = Nothing<br /> End Sub<br />   [/FONT]<br />

kaconer

这样插入的图片，是不是也可以象用ActiveDocument.Shapes.AddPicture（）方法插入的图片一样，用vba代码设置其透明，还有衬于文字下面的属性

efan2000

可以，不过要先在“设置图片格式”中的“版式”设置，以后就可以直接在“叠放次序”中设置。

kaconer

这种插入式的图片好象没有ZOrder这个属性吧
您说的是在WORD界面设置吧，那么我想用VBA来实现她，就觉得好难啊！
我刚才找到一个ConvertToShape 方法，不知道这个有没有用，我正在研究呢！但半天都不知道所云！

efan2000

ConvertToShape方法是将嵌入式图形转换为可自由浮动的图形，那么就可以实现了，修改如下：

2. 
   
3.   [FONT=courier new]
   
4. Sub test()
   
5.     Dim isObj As InlineShape
   
6.     Set isObj = Selection.InlineShapes.AddPicture("Snap1.gif", False, True)
   
7.     isObj.Width = 50
   
8.     isObj.Height = 50
   
9.     isObj.ConvertToShape.ZOrder msoSendBehindText
   
10.     Set isObj = Nothing
    
11. End Sub
    
12.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub test()<br />     Dim isObj As InlineShape<br />     Set isObj = Selection.InlineShapes.AddPicture("Snap1.gif", False, True)<br />     isObj.Width = 50<br />     isObj.Height = 50<br />     isObj.ConvertToShape.ZOrder msoSendBehindText<br />     Set isObj = Nothing<br /> End Sub<br />   [/FONT]<br />

kaconer

搞定，呵呵，谢谢斑竹了。。。