admin管理员组文章数量:1536472
2024年5月11日发(作者：)
word中批量修改图片大小的两个方法
对于把ppt的内容拷贝到word中：
对ppt的一页进行复制，然后粘贴到word中
如果要的是ppt运行过程中的内容，在qq运行的情况下，按Ctrl+Alt+A
截屏，按勾，然后可以直接粘贴到word中(生成的图片已经在剪贴板
中了)
1.图片只需要符合文档大小即可
方法：插入图片，word自动处理图片大小。
看一下下方的文件名
按Ctrl+A(全选)，图片的顺序按照电脑文件的顺序排列的
每一次按Ctrl+点击图片，被点击的图片放在首位
效果：
2.图片需要修改为具体的大小
把图片复制，直接在word中粘贴，图片以原始大小显示
按视图
按宏，查看宏，输入setpicsize，按创建
复制并粘贴以下程序 并按调试+编译，看看程序有没有错误
Sub setpicsize()
Dim i
Dim Height, Weight
Height = 300
Weight = 200
On Error Resume Next 忽略错误
For i = 1 To InlineShapes类型图片
Shapes(i).Height = Height 设置图片高度为
Height_px
Shapes(i).Width = Weight 设置图片宽度
Weight_px
Next i
For i = 1 To Shapes类型图片
(i).Height = Height 设置图片高度为
Height_px
(i).Width = Weight 设置图片宽度 Weight_px
Next i
End Sub
如果没有错误，保存(Ctrl+S)并退出(Alt+F4)
然后按宏，查看宏，选择名字为setpicsize的宏，并按运行，稍等片
刻即可完成
或者直接在代码页面按运行+运行子过程(F5)
效果：
程序二
修改第x张图片到第y张图片的大小(可以分成很多段)
Sub ModifyPhoto1()
Dim i, x, y
Dim Height, Weight
Height = 80
Weight = 100
修改第x张图片到第y张图片的大小
x = 4
y = 13
On Error Resume Next 忽略错误
For i = 1 To InlineShapes类型图
片
If i >= x And i Shapes(i).Height =
Height 设置图片高度为 Height_px
Shapes(i).Width = Weight 设置图片宽度
Weight_px
End If
Next i
For i = 1 To Shapes类型图片
If i > k Then
(i).Height = Height 设置图片高度为
Height_px
(i).Width = Weight 设置图片宽度
Weight_px
End If
Next i
End Sub
效果：
版权声明：本文标题：word中批量修改图片大小的两个方法 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1715363706a448422.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论