word宏如何设置照片,设置,照片

1.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磅了。

2.word的宏,插入图片并选择怎么写

1、打开word，菜单——工具——宏——录制新宏，输入宏的名字，确定。

2、然后在word里操作，如果鼠标移动不了光标就用键盘移动，它可以录制键盘的操作信息。录制完了就再 菜单——工具——宏——停止录制。

3、查看宏：菜单——工具——宏——宏——选择已经录制好了的宏，然后点击编辑

4、运行宏：菜单——工具——宏——宏——运行

测试过了，只能插如图片，然后是不能自动选择了.宏如下：

Sub addimg()

Selection.InlineShapes.AddPicture FileName:="D:\XX.jpg", LinkToFile:= _

False, SaveWithDocument:=True

End Sub

3.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 InlineShapeSet shps = ActiveDocument.InlineShapes'左、右、顶、底边各剪切20磅，根据需要修改就行了。For Each shp In shps With shp.PictureFormat .CropLeft = 20 .CropRight = 20 .CropTop = 20 .CropBottom = 20End WithNextEnd Sub添加热键点击word文档左上角的Office按钮（logo图标），执行弹出菜单里的“word选项”，会弹出一个对话窗。

在弹出的对话窗里点击左侧导航条“自定义”，点击右侧设置项里的“键盘快捷方式”右侧的“自定义”命令按钮，会弹出“自定义键盘”对话窗。将“指定命令”的类型选择为“宏”，选择“将更改保存在”右侧的下拉列表，选择为你正在编辑的文档。

这时，“宏”列表里会显示当前文档里的所有宏，我们选择“CropPicture”，然后将光标移入“新按新快捷键”文本框，按下“Ctrl+Q”键，点击“指定”命令按钮退出，即可。调用按键盘键^q，就可以直接调用宏“CropPicture”，帮你把当前文档里的所有图片向内剪切40磅了。

4.word宏操作处理图片

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

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

创建宏：1、创建新宏。点击工具“开发工具”里的分组“代码”里的“宏”命令代码，在弹出的“宏”对话窗里的“宏名称”下面的文本框里输入宏名称（这里输入“CropPicture”），选择“宏的位置”为当前的文档。

最后，点击“创建”命令按钮，会弹出VBA的IDE环境，里面已经给出CropPicture程序的程序头尾。如下：Sub CropPicture()'' CropPicture 宏''End Sub2、添加代码把下面代码里的Sub CropPicture（)与End Sub之间的代码粘贴到上面提到的代码之间或者直接用下面的代码覆盖上面提到的代码。

'剪切图片Sub CropPicture()Dim shps As InlineShapes, shp As InlineShapeSet shps = ActiveDocument.InlineShapes'左、右、顶、底边各剪切20磅，根据需要修改就行了。For Each shp In shpsWith shp.PictureFormat.CropLeft = 20.CropRight = 20.CropTop = 20.CropBottom = 20End WithNextEnd Sub添加热键点击word文档左上角的Office按钮（logo图标），执行弹出菜单里的“word选项”，会弹出一个对话窗。

在弹出的对话窗里点击左侧导航条“自定义”，点击右侧设置项里的“键盘快捷方式”右侧的“自定义”命令按钮，会弹出“自定义键盘”对话窗。将“指定命令”的类型选择为“宏”，选择“将更改保存在”右侧的下拉列表，选择为你正在编辑的文档。

这时，“宏”列表里会显示当前文档里的所有宏，我们选择“CropPicture”，然后将光标移入“新按新快捷键”文本框，按下“Ctrl+Q”键，点击“指定”命令按钮退出，即可。调用按键盘键^q，就可以直接调用宏“CropPicture”，帮你把当前文档里的所有图片向内剪切40磅了。