vba代码：使图片浮于文字上方_finch

http://blog.sina.com.cn/u/1658642202

首页博文目录关于我

个人资料

finch

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：0

博客访问：1,113
关注人气：5
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

vba代码：使图片浮于文字上方

(2011-09-26 17:53:03)

标签：

杂谈

分类： Delphi

var doc = new ActiveXObject( 'Word.Application ');
var range = doc.Range; //选择的区域
var sel = doc.Selection; //选择点
var seal_picture = doc.InlineShape; //嵌入型图片
var str ; //印章图片的路径和文件名
var seal_shape =doc.Shape; //粘贴版型图片

var docurl=
doc.Visible = true;
doc.Documents.Open (docurl);
doc.Application.Activate();
//获得书签位置
range = doc.ActiveDocument.Bookmarks( "seal1 ").Range;
sel = range;

str = "D:\\印章\\Sign_12.gif ";
//插入图片
seal_picture = sel.InlineShapes.AddPicture(str);
//设置可用名
seal_picture.AlternativeText = "印章 ";
seal_picture.Select(); //当前图片为焦点
seal_shape = seal_picture.ConvertToShape(); //类型转换
seal_shape.WrapFormat.Type = 3; //图片类型
seal_shape.ZOrder(5); //5 图片沉于文字　４　图片浮于文字
doc.ActiveDocument.SaveAs(docurl);
doc=null;

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：identity的恢复处理

后一篇：分享单反相机拍完照如何的快速在IPAD上浏览【转】

新浪BLOG意见反馈留言板　欢迎批评指正