如何让word里面的图片变成统一大小

在word排版中，如果内容有多个图片，您想把所有图片变成统一大小，图片少你可以手拖拉，但是如果是几十张上百张，累死人。

本经验根据作者多次辛苦的摸索和寻找，终于找到一个好方法，一劳永逸。

就是使用word的宏。

工具/原料 word pc 步骤 准备图片，我就以5张图片为例吧。

打开word，导入图片。

插入-图片，选择图片插入，进入目录后，Ctrl+A即可选择全部。

按Alt+F8，进入宏编辑窗口。

首先输入宏名称，然后点击新建即可。

在代码窗口中输入如下代码： Dim iSha As InlineShapeFor Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比 iSha.Width = CentimetersToPoints(9#) '宽5CM iSha.Height = CentimetersToPoints(9.2) '高5CM End If Next 点击运行， 运行后，关闭宏编辑窗口，放心，关闭窗口后，宏还在，可以不保存。

...

如何通过宏可以批量完成一个word中所有图片大小的修改？并且让图片...

1、Alt+F8调出宏编辑窗口 2、点创建按钮，创建新宏，setpicsize，内容如下： Sub setpicsize（) '设置图片大小 ' 宏在 2008-3-31 由 hero_thm 录制 ' Dim j '计数图片个数 For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes ActiveDocument.InlineShapes(j).Height = 362 '设置高度 ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度 Next j End Sub 3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cmSub setpicsize（)'设置图片大小' 宏在 2008-3-31 由 hero_thm 录制'Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapesIf ActiveDocument.InlineShapes(j).Width > 480 ThenActiveDocument.InlineShapes(j).Width = 400 '设置宽度End IfNext jEnd Sub...

word文档上放9张照片怎么排版？

1.以一个空白的Word文档为例，打开后，我们可以先点击“插入”，看到有个选择“形状”。

2.点击“形状”下的小三角，可以看到弹出的选项列表，选择最后一个“新建绘图画布”。

3.点击“绘图画布”后，界面弹出一个绘图画布。

4.点击绘图画布选中后，可以随意插入图片、文本、形状等了。

点击“插入”可以选择插入一张图片。

选择插入准备加入的图片。

5.接着可以点击插入形状。

给形状设置大小，颜色等。

6.接着。

也可以在形状中添加文字，制成文本框。

7.这时候，可以随意移动这些形状、图片、文本的位置，而且此文档在重新打开后，不影响已经固定下来的排版样式。

...

word中怎样进行宏调整图片尺寸

1、Alt键的妙用 1. 按住Alt键（或同时按住鼠标上的两个按钮）再拖动左右（上下）边距，可精确调整其值（在标尺上会显示具体值）。

2. 按住Alt再进行相应操作，还可以精确调整图形、艺术字等“对象”的形状、大小和在文档中的位置等。

3. 按住Alt后单击任意单元格可快速选定单元格所在列。

按Alt键后双击表格中任意位置，可快速选定整个表格。

4. 按住Alt后拖动鼠标可以按列选定文本。

5. 按住Alt拖动菜单命令或工具栏上的图标可删除或移动该项到其他位置（同时还按住Ctrl则复制）。

2、双击、右击的妙用 双击大多数对象，将弹出相应的设置对话框，可以快速设置有关项目；选定对象（或将光标置于特定位置）后右击，弹出的快速菜单常会出现工具栏和主菜单中没有的选项。

1. 双击横标尺上的空白灰色区域或竖标尺上任意位置，会弹出“页面设置”对话框。

2. 双击标尺上栏间距区域，会弹出“分栏”对话框。

3. 双击标尺上任何一个制表位，会弹出“制表位”对话框。

4. 双击工具栏两侧空白处会弹出“自定义”对话框。

如双击上下边线则工具栏会变为浮动工具栏。

打开“自定义”对话框后右击菜单命令或工具按钮可修改它的样式。

5. 选定要复制的格式，再双击格式刷，可将选定格式多次复制到其他位置。

6. 快速拆分窗口：将鼠标指针移动到垂直滚动条顶端上的拆分条上，变成双向箭头后双击或拖动可拆分窗口。

7. 状态栏中的双击：双击状态栏的前两个框中任意位置可快速打开“查找和替换”对话框。

双击“录制”则弹出“录制宏”对话框，双击“修订”、“扩展”、“改写”、书形图标则分别进入修订文档、扩展选定、改写、进行拼写与语法状态。

8. 在“文件”的“打开”对话框中，选定文件名后右击，选择“打印”可不打开文件而快速打印Word文档。

9. 选定多边形后右击，选择弹出菜单中的“编辑顶点”，按Ctrl不放，单击连线可增加顶点，单击顶点则删除该顶点。

鼠标指针移到连线或顶点上右击还会出现许多选项。

3、关于段落、排版 1. 无法调整行间距，字间距：检查“页面设置”中的“字符数/行数”选项，设置为“使用默认字符数”，在“段落”对话框中就可调整行间距。

2. 设置特大字体：字体列表中的最大字体只有72磅。

单击字体按钮后再键入你想要的磅数（最大为1638磅），再按回车，可得到更大的字体。

3. “三色一无”的妙用：正文或图形等对象如果设为“白色”、“无线条色”、“无填充色”或“无边框”往往有特殊的作用：代替空格、隐藏、辅助排版（分栏、添加文字等）。

4. 格式刷的妙用：碰没碰过怎么也无法改变一些文字格式（或者改不成和其他内容相同的格式）的现象？用格式刷试试，往往奏效。

5. 查看字体、段落格式：按下Shift+F1组合键后，单击段落中任意文本，可查看该文本正在使用的字体、段落格式。

6. 撤消“自动更正”等自动功能：用“撤消”（Ctrl+z）来即时撤消由“自动更正”等产生的意外结果（撤消自动功能替你完成的那一步操作）效果奇佳。

7. 快速替换Normail.dot模板：在“另存为”对话框的文件列表中找到文件~$Normao.dot（前缀为“~$”的临时文件），将已打开编辑好的模板保存为该文件，重新启动Word即可。

用此法也可替换其他正在使用的文件。

8. 无法调整“页面设置”中的项目：在更改纸张大小、方向时有时会出现错误提示而无法修改的现象，这多半是因为有些段落的栏宽太窄或左右边距太小造成的。

打开“分栏”对话框后复选“栏宽相等”再进行其他设置即可。

9. 段落边框：选定多个段落后才能设置内部边框；可以拖动缩进标记调整外部边框的大小，还可以直接拖动边框线修改外部边框的位置。

4、关于快捷键、菜单、工具栏 1. 在主菜单上添加命令或工具按钮：使用800*600像素以上的分辨率，主菜单右边有很多空位置，把最常用的命令或图标放在上面，好处多多！ 2.快速自定义快捷键：按下“Ctrl+Alt+Num”组合键后，鼠标指针会变为花朵形，再执行要定义快捷的键盘或鼠标操作后，就会弹出“自定义键盘”对话框让你指定快捷键。

3. 漂移下拉菜单：单击工具栏中“字体颜色”、“填充色”、“外围边框”等图标右侧的下拉按钮后，再拖动弹出列表的标题条到窗口中，可使该菜单漂移。

5、关于图形（剪贴画、图片文件、自选图形） 1. 图形等“对象”的上下叠放：插入文档的对象要和正文重叠，必须先设置图片格式中“文字环绕”为“无环绕”（此时图片浮于文字上方），“叠放层次”设为“置于文字下方”就可将图片叠放在文字下面，形成“背景”或“水印”。

2. 编辑环绕顶点：单击“图片”工具栏上“文字环绕”中的“编辑环绕顶点”，图片周围会出现许多顶点，拖动它们可以调整文字环境位置，按住Ctrl键再单击顶点间连线（顶点）可以增加（或删除）顶点。

3. 图形裁剪后的恢复：可以用“图片”工具栏中的“裁剪”工具逆向拖动来恢复被裁剪掉的部分。

4. 旋转、编辑：插入文档中“剪贴画”，如果你先“取消组合”，再“组合”，就可整体旋转了。

“取消组合”还可以修改各组成部分（以文件方式插入的剪贴画可双击后编辑）。

5. 图片的再现：插入文档的图片，有时...

如何word排版

自己录个宏，稍加改动就可以了。

Sub 图片旋转270度对齐页面（）'图片排版270度 If Selection.InlineShapes.Count = 0 Then If Selection.ShapeRange.Count 0 Then Selection.ShapeRange.Fill.Visible = msoFalse 'Selection.ShapeRange.AlternativeText = ＂Higer标书工具修改＂ Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoFalse Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Rotation = 270# Selection.ShapeRange.Width = CentimetersToPoints(28.9) Selection.ShapeRange.Height = CentimetersToPoints(20.2) 'Selection.ShapeRange.PictureFormat.Brightness = 0.5 'Selection.ShapeRange.PictureFormat.Contrast = 0.5 'Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# 'Selection.ShapeRange.Left = 90.1 'Selection.ShapeRange.Top = 88.15 'Selection.ShapeRange.Left = -120.45 'Selection.ShapeRange.Top = 109.1 Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositionPage Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionPage Selection.ShapeRange.Left = wdShapeCenter Selection.ShapeRange.Top = wdShapeCenter Selection.ShapeRange.LockAnchor = False Selection.ShapeRange.LayoutInCell = True Selection.ShapeRange.WrapFormat.AllowOverlap = True Selection.ShapeRange.WrapFormat.Side = wdWrapBoth Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.Type = 3 Selection.ShapeRange.ZOrder 4 Selection.ShapeRange.ZOrder msoSendBackward End If End If If Selection ＂＂ Then If Selection.InlineShapes.Count 0 Then 'Selection.InlineShapes(1).Fill.Visible = msoFalse 'Selection.InlineShapes(1).Fill.Solid 'Selection.InlineShapes(1).Fill.Transparency = 0# 'Selection.InlineShapes(1).Line.Weight = 0.75 'Selection.InlineShapes(1).Line.Transparency = 0# 'Selection.InlineShapes(1).Line.Visible = msoFalse 'Selection.InlineShapes(1).LockAspectRatio = msoFalse 'Selection.InlineShapes(1).Width = CentimetersToPoints(28.9) 'Selection.InlineShapes(1).Height = CentimetersToPoints(20.2) 'Selection.InlineShapes(1).PictureFormat.Brightness = 0.5 'Selection.InlineShapes(1).PictureFormat.Contrast = 0.5 'Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic 'Selection.InlineShapes(1).PictureFormat.CropLeft = 0# 'Selection.InlineShapes(1).PictureFormat.CropRight = 0# 'Selection.InlineShapes(1).PictureFormat.CropTop = 0# 'Selection.InlineShapes(1).PictureFormat.CropBottom = 0# Selection.InlineShapes(1).ConvertToShape '属性转换（InlineShapes(1)转换为ShapeRange) Selection.ShapeRange.Fill.Visible = msoFalse 'Selection.ShapeRange.AlternativeText = ＂Higer标书工具修改＂ Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoFalse Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Width = CentimetersToPoints(28.9) Selection.ShapeRange.Height = CentimetersToPoints(20.2) Selection.ShapeRange.Rotation = 270# 'Selection.ShapeRange.PictureFormat.Brightness = 0.5 'Selection.ShapeRange.PictureFormat.Contrast = 0.5 'Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositi...

word2010中怎样简便地把插入的近百张的图片固定大小,听说宏可以...

1、打开word，工具-宏-宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入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 Sub3、返回word，工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）

word如何批量插入图片

不知道有没有楼主所要的快捷键，但如果要裁剪的情况是相同的，倒可以试试这个办法：选中所有图形（用绘图工具栏里面的选择对象那个箭头，左键拖动框住或者按住CTRL键，一个一个图片点击选中），然后“设置图片格式”，图片标签下有个裁剪尺寸的输入框，输入你要裁剪的尺寸，确定就行了，这样就能一次设置所有图片的裁剪效果

转载请注明出处51数据库 » word 宏 排版图片大小