Matlab往Word里面插入图片范例代码

functionceshi_Word%设定测试Word文件名和路径filespec_user=[pwd'\测试.doc'];%判断Word是否已经打开，若已打开，就在打开的Word中进行操作，%否则就打开WordtryWord=actxGetRunningServer('Word.Application');catchWord=actxserver('Word.Application');end;%设置Word属性为可见set(Word,'Visible',1);%返回Word文件句柄documents=Word.Documents;%若测试文件存在，打开该测试文件，否则，新建一个文件，并保存，文件名为测试.docifexist(filespec_user,'file');document=invoke(documents,'Open',filespec_user);elsedocument=invoke(documents,'Add');document.SaveAs(filespec_user);endcontent=document.Content;selection=Word.Selection;paragraphformat=selection.ParagraphFormat;%页面设置(上下左右边距)document.PageSetup.TopMargin=60;document.PageSetup.BottomMargin=45;document.PageSetup.LeftMargin=45;document.PageSetup.RightMargin=45;%设定内容起始位置和标题set(content,'Start',0);title='测试文件';set(content,'Text',title);set(paragraphformat,'Alignment','wdAlignParagraphCenter');%居中%set(paragraphformat,'Alignment','wdAlignParagraphLeft');%居左%set(paragraphformat,'Alignment','wdAlignParagraphRight');%居右%设定标题字体格式rr=document.Range(0,10);rr.Font.Size=18;%字体大小设置rr.Font.Bold=4;%设置字体加粗%设定下面内容的起始位置（将光标放在最后边）end_of_doc=get(content,'end');set(selection,'Start',end_of_doc);%另起一段selection.TypeParagraph;%如果当前工作文档中有图形存在，通过循环将图形全部删除shape=document.Shapes;shape_count=shape.Count;ifshape_count~=0;fori=1:shape_count;shape.Item(1).Delete;end;end;%随机产生标准正态分布随机数，画直方图，并设置图形属性zft=figure('units','normalized','position',...[0.2804690.5533850.4289060.251302],'visible','off');set(gca,'position',[0.10.20.850.75]);data=normrnd(0,1,1000,1);hist(data);gridon;xlabel('考试成绩');ylabel('人数');%将图形复制到粘贴板hgexport(zft,'-clipboard');%将图形粘贴到当前文档里，并设置图形属性为浮于文字上方%selection.Range.PasteSpecial;%将图形粘贴到当前文档里，并设置图形属性为嵌入式selection.Range.Paste;%shape.Item(1).WrapFormat.Type=3;%shape.Item(1).ZOrder('msoBringInFrontOfText');%删除图形句柄delete(zft);