文档图片尺寸如何用宏怎么调整

1. wps中的宏用来设置图片大小的那种，怎么弄，怎么将宏加到WPS中，谢谢！！

宏代码：
Dim i
On Error Resume Next
For i=1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Height=300 '修改为自己需孙肆要的值
ActiveDocument.InlineShapes(i).Width=200 '修改为自己需要的值
Next
For i=1 To ActiveDocument.Shapes.Count
ActiveDocument.Shapes(i).Height=300 '修改为自己需要的值
ActiveDocument.Shapes(i).Width=200 '修改为自己需要的值
Next

使用方法：
打开WPS文件，点工具——宏——宏，在“宏的则猛轿位置”中选择“（文档1）”（也就是知郑你的文档名），在“宏名”栏随便输入一个名称（如tpdx），点“创建”。在出现的编辑框中将上面的代码复制到Sub tpdx() 与 End sub之间。
按F5运行宏，或者关闭宏编辑器回到文档，再在“宏”菜单中运行宏。

2. word如何统一调整图片大小

1、新建一个Word文档，然后点击菜单栏上的“布局”菜单

3. word中怎样一次性调整所有图片大小

由于是批量的处理同样的事情，因此要用到宏。

是这样的，如果你的图片显示的是嵌入式的。也就是不能旋转的那种格式，钻切换大小会很容易，方法
要使用宏命令。

宏主要用来处理有规律的重复的工作，相当于批处理。想好了就能编辑出来。工具→宏→录制新宏→然后指定一个快捷键（如L，相当于ctrl L快捷键），然后指定、关闭。开始录制宏。把你能够重复的操作执行一下，以计算机能识别的重复为准。然后→工具→宏→停止录制。这样宏就录制出来了。你ctrl L执行就行了。连续按，则连续执行。如果不完全正确，还要修改或重新录制宏。

对你来说：使用的循环是：查找，图形→然后调整大小，然后鼠标移到图形右侧。然后再执行循环。这个命令是：ctrl F，点开高级，查找里面，选择特殊格式里面的“图形”，单击查找下一个。关掉查找界面，回到word编辑界面。直接去单击 格式菜单里面的 图片，设置大小为你认可的比例。确定。然后将光标用键盘移出 图片（右移以下）。
执行宏即可。

大侠在线[email protected](目前只能邮箱联系，账号满员）
2010年6月8日

4. 怎样批量设置word文档里图片大小

关于WORD里批量插入图片，然后统一修改大小的方法只有下面这个好用，其他的都不太行，现分享给需要的人，里面设置的尺寸自己调整一下：
使用宏，alt+F8进入宏查看界面，点击创建，输入以下代码，设置你要的图片高、宽，单位：厘米。f5或保存后退出宏编辑界面。
然后alt+F8进入宏查看界面，点击运行即可。
注意：全文档的图片都会被统一修改大小。请谨慎操作或备份后操作！！！！！
Sub
批量设置图片大小()
'
'
Macro
宏
'
'
Myheigth
=
12
Mywidth
=
8
On
Error
Resume
Next
'忽略错误
For
Each
iShape
In
ActiveDocument.InlineShapes
iShape.Height
=
28.345
*
Myheigth
'设置图片高度为任意cm
iShape.Width
=
28.345
*
Mywidth
'设置图片宽度
Next
For
Each
Shape
In
ActiveDocument.Shapes
Shape.Height
=
28.345
*
Myheigth
'设置图片高度为任意cm
Shape.Width
=
28.345
*
Mywidth
'设置图片宽度
Next
End
Sub

5. 如何一键设置word所有图片大小

• 打开Word文档后，鼠标右键点击第一张图片，选择“大小和位置”。

  

6. 如何通过“宏”批量完成word中所有图片大小的修改并且让图片安排原来顺序排列

1、Alt+F8调出宏编辑窗口 x0dx0a2、点创建按钮，创建新宏，setpicsize,内容如下： x0dx0aSub setpicsize() x0dx0a'设置图片大小 x0dx0a' 宏在 2008-3-31 由 hero_thm 录制 x0dx0a' x0dx0aDim j '计数图片个数 x0dx0aFor j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes x0dx0aActiveDocument.InlineShapes(j).Height = 362 '设置高度 x0dx0aActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度 x0dx0aNext j x0dx0ax0dx0aEnd Sub x0dx0a3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cmx0dx0aSub setpicsize()x0dx0a'设置图片大小x0dx0a' 宏在 2008-3-31 由 hero_thm 录制x0dx0a'x0dx0aDim j '计数图片个数x0dx0aFor j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapesx0dx0aIf ActiveDocument.InlineShapes(j).Width > 480 Thenx0dx0aActiveDocument.InlineShapes(j).Width = 400 '设置宽度x0dx0aEnd Ifx0dx0aNext jx0dx0aEnd Sub

7. 如何一次性调节word所有图片大小

1.新建一个Word文档,然后点击菜单栏上的“布局”菜单
2.接下来点击工具栏上的箭头所指的位置,打开Word页面设置窗口
3.在页面设置窗口中,我们把页边距设置为0.5厘米,然后调整纸张方向为横向
4.接着点击菜单栏上的“插入”菜单项,在打开的插入工具栏上点击“图片”按钮,在打开的窗口选择...
5.然后点击菜单栏上的“视图”菜单项,接着点击工具栏上的“宏”按钮