word宏命令图片

❶ word2007裁剪和改变图片大小的宏，怎么批量修改，求大神修改下面宏代码，要求批量修改！！！！！

Sub 裁剪() '本操作批量裁剪图片
left_cut = 4.1 '左边裁剪的大小 单位厘米
right_cut = 1.2 '右
top_cut = 2.3 '上
bottom_cut = 2.4 '下
scales = 1 / 0.03528 ' 一磅等于0.03528厘米
Dim n '图片个数
'On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
With ActiveDocument.InlineShapes(n).PictureFormat
origHeight = ActiveDocument.InlineShapes(n).Height
origWidth = ActiveDocument.InlineShapes(n).Width
.CropBottom = bottom_cut * scales
.CropLeft = left_cut * scales
.CropRight = right_cut * scales
.CropTop = top_cut * scales
End With
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
With ActiveDocument.Shapes(n).PictureFormat
origHeight = ActiveDocument.Shapes(n).Height
origWidth = ActiveDocument.Shapes(n).Width
.CropBottom = bottom_cut * scales
.CropLeft = left_cut * scales
.CropRight = right_cut * scales
.CropTop = top_cut * scales
End With
Next n
End Sub
'*************************************
Sub Macro() ’改变图片大小，缩放不裁剪，批量操作
Mywidth=10'10为图片宽度（厘米）
Myheigth=10'10为图片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub

❷ 关于用word宏命令保持图片的纵横比

1、CTRL+↑
2、1/72英寸

顺便找的题目，希望对你有帮助！
单选
1. 在Word的编辑状态下打开了一个文档，对文档没作任何修改，随后单击Word主窗口标题栏右侧的“关闭”按钮或单击“文件”菜单中的“退出”命令，则( )。
A）仅文档窗口被关闭
B）文档和Word主窗口全被关闭
C）仅Word主窗口被关闭
D）文档和Word主窗口都没关闭
答案:B
2. 在Word的编辑状态，打开了“W1. DOC”文档，若要将经过编辑后的文档以“W2.DOC”为名存盘，应当执行“文件”菜单中的命令是( )。
A）保存
B）另存为HTML
C）另存为
D）版本
答案:C
3. 在Word编辑状态下，对当前文档中的文字进行替换操作，应当使用的菜单是( )。
A）“工具”菜单
B）“文件”菜单
C）“视图”菜单
D）“编辑”菜单
答案:D
4. 下列选项中不能用于启动Word的操作是( )。
A）双击Windows桌面上的Word快捷方式图标
B）单击“开始”→“程序”→“Microsoft Word”
C）单击任务栏中的Word快捷方式图标
D）单击Windows桌面上的Word快捷方式图标
答案:D
5. 在Word编辑状态下，如果要在当前窗口中隐藏（或显示）格式工具栏，应选择的操作是( )。
A）单击“工具”→“格式”
B）单击“视图” →“格式”
C）单击“视图”→“工具栏”→“格式”
D）单击“编辑”→“工具栏”→“格式”
答案:C
6. 在Word编辑状态下绘制图形时，文档应处于( )。
A）普通视图
B）主控文档
C）页面视图
D）大纲视图
答案:C
7. 在Word中( )。
A）既可以建立一空表格，再往表格里填入内容，也可以将现有的文本转换成表格
B）只可以建立一空表格，再往表格里填入内容，不可以将现有的文本转换成表格
C）不可以建立一空表格，再往表格里填入内容，但可以将现有的文本转换成表格
D）既不可以建立一个空表格，再往表格里填入内容，也不可以将现有的文本转换成表格
答案:A
8. 在Word的编辑状态下，编辑文档中的A2，应使用“格式”菜单中的命令是( )。
A）字体
B）段落
C）文字方向
D）组合字符
答案:A
9. 立即运行Word，下列操作( )是错误的。
A）在WIN98桌面，单击“Microsoft Word”图标（快捷方式），再回车
B）在WIN98桌面，双击“Microsoft Word”图标
C）在“开始”按钮下的“程序”菜单中，单击“Microsoft Word”图标
D）将“Microsoft Word中文版 ”程序项图标拖曳到“启动组”
答案:D
10. 欲将Word窗口的宽度和高度同时放大或缩小，下列( )操作是正确的。
A）拖曳上或者下边框到新位置
B）拖曳左或者右边框到新位置
C）沿非水平及非垂直方向，拖曳窗口的四个角之一到新位置
D）拖曳标题栏到一新位置
答案:C
11. 关闭Word窗口，下列( )操作是错误的。
A）双击窗口左上角的控制按钮
B）选择“文件”菜单中的“退出”命令
C）按Ctrl+F4键
D）按Alt+F4键
答案:C
12. 关闭Word文档1（活动窗口）而不退出Word ,下列操作中，( )是错误的。
A）双击文档1窗口左上角的控制按钮（当文档1窗口最大化时，该按钮在“菜单栏”左侧）
B）选择“文件”菜单中的“关闭”命令
C）按Ctrl+F4键
D）Alt+F4键
答案:D
13. 下面关于Word标题栏的叙述中，错的是( )。
A）双击标题栏，可最大化或还原Word窗口
B）拖曳标题栏，可将最大化窗口拖到新位置
C）拖曳标题栏，可将非最大化窗口拖到新位置
D）Word标题栏显示所运行的软件名称Microsoft Word及其所打开的文档名称 答案:B
14. Word文档的默认扩展名是______。
A) DOC
B) DOT
C) DAT
D) WPS
答案:A
15. Word“段落”是按_______键产生的。
A)回车
B)S

❸ word的宏命令批量修改图片格式要5*7cm 输出不是5*7 大神看看哪出错了

ActiveDocument.InlineShapes(n).Width =Application.CentimetersToPoints (5)
ActiveDocument.InlineShapes(n).Height =Application.CentimetersToPoints (7)

❹ 如何用Word宏操作处理图片让所有图片统一操作

方法如下：

1. 先打开存有图片的word。

2. 在打开的文档中，选择在“工具”菜单中选择“宏”--“宏”。

3. 随后弹出“宏”对话框，在宏名中输入setpicsize。

4. 宏名起好了，单击“创建”按钮进入Visual Basic 编辑器，输入代码。

5. 关闭入Visual Basic 编辑器，返回word，重新选择“工具”--“宏”--“宏”（或者直接按Alt+F8），再次进入宏的界面，在弹出的宏名中选择"setpicsize",最后点击“运行”---确认即可快速地批量修改word中所有图片大小。
   

❺ word如何批量选择所有图片命令

用查找替换即可，查找^g，替换为^&，然后再替换框中指定格式-段落-行距，然后全部替换即可了。更多批量处理实用功能，请参见百宝箱V10.0

❻ 怎样用WORD的宏批量插入照片啊

WORD里的照片好像只能单张插入，不过可以录制宏，让打开要插入图片的对话框，这样时间也能省一些。录制宏--保存--指定快捷键。

❼ 如何通过“宏”批量完成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.77cm
Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
If ActiveDocument.InlineShapes(j).Width > 480 Then
ActiveDocument.InlineShapes(j).Width = 400 '设置宽度
End If
Next j
End Sub

❽ word宏操作处理图片

word2007以上版本使用docm格式可以保存宏，保存的时候选择类型为“带宏的word文档”就可以了，不用向下兼容。

不用VBA是无法实现这一功能的，实际上宏只是用代码记录下操作便于重复使用，其实质与作法与VBA没有什么区别。不过，VBA是人工编写代码，宏是自动编写代码而已。

创建宏：
1、 创建新宏。点击工具“开发工具”里的分组“代码”里的“宏”命令代码，在弹出的“宏”对话窗里的“宏名称”下面的文本框里输入宏名称（这里输入“CropPicture”），选择“宏的位置”为当前的文档。最后，点击“创建”命令按钮，会弹出VBA的IDE环境，里面已经给出CropPicture程序的程序头尾。如下：
Sub CropPicture()
'
' CropPicture 宏
'
'

End Sub
2、添加代码
把下面代码里的Sub CropPicture()与End Sub之间的代码粘贴到上面提到的代码之间或者直接用下面的代码覆盖上面提到的代码。
'剪切图片
Sub CropPicture()
Dim shps As InlineShapes, shp As InlineShape
Set shps = ActiveDocument.InlineShapes
'左、右、顶、底边各剪切20磅，根据需要修改就行了。
For Each shp In shps
With shp.PictureFormat
.CropLeft = 20
.CropRight = 20
.CropTop = 20
.CropBottom = 20
End With
Next
End Sub
添加热键
点击word文档左上角的Office按钮(logo图标)，执行弹出菜单里的“word选项”，会弹出一个对话窗。
在弹出的对话窗里点击左侧导航条“自定义”，点击右侧设置项里的“键盘快捷方式”右侧的“自定义”命令按钮，会弹出“自定义键盘”对话窗。
将“指定命令”的类型选择为“宏”，选择“将更改保存在”右侧的下拉列表，选择为你正在编辑的文档。这时，“宏”列表里会显示当前文档里的所有宏，我们选择“CropPicture”，然后将光标移入“新按新快捷键”文本框，按下“Ctrl+Q”键，点击“指定”命令按钮退出，即可。
调用
按键盘键^q，就可以直接调用宏“CropPicture”，帮你把当前文档里的所有图片向内剪切40磅了。

❾ 求大神赐一个word宏命令（找到word里的最后一张图片删除）

Subtest()
Dimn%,k%
n=Shapes.Count
ForEachshInMe.Shapes
k=k+1
Ifk=nThensh.Delete
Next
EndSub

打开vbe界面，将代码复制进去，删除的图片是最后一次插入的图片。

❿ word的宏，插入图片并选择怎么写

1、打开word，菜单——工具——宏——录制新宏，输入宏的名字，确定。
2、然后在word里操作，如果鼠标移动不了光标就用键盘移动，它可以录制键盘的操作信息。录制完了就再 菜单——工具——宏——停止录制。
3、查看宏：菜单——工具——宏——宏——选择已经录制好了的宏，然后点击编辑
4、运行宏：菜单——工具——宏——宏——运行
测试过了,只能插如图片,然后是不能自动选择了.宏如下:
Sub addimg()
Selection.InlineShapes.AddPicture FileName:="D:\XX.jpg", LinkToFile:= _
False, SaveWithDocument:=True
End Sub