Word中修改图片尺寸的方法分析

Word中修改图片尺寸的方法
word批量修改图片大小——固定的长和宽
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 '设置图片高度为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），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）
word批量修改图片大小——按比例缩放篇
这部分要说的是把word中的所有图片按比例缩放！
具体操作同上，只是代码部分稍做修改，代码如下：
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 * 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为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 * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
End Sub
会声会影的高级运动——自定义运动详解
会声会影高级运动之自定义运动的操作：会声会影的高级运动之自定义运动，可在主视频轨及覆叠轨编辑！在主视频轨编辑时背景颜色默认为黑色，而在覆叠轨编辑时，主视频轨的素材可以作为背景，实现画中画的效果（即不使用画中画滤镜而实现画中画效果）。

㈠导入图片；
㈡把需要编辑的图片拖到主视频轨或覆叠轨；
㈢打开高级运动之自定义运动编辑界面：
右键点击覆叠轨上的图片，在弹出的对话框中选择【打开选项面板】，也可以点击【选项】）进入编辑界面；
㈣自定义运动参数的设置：
选择【属性】→【高级运动】【自定义运动】，弹出自定义运动参数设置界面（图一）
（图一）自定义运动参数设置界面
①会声会影的自定义运动是基于空间直角坐标系（X、Y、Z)的三轴运动。

原点为0（位置在屏幕的正中）。

导入图片后，系统默认图片中心位置为空间直角坐标系的原点，即屏幕中心（X=0、Y=0、Z=0).
②编辑自定义运动时系统默认的图片的位置（X：0、Y:0）其X、Y为图片的中心，其参数取值范围：
X、Y：均为0——±100。

当＞100或＜-100时图片将超出有效画面。

若需要自定义X、Y在图片的边沿或超出图片画面时，可以采用变形/还原的操作。

先选择四角的绿色块两个，使图片变形；当X、Y超过系统默认的图片中心，达到你的预设值时，再拖动对应的两个绿色块来还原图片，还原时要注意保持图片原来的大小。

③编辑自定义运动时，其图片的旋转角度（X、Y、Z）的参数按下列范围取值：
图片绕水平轴旋转X：0——±180（单位：度）或0——360（单位：度）
图片绕垂直轴旋转Y：0——±180（单位：度）或0——360（单位：度）
图片绕Z轴在屏幕上平面旋转Z：0——±180(单位：度）或0——360(单位：度）
④编辑自定义运动时其图片的大小（X、Y）的参数（百分比）均按下列范围取值：
X：0——500
Y：0——500
在锁定宽高比、设置为100%时即为系统默认的标准大小。

也可以设置为不锁定宽高比，此时图片将变形。

㈤关键帧的添加及删除：
编辑自定义运动时需要添加关键帧，关键帧在时间轴上添加或删除。

时间轴上的时间码采用国际动画和电视工程师协会的SMPIT标准，
其格式为：小时：分钟：秒：帧。

添加关键帧：把时间指针拖到预设的时间点，点击关键帧操作下的【添加关键帧】按键或设置该点的任意一个参数就可以把关键帧添加上去。

删除关键帧：把时间指针拖到需要删除的关键帧上，点击【删除关键帧】按键，就可以删除该关键帧。

也可以鼠标右键关键帧，在弹出的对话框中选择【删除】该关键帧或【删除所有】关键帧。

㈥透明度、阴影、边框、反射及缓解输入输出：
【透明度】：是指覆叠轨上素材对背景的透光程度，可以在（0——100）范围内自定义调整。

当透明度为0时覆叠轨上的素材将把背景遮盖住即不透光；反之透明度为100时覆叠轨上的素材全部通透即透光（看不见覆叠轨上的图像）。

【阴影】：可以设置阴影的透明度、阴影模糊、阴影方向及阴影距离。

【边框】：可以设置边框的透明度、边框大小（边框只能围绕在图片周边，这里的边框大小是指边框线的宽窄）、边框外模糊、边框内模糊。

【反射】：可以设置反射的透明度、反射距离、反射淡出。

【缓解输入/缓解输出】：可以单选或多选，有四个级别，多选时缓解输入/缓解输出的等级只能是一样的。

最简单的旋转木马编辑方法
已有54 次阅读2015-11-2 11:02 |旋转木马
——不使用影画中画滤镜的多张照片空心顺时针旋转木马制作方法：（以六张照片为例）（一）用第三方软件，先把六张照片（建议使用竖照片）的尺寸调整为355×500或整倍数大小；
（二）用PS软件创建一张800×500像素、分辨率72、8位、透明的背景画布；
（三）将第一张照片拖放到PS画布中，再把照片移动到画布的右侧靠齐；然后点击【文件】→【存储为】→【置入】，选择好路径，并命名为A-1、选择格式为PNG→【保存】→选择【无交错】→【确定】。

（四）完成了第一张照片的处理，剩下的五张照片的操作就就只是简单的重复：点击PS
的【编辑】→选择【退后一步】，再拖放第二张照片到画布中，同样需要把照片移动到画布的右侧靠齐，然后点击【文件】→【存储为】→【置入】，选择好路径，并命名为A-2、选择格式为PNG→【保存】→选择【无交错】→【确定】.......把全部照片按此方法处理并保存为A-1、A-2......A-6，这样就得到了六张左边是透明右边是照片的图片。

（五）把六张左边是透明、右边是照片的图片导入会声会影，照片区间统一为3秒（若需要更慢的旋转速度可以把区间设置得更长）。

（六）把背景素材拖入会声会影的主视频轨，并中建立四条复叠轨，按下面的顺序把做好的六张图片拖放入复叠轨：
第Ⅰ复叠轨： 2 3 4 5 6
第Ⅱ复叠轨 1 2 3 4 5 6
第Ⅲ复叠轨 1 1 2 3 4 5 6
第Ⅳ复叠轨 2 3 4 5 6
（七）选中第Ⅰ复叠轨上的第一张图片，设置图片运动参数，【高级运动】→【自定义运
动】，设置：位置（X：0、Y：0)、大小（X：80、Y：80)、旋转（X：0、Z：0、Y：按下面的数据设置）
第Ⅰ复叠轨为旋转起步，该轨上的所有图片旋转角均设定为Y：300°——360°
第Ⅱ复叠轨为图片旋入，该轨上的所有图片旋转角均设定为Y： 0°—— 60°
第Ⅲ复叠轨为图片旋出，该轨上的所有图片旋转角均设定为Y：120°——180°
第Ⅳ复叠轨为旋转中继，该轨上的所有图片旋转角均设定为Y：60°——120°
（八）选择【项目】点击【播放】就可以在预览窗口显示你编辑的旋转木马了！
你还可以通过设置自定义运动参数，让照片由小到大（或平移）进入、退出画面。

dim Min_num as int
dim Max_num as int
dim Sum_num as int
dim Arr_num(9) as int
'赋予初始值
Min_num=101
Max_num=-1
Sum_num=0
'循环10次获得10个随机数
for i=1 to 10
randomize
Arr_num(i-1)=int(rnd*100)+1
'判断后赋值最小值
if Arr_num(i-1)<Min_num then Min_num=Arr_num(i-1)
'判断后赋值最大值
if Arr_num(i-1)>Max_num then Max_num=Arr_num(i-1)
'累计合计值,用于最后计算平均值
Sum_num=Sum_num+Arr_num(i-1)
next
msgbox ("最大值：" & cstr(Max_num) & vbcrlf & "最小值：" &
cstr(Min_num) & vbcrlf & "平均数：" & cstr(cint(Sum_num)/10) & vbcrlf)
7
11；9；3；-5；-2；-2；5；3；-3；1；8；12；5；-1；13；2；1；10；-1；4；0；13；7；2；3；12；7；14；5；2；12；0；0；-1；2；-5；10；12；1；9；3；11；10；4；-3；3；2；9；1；11；-2；7；14；0；14；-3；15；8；7；13；6；0；12；-4；4；10；0；3；3；6；0；7；-1；-3；13；-3；8；13；0；14；12；4；5；10；12；3；-1；2；3；-2；7；-3；-1；9；5；-1；15；4；-5；4；1；10；13；11；-1；-3；-5；-2；3；-1；15；12；7；10；-2；0；-4；12；11；11；2；4；6；11；6；-1；-1；2；6；2；6；4；6；-4；6；-1；14；14；15；12；3；11；15；0；-2；9；-5；2；9；-3；-3；1；3；6；1；1；11；1；3；3；12；3；9；8；3；14；8；5；-1；7；10；4；13；1；8；13；1；2；-5；1；15；10；7；7；0；5；11；12；-3；6；3；-4；4；9；5；3；14；15；7；6；7；-3；-1；1；-5；-2；3；6；6；11；-4；3；-4；1；7；5；7；2；13；10；7；4；10；-2；-4；0；10；14；2；9；11；-4；11；5；-1；7；13；14；8；-5；8；14；-5；14；-4；1；7；11；-4；-4；6；1；3；5；10；4；1；-4；3；6；10；7；8；11；3；11；9；9；10；-1；10；-4；0；14；11；-1；-1；0；14；0；0；9；8；10；10；1；11；9；13；-1；2；6；2；-1；7；8；-2；-4；8；12；8；3；-1；5；14；10；3；5；6；8；-4；8；13；2；-3；4；10；2；3；10；4；9；5；-2；1；-3；15；1；7；1；12；1；11；-2；1；-4；5；4；7；-4；1；-2；2；10；8；14；12；6；7；-1；13；1；7；7；10；9；9；10；0；6；5；6；1；3；2；14；5；7；4；-4；3；-2；8；-2；-1；3；-3；7；9；4；3；2；9；-1；-4；13；-4；4；10；10；11；-1；4；12；12；3；4；2；0；11；6；6；8；-3；9；0；-4；1；14；2；8；2；2；2；-1；-1；3；7；0；9；7；7；-3；-4；-2；0；3；7；1；12；13；6；3；-5；0；-2；8；15；1；0；13；-2；6；7；7；9；12；-3；3；11；0；9；3；12；4；12；-1；10；13；-1；15；14；12；5；8；4；-2；8；7；12；2；-4；5；-4；2；4；1；14；-5；8；7；6；-4；9；1；15；1；2；1；2；0；7；9；0；7；7；15；14；0；11；10；3；8；5；5；-2；14；-1；7；9；-3；8；10；11；4；-3；5；6；-4；3；-3；-2；1；15；7；0；3；4；-4；4；4；14；0；-2；5；2；5；3；0；-4；8；2；6；13；3；7；3；-4；-3；-2；-2；10；0；-2；-4；9；12；5；11；15；5；-4；8；2；1；9；3；3；-1；13；-2；3；7；6；10；-3；1；-5；11；13；1；0；14；-1；3；2；1；15；7；6；-2；13；-4；11；9；0；14；4；9；3；0；7；6；4；8；10；-4；-2；-3；-4；6；14；0；2；13；5；0；12；-4；-2；14；12；11；15；0；8；8；14；3；-4；13；-2；0；7；2；6；13；6；14；10；3；10；6；4；-4；-4；2；3；2；8；-1；4；-2；14；0；-4；11；9；0；11；12；15；0；4；13；13；5；13；6；3；11；10；13；-2；10；8；13；12；11；11；4；10；6；-2；1；4；13；12；3；14；5；15；4；11；1；-3；13；7；12；11；10；13；-4；11；0；0；-4；13；15；0；6；2；-1；-1；-2；7；7；12；-3；-1；8；4；1；12；1；14；3；11；11；7；2；7；8；7；-4；12；-4；-2；1；4；3；12；-4；13；0；-4；11；-4；-2；8；0；12；-1；0；5；7；7；-3；14；3；2；-4；13；5；3；14；0；6；-4；11；4；6；3；-2；10；-1；-1；1；3；10；-3；4；11；6；10；1；-4；7；5；9；2；8；-2；13；2；11；-2；5；-4；10；12；1；3；5；-5；8；15；-3；11；-4；14；15；9；9；-1；-2；14；9；13；-2；-2；0；-4；1；13；0；9；12；-3；11；11；-1；-3；7；-3；7；4；14；-1；1；7；0；1；-3；-5；14；10；4；4；4；12；3；9；3；3；0；0；-4；11；11；2；3；15；9；5；12；2；-2；13；5；11；7；2；14；2；1；-1；10；13；-3；13；7；13；10；2；6；11；-2；11；4；6；-4；-4；12；15；-5；8；14；-3；3；5；13；-2；12；8；-1；-4；13；5；8；-4；-5；14；-1；13；4；-2；1；10；12；0；2；12；12；3；7；-1；14；0；-5；1；7；3；8；10；9；-1；-4；0；-1；
15；-1；8；13；0；0；10；10；3；-2；6；-3；0；12；8；4；6；0；-5；0；14；-4；12；-3；9；0；13；-4；7；5；13；4；12；12；-4；7；5；11；4；15；-2；8；9；10；5；15；12；-2；8；1；12；10；3；-3；7；-3；8；1；-3；8；6；7；12；14；-1；-2；9；11；1；12；11；3；7；2；5；4；7；10；2；0；12；0；-2；-2；0；-1；5；14；3；1；8；0；9；2；-4；14；0；8；15；3；2；4；9；0；12；11；4；-2；-1；0；15；-5；2；9；1；1；-2；1；5；13；-4；10；-4；8；9；11；3；10；-2；14；1；-4；1；8；-2；13；-2；4；14；4；15；4；10；9；-1；-2；8；15；10；6；3；1；10；0；9；7；-1；14；11；8；-4；4；-3；8；11；4；-5；6；7；12；1；1；7；2；6；8；8；-2；9；14；10；14；-2；1；10；0；14；14；12；13；-1；14；-3；11；10；14；4；13；-2；5；3；7；-4；2；10；-3；0；-4；12；-1；10；15；11；5；9；1；-3；2；0；4；2；8；4；12；4；4；7；8；15；-4；6；-4；7；-2；5；4；15；7；10；1；13；12；2；12；5；-1；13；5；15；-4；14；12；1；-1；4；9；1；14；-1；8；-4；13；-4；5；4；-3；-3；2；-4；14；15；6；-5；7；10；3；6；-2；8；-1；7；12；6；14；2；8；-2；10；9；12；11；8；0；4；7；-4；-3；14；0；13；7；-1；12；-1；1；-4；4；2；7；2；14；10；-4；2；3；6；0；14；3；1；14；9；14；5；1；11；-4；-3；9；-1；2；10；-1；2；1；5；14；8；12；4；2；12；7；2；6；-4；13；4；6；-2；-1；7；-4；15；14；13；12；14；3；12；3；4；12；11；8；3；-2；8；-2；-5；1；7；2；9；6；1；-1；4；4；2；15；2；2；14；1；0；0；8；5；14；4；7；1；-1；-3；11；4；4；2；-4；14；7；1；4；2；12；9；13；-1；-3；4；-3；-2；5；12；9；10；-4；0；7；15；11；-1；7；8；14；5；6；3；5；11；13；7；14；-2；13；14；3；15；3；9；6；3；5；10；8；5；-5；8；13；2；4；13；5；4；-1；6；0；5；10；-4；6；4；5；0；8；2；8；12；2；0；-3；11；2；7；0；3；13；2；-1；-3；1；14；-4；14；-1；-1；7；-1；8；5；0；-3；9；-2；-2；-5；-1；0；5；8；10；4；2；10；15；4；-1；11；-1；-2；8；0；12；5；-3；9；11；2；-2；9；8；13；11；0；13；12；-2；-3；-3；0；0；-4；7；5；1；7；-5；4；-3；6；7；13；5；0；15；2；4；14；4；10；-3；0；11；-3；0；-4；0；3；9；7；13；11；8；10；14；0；1；7；14；14；9；2；-3；5；-3；1；2；13；12；-1；-3；2；10；14；8；5；0；0；10；10；-2；9；-2；0；5；1；13；9；8；12；2；2；12；12；11；12；9；5；3；8；-3；0；10；-4；3；-4；9；5；9；4；3；11；11；7；2；-3；6；4；2；8；7；6；9；-4；1；8；10；12；8；-4；8；13；14；8；6；10；0；7；5；5；2；2；1；4；12；2；-3；8；8；11；4；-4；4；11；6；5；12；5；12；2；-2；-3；9；-2；0；-3；4；2；8；12；6；14；15；6；4；7；7；0；12；2；6；-5；-2；11；4；11；4；-3；0；-4；0；2；6；12；-4；9；9；0；4；11；12；13；4；0；2；10；12；-2；3；1；-2；8；-5；10；5；12；13；9；14；-1；0；12；14；10；-4；2；0；-4；-3；10；9；13；-2；13；8；11；0；8；7；-4；5；11；7；13；11；9；7；-4；-3；7；6；0；10；8；15；3；-5；11；11；6；0；1；-3；8；11；-4；10；14；4；11；8；-1；-2；11；8；5；10；4；2；2；2；10；10；7；3；-3；2；-1；9；3；-1；7；14；4；10；14；-2；5；0；-2；11；13；-3；4；8；5；11；13；8；10；13；7；12；0；-2；10；-4；11；-2；-3；2；1；-4；8；14；15；9；9；3；2；8；12；14；8；14；10；1；-3；9；4；-1；-1；0；11；14；1；-1；-3；5；5；1；-5；0；7；12；-3；-5；5；13；10；12；12；6；3；11；8；0；14；2；8；11；8；0；3；3；10；12；15；6；14；4；10；14；11；10；4；-2；2；14；8；5；-3；12；-4；3；-1；-3；7；15；-4；-3；3；9；11；6；-2；2；3；14；5；7；11；10；0；-4；3；-3；-3；4；11；7；-3；3；6；7；-2；11；9；8；-3；-1；13；11；4；11；2；13；14；0；8；4；-4；14；-4；-1；9；9；
10；5；8；1；12；7；4；10；-3；4；2；0；0；-2；13；15；3；10；-5；10；10；-4；6；-4；4；8；9；-2；-4；5；9；12；8；2；0；0；13；12；4；5；7；7；11；1；1；4；6；2；5；1；-1；-4；2；12；7；10；8；12；8；8；0；5；14；7；-2；12；-4；11；2；-3；10；9；15；3；6；4；1；1；10；0；-4；7；-2；0；6；-5；10；4；-1；1；-4；-4；-4；14；-4；14；-5
Selection.TypeText Round(Rnd() * 15 - 5, 1) '生成小于0.2但大于或等于-0.2的值,4位小数Selection.TypeParagraph
Sub Rand()
Selection.TypeText 1 + Int(Rnd() * 14)
Selection.TypeParagraph
End Sub。