做了一个插入图片的宏，可如何默认插到文档的末尾

mrsxw2004 · 发表于 2005-4-28 08:59

做了一个插入图片的宏，可如何默认插到文档的末尾，我用的是ActiveDocument.Shapes.AddPicture 的方法

守柔 · 发表于 2005-4-28 09:19

请参考：

注意shapes.addpicture插入时位置的情况,可能需要作进一步调整.

Sub Example() Dim MyRange As Range, MyShape As Shape With ActiveDocument Set MyRange = .Range(.Content.End - 1, .Content.End - 1) Set MyShape = .Shapes.AddPicture(FileName:= _ "C:\Documents and Settings\My Documents\My Pictures\2.bmp", Anchor:=MyRange) End With End Sub

mrsxw2004 · 发表于 2005-4-28 09:27

真是大师级的，为什么我弄不懂这些类库和方法如何使用呢

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

做了一个插入图片的宏，可如何默认插到文档的末尾

非常感谢守柔