我是用粘贴的方式插入图片的，如何用VBA设置图片版式为四周型环绕？

西门哥哥 · 发表于 2005-7-20 23:21

请用代码写出！谢谢

守柔 · 发表于 2005-7-21 11:46

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-7-21 11:46:54 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0004^The Code CopyIn [标准模块-NewMacros]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() Dim MyPicture As Shape, MyInPicture As InlineShape '如果你的默认粘贴图片的格式为嵌入型,则应该先转换 Set MyInPicture = ActiveDocument.InlineShapes(ActiveDocument.Shapes.Count) Set MyPicture = MyInPicture.ConvertToShape ' Set MyPicture = ActiveDocument.Shapes(ActiveDocument.Shapes.Count) With MyPicture .WrapFormat.Type = wdWrapSquare '文字环绕为四周型 .WrapFormat.AllowOverlap = False '不允许重叠 End With End Sub '----------------------

西门哥哥 · 发表于 2005-7-23 11:34

有问题啊！没有通过，提示Missing operator ；相冲突的类型 InlineShape和InlineShapes。我把MyInPicture = ActiveDocument.InlineShapes(ActiveDocument.Shapes.Count)改成MyInPicture = ActiveDocument.InlineShapes(1)以后，还是提示Missing operator ，通不过。

这是怎么回事啊？？？能不能再详细一点，我是初学者，谢谢了！！！！！

守柔 · 发表于 2005-7-23 14:12

我在二楼代码中，有个错误，SORRY，没注意。你当时应该要讲清楚是不是嵌入式图片。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-7-23 14:16:30 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim MyPicture As Shape, MyInPicture As InlineShape '如果你的默认粘贴图片的格式为嵌入型,则应该先转换 Set MyInPicture = ActiveDocument.InlineShapes(1) Set MyPicture = MyInPicture.ConvertToShape With MyPicture .WrapFormat.Type = wdWrapSquare '文字环绕为四周型 .WrapFormat.AllowOverlap = False '不允许重叠 End With End Sub '----------------------

西门哥哥 · 发表于 2005-7-23 21:17

我是把图片粘贴在一个表格的单元格里面的，是不是不能选定它？？？还是提示Missing operator 。或者是什么原因，怎样解决？？

西门哥哥 · 发表于 2005-7-24 11:30

我是把图片粘贴在一个表格的单元格里面的，是不是不能选定它？？？还是提示Missing operator 。或者是什么原因，怎样解决？？

求助解决！！谢谢！！！

		自动登录	找回密码
密码			免费注册