求助打开Word图片编辑的代码（已解决）

ly

wang1950317 发表于 2013-3-5 14:19
谢谢tmtony 老师
小的代码很菜，不太懂，我的目的是在点击绑定对象框后打开一个空的word图片编辑器（用来编 ...

1. Dim obj As Word.Application
   
2. Set obj = New Word.Application
   
3. obj.Documents.Add Visible:=True
   
4. obj.Selection.InlineShapes.AddOLEObject ClassType:="Word.Picture.8", FileName _
   
5.         :="", LinkToFile:=False, DisplayAsIcon:=False
   

复制代码

ly

wang1950317 发表于 2013-3-5 22:26
引用的问题，已添加了。可以打开word。但还有问题:
     使用：右键单击绑定对象框>插入对象>Microsoft of ...

试一试

1. With Me.obj布点图
   
2. .Action = acOLECreateEmbed
   
3. .Class = "Word.Picture.8"
   
4. .Action = acOLEActivate
   
5. End With
   

复制代码

ly

wang1950317 发表于 2013-3-6 12:38
obj布点图
这一句提示：
编译错误

这个就是你绑定对象框的名称，修改为自己的名称就是了！

ly

wang1950317 发表于 2013-3-6 13:32
改成绑定对象框后提示它的下一句
.Action = acOLECreateEmbed
运行错误‘2777’

抱歉，不知道还会有何错误，请测试！
注：窗体名称和绑定对象名称请自己对应修改。

1. With Forms.Item("frm布点图").Controls.Item("obj布点图")
   
2.     .Action = acOLECreateEmbed
   
3.     .Class = "Word.Picture.8"
   
4.     .Action = acOLEActivate
   
5. End With

复制代码

ly

wang1950317 发表于 2013-3-6 19:51
谢谢您不厌其烦！
还是窗体和绑定对像框名称问题，如果名称改回（“布点图”），则下一句又出现与12楼一样 ...

看来不是代码的问题，建议借用9楼的代码，删除.class=Word.Picture.8。
并设置一下对象框。