Word怎么同时设置多张照片的大小
word中批量设置所有图片大小,可通知下面的宏来实现Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片ActiveDocument.InlineShapes(n).Height = 5.5 * 28.35 '设置图片高度为 5.5cm (1cm等于28.35px)ActiveDocument.InlineShapes(n).Width = 7.33 * 28.35 '设置图片宽度 7.33cmNext nEnd Sub如果只是想设置选择的图片的大小,还需要对这段代码进行修改。
稍繁琐,建议将图片另存为文件后,对图片进行统一编辑,然后再重新插入。
...
关于在word里设置图片
版本要求是word2003以上:一,在word中按alt+f11组合键,进入VBA模式二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块三,把下面代码复制,粘贴进去.四,更改数值, 改一下宽度和高度数值(10),点运行(类似播放按钮.)或f5,即可设置文档中全部图片Sub Macro()Mywidth=10 '10为图片宽度(厘米)Myheigth=10 '10为图片高度(厘米)For Each iShape In ActiveDocument.InlineShapesiShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub 也可用宏的方法WORD中批量设置图片用宏批量定位word中图片位置 我有一个word文档,里面有多幅图,但图片的缩进位置不统一,有些靠右,有些居中,有些靠左等等。
能否通过编制宏一次完成调整,让所有图片靠左,或居中。
我知道通过宏可以批量完成一个word中所有图片大小的修改,在次与大家共享,也希望可以给大家参考。
1、Alt+F8调出宏编辑窗口 2、点创建按钮,创建新宏,setpicsize,内容如下: Sub setpicsize()For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes ActiveDocument.InlineShapes(j).Height = 280 '设置高度ActiveDocument.InlineShapes(j).Width = 380 '设置宽度Next jEnd Sub 3、保存退出,点运行setpicsize宏,word中所有的图片统一调整 ...
word图片 缩放 快捷键
自己写一个vba,也就是宏,再将这个宏附加到按钮上,再添加到工具栏里。
按比例缩放:把word中的所有图片按比例缩放!vba代码如下:Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightdim objOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片obj=ActiveDocument.InlineShapes(n)picheight =obj.Heightpicwidth = obj.Widthobj.Height = picheight * 0.9 '设置高度为.9倍obj.Width = picwidth * .9 '设置宽度为.9倍Next For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片obj=ActiveDocument.Shapes(n)picheight = obj.Heightpicwidth = obj.Widthobj.ight = picheight * .9 '设置高度为.9倍 obj.dth = picwidth * .9 '设置宽度为.9倍NextEnd Sub...
C++里面cout.width(4)是什么意思?
就是输出的字符串宽度为4,不足的会用空格补足。
比方说你要输出“12”,但是在输出之前用了这句话就会输出“ 12”。
看看下面的文章吧! cin与cout 一:标准输入函数cin 不知道说它是个函数对还是不对,它是代表标准的输入设备--键盘。
他是属于流的,他的用法和流的用法是一样的。
也就是:cin>>变量; 小小的说明一下,输入多个变量可以写在一行,如:cin>>x>>y>>z; 这样写不是不允许,而是不好看,如果是不同的变量类型,那就更是没头没脑了。
除了你,人家是不知道该输入什么的,所以,一般在输入语句的前面,我们一般都 要做一个提示,请输入***,让人家心里有个底,知道这个变量是做什么的。
另外,这个函数是不用带地址符号"&"的,也不用写明变量类型,千万不要跟scanf混淆。
当然他就也不检查变量输入是否合法。
如: int i; cout>i; cout main() { int i; while(i!=-1) { cout>i; /*请输入不是一个字符如'a'试试*/ cout>i;语句移到判断循环的语句中,那么,你输入的如果是不合法的变量,他将跳出循环。
cin是用空格来分隔输入的。
请看看如下的例子: /*一个空格分隔使输入的变量达不到希望的值*/ #include main() { char str[20]; cout>str; /*你试着输入"hello word"*/ cout void main() { int x=30, y=300, z=1024; cout void main() { int x=30, y=300, z=1024; cout<<x<<' '<<y<<' '<<z<<endl; //按十进制输出 cout<<oct<<x<<' '<<y<<' '<<z<<endl; //按八进制输出 cout<<setiosflags(ios::showbase); //设置基指示符 cout<<x<<' '<<y<<' '<<z<<endl; //仍按八进制输出 cout<<resetiosflags(ios::showbase); //取消基指示符 cout<<hex<<x<<' '<<y<<' '<<z<<endl; //按十六进制输出 cout<<setiosflags(ios::showbase | ios::uppercase); //设置基指示符和数值中的字母大写输出, cout<<x<<' '<<y<<' '<<z<<endl; //仍按十六进制输出 cout<<resetiosflags(ios::showbase | ios::uppercase); //取消基指示符和数值中的字母大写输出 cout<<x<<' '<<y<<' '<<z<<endl; //仍按十六进制输出 cout<<dec<<x<<' '<<y<<' '<<z<<endl; //按十进制输出 } 我们用以上的程序也可以输出同样的结果,可见他的灵活。
我们现在输出下列一...
java中怎么将word文档怎么生成图片
public class CreateWordDemo { public void createDocContext(String file) throws DocumentException,IOException { // 设置纸张大小 Document document = new Document(PageSize.A4); // 建立一个书写器(Writer)与document对象关联,通过书写器(Writer)可以将文档写入到磁盘中 RtfWriter2.getInstance(document, new FileOutputStream(file)); document.open(); // 设置中文字体 BaseFont bfChinese = BaseFont.createFont("STSongStd-Light", "UniGB-UCS2-H",BaseFont.NOT_EMBEDDED); // 标题字体风格 Font titleFont = new Font(bfChinese, 12,Font.BOLD); // 正文字体风格 Font contextFont = new Font(bfChinese, 10,Font.NORMAL); Paragraph title = new Paragraph("标题"); // 设置标题格式对齐方式 title.setAlignment(Element.ALIGN_CENTER); title.setFont(titleFont); document.add(title); String contextString ="iText是一个能够快速产生PDF文件的java类库。
" + " \n"// 换行 +"iText的java类对于那些要产生包含文本," + "表格,图形的只读文档是很有用的。
它的类库尤其与java Servlet有很好的给合。
" +"使用iText与PDF能够使你正确的控制Servlet的输出。
"; Paragraph context = new Paragraph(contextString); // 正文格式左对齐 context.setAlignment(Element.ALIGN_LEFT); context.setFont(contextFont); // 离上一段落(标题)空的行数 context.setSpacingBefore(5); // 设置第一行空的列数 context.setFirstLineIndent(20); document.add(context); // 利用类FontFactory结合Font和Color可以设置各种各样字体样式 Paragraph underline = new Paragraph("下划线的实现",FontFactory.getFont( FontFactory.HELVETICA_BOLDOBLIQUE, 18,Font.UNDERLINE, new Color(0, 0,255))); document.add(underline); // 设置 Table 表格 Table aTable = new Table(3); int width[] = { 25, 25, 50 }; aTable.setWidths(width);// 设置每列所占比例 aTable.setWidth(90); // 占页面宽度90% aTable.setAlignment(Element.ALIGN_CENTER);// 居中显示 aTable.setAlignment(Element.ALIGN_MIDDLE);// 纵向居中显示 aTable.setAutoFillEmptyCells(true); // 自动填满 aTable.setBorderWidth(1); // 边框宽度 aTable.setBorderColor(new Color(0, 125, 255)); // 边框颜色 aTable.setPadding(2);// 衬距,看效果就知道什么意思了 aTable.setSpacing(3);// 即单元格之间的间距 aTable.setBorder(2);// 边框 // 设置表头 Cell haderCell = new Cell("表格表头"); haderCell.setHeader(true); haderCell.setColspan(3); aTable.addCell(haderCell); aTable.endHeaders(); Font fontChinese = new Font(bfChinese, 12, Font.NORMAL,Color.GREEN); Cell cell = new Cell(new Phrase("这是一个测试的 3*3 Table 数据",fontChinese)); cell.setVerticalAlignment(Element.ALIGN_TOP); cell.setBorderColor(new Color(255, 0,0)); cell.setRowspan(2); aTable.addCell(cell); aTable.addCell(new Cell("#1")); aTable.addCell(new Cell("#2")); aTable.addCell(new Cell("#3")); aTable.addCell(new Cell("#4")); Cell cell3 = new Cell(new Phrase("一行三列数据",fontChinese)); cell3.setColspan(3); cell3.setVerticalAlignment(Element.ALIGN_CENTER); aTable.addCell(cell3); document.add(aTable); document.add(new Paragraph("\n")); // 添加图片 Image.getInstance即可以放路径又可以放二进制字节流 Image img = Image.getInstance("d:\\img01800.jpg"); img.setAbsolutePosition(0,0); img.setAlignment(Image.RIGHT);// 设置图片显示位置 img.scaleAbsolute(60, 60);// 直接设定显示尺寸 // img.scalePercent(50);//表示显示的大小为原尺寸的50% // img.scalePercent(25,12);//图像高宽的显示比例 // img.setRotation(30);//图像旋转一定角度 document.add(img); document.close(); } public static void main(String[] args) { CreateWordDemo word = new CreateWordDemo(); String file ="d:/demo1.doc"; try { word.createDocContext(file); } catch (DocumentException e) { e.printStackTrace(); } catch (IOException e) { e.printStackTrace(); } } }
如何设置Matlab输出到Word中图片的大小(转载)
现在看来,两种方法比较实用 方法一:快速型核心方法:设置Word显示比例100%,Matlab的图像大小与屏幕所见的相同;根据Word的排版要求,估计Matlab图像在Word中的大小,进而调整图像大小。
具体操作:(以下操作应对图像绘制完成后进行,图像绘制中字体大小、线宽等都与排版需要一致,比如8号字体,需要故意设置很大再缩小) (1)在Matlab图像窗口中,选择Edit——Copy Options——Preferences ——match screen size(所见即所得) (2)将Word的显示比例设置成100%。
这将保证Matlab中产生的图像大小与Word中显示的一致。
(3)根据排版需要,估计图像大小,使用鼠标拖拽调整大小。
(4)使用Copy Figure将图片输出到Word。
如果在word中实现更精确的设置,只需使用word自带的图形编辑功能,但是大小调整幅度一般不要超过10%。
方法二:精确型 核心方法:通过图像设置命令,直接指定图片的大小。
具体操作:(1) 完成画图及相关设置(字体大小、线宽、图例大小也是正常尺寸), (2) 此时WindowStyle is 'docked',要改为normal,有两种操作:在Figure properties——more properties中找到 Windowstyle,然后用鼠标改为normal;或者直接用命令: set (gcf,'windowstyle','normal') (3) 根据排版要求,确定图片的宽高,例如320*320 像素,然后使用命令 set (gcf,'Position',[500,300,320,320]) % figure的position中的[left bottom width height] 是指figure的可画图的部分的左下角的坐标以及宽度和高度。
(4) 使用copy figure将图片输出到Word...
如何一次性保持比例修改word中图片大小保持比例保持比例
设置方法:1、选中需要设置的图片(按住Ctrl键点击所有图片,选择所有图片);2、单击图片工具格式选项卡右下角如图所示的按钮;3、弹出大小对话框,选中锁定纵横比和相对于图片原始尺寸复选框,在高度的输入框中输入图片的高度(或在芝度的输入框中输入图片的宽度)即可,如图所示。
如何做用宏自动调整word文档中图片尺寸
方法/步骤先打开存有图片的word在打开的文档中,选择在“工具”菜单中选择“宏”--“宏”随后弹出“宏”对话框,在宏名中输入setpicsize宏名起好了,单击“创建”按钮进入Visual Basic 编辑器,输入如下代码Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub5关闭入Visual Basic 编辑器,返回word,重新选择“工具”--“宏”--“宏”(或者直接按Alt+F8),再次进入宏的界面,在弹出的宏名中选择"setpicsize",最后点击“运行”---确认即可快速地批量修改word中所有图片大小,注意这里把图片大小都修改成Height = 400,Width = 300,这个规格大家可以需要改变的~~~~~~~~~~~
matlab中set函数怎么用,具体的,中文的,高分
1.MATLAB给每种对象的每一个属性规定了一个名字,称为属性名,而属性名的取值成为属性值。
例如,LineStyle是曲线对象的一个属性名,它的值决定着线型,取值可以是'-' 、':'、'-.'、'--'或'none'。
2.属性的操作 set函数的调用格式为: set(句柄,属性名1,属性值1,属性名2,属性值2,…)例子:clearx=0:0.2:12;y1=bessel(1,x);y2=bessel(2,x);y3=bessel(3,x);h=plot(x,y1,x,y2,x,y3);set(h,{'LineWidth'},{2;5;8}) %set(h,{'LineWidth'},{2})==set(h,'LineWidth',2),将所有线宽设置为2set(h,{'Color'},{'r';'g';'b'},{'LineStyle'},{'--';':';'-.'}) %设置颜色和线宽axis([0 12 -0.5 1]) %设置坐标轴范围grid onX=0:1:12;Y=-0.5:0.25:1;set(gca,'xtick',X,'ytick',Y) %设置网格的显示格式,gca获取当前figure的句柄set(xlabel('Time'),'FontSize',12,'Color','r')y=ylabel('Amplitude');set(y,'FontSize',12,'Color','g')legend(h,'First','Second','Third') %添加图例title('Bessel Functions') %添加标题[y,ix]=min(y1); %找到y1的最小值以及改值的下标,赋给y和ixtext(x(ix),y,'First Min \rightarrow','HorizontalAlignment','right') %插入文本 具体可改哪些属性值见贴http://blog.ednchina.com/xth543/218124/Message.aspxgcf返回当前Figure对象的句柄值gca返回当前axes对象的句柄值gco返回当前鼠标单击的句柄值,该对象可以是除root对象外的任意图形对象,并且Matlab会把当前图形对象的句柄值存放在Figure的CurrentObject属性中Figure对象的属性篇...
如何批量修改word图片大小
打开word,按下Alt+F8,出现宏界面,为新建的宏取名为AdjustPicWidthAndHeight 点击编辑按钮,输入下面红色字体标出的内容 Sub AdjustPicWidthAndHeight() ' ' AdvertisePublishAs 宏 ' 将广告发布导出为 PDF 和 XPS 'Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.InlineShapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.InlineShapes(n).Width = 425 '设置图片宽度 425px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片 ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.Shapes(n).Width = 425 '设置图片宽度 425px Next n End Sub word 批量修改图片大小——固定长宽篇 这部分要说的是把word 中的所有图片修改成固定的并且相同的长和宽! 2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存 Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片 ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Next n End Sub 3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了! 具体操作同上,只是代码部分稍做修改,代码如下: Sub setpicsize() '设置图片大小 Dim n '图片个数 Dim picwidth Dim picheight On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 0.8 '设置高度为1.1 倍 ActiveDocument.InlineShapes(n).Width = picwidth * 0.8 '设置宽度为1.1 倍 Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight *0.8 '设置高度为1.1 倍 ActiveDocument.Shapes(n).Width = picwidth * 0.8 '设置宽度为1.1 倍 Next n End Sub
转载请注明出处51数据库 » setwidth word