请教设置图片为衬于文字下方或紧密型的VBA

iamatig

请教设置图片为衬于文字下方或紧密型的VBA.请插入到下列VBA代码中.

With ActiveDocument MyPath = .Path '你可以通过引用活动文档的路径作为图片的相对路径等等 Set MyShape = .Shapes.AddPicture("E:\Documents\My Pictures\1\4.jpg") '插入源图片(指明完整的路径) With MyShape .Rotation = 0 '旋转角度 .Top = 440 '页面顶部距离 .Left = 180 '水平位置 .LockAspectRatio = msoFalse '取消锁定纵横比 .Width = 120 '图片宽度 .Height = 125 '图片长度 End With End With

yuyvtul

With ActiveDocument MyPath = .Path '你可以通过引用活动文档的路径作为图片的相对路径等等 Options.PictureWrapType = wdWrapMergeTight

Set MyShape = .Shapes.AddPicture("E:\Documents\My Pictures\1\4.jpg") '插入源图片(指明完整的路径) With MyShape .Rotation = 0 '旋转角度 .Top = 440 '页面顶部距离 .Left = 180 '水平位置 .LockAspectRatio = msoFalse '取消锁定纵横比 .Width = 120 '图片宽度 .Height = 125 '图片长度 End With End With