word文档如何批量修改图片大小
2016-05-26 14:41
190 查看
參考:http://www.360doc.com/content/10/0921/22/2619988_55466952.shtml
Sub FormatPics()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(5) '宽5CM
iSha.Height = CentimetersToPoints(5) '高5CM
End If
Next
End Sub
相关文章推荐
- NEFU 617 贪心
- 过滤器
- 等待网络服务是否可用
- python Flask restful框架
- 仿淘宝Banner:左右滑动ViewPager+最后一张滑动查看详情
- js获取select标签选中的值
- 同步容器类
- 关于程序设计中INF和MOD值的设定
- 关于广告联盟的高价词问题
- Spring MVC Request method 'POST' not supported错误
- Unity 2D射线与 3D射线 UI射线
- 中文python笔记
- github付钱吃亏记
- android网络安全
- document.write 存在几个问题?应该注意
- 修改第三方库内容,carsh提示"image not found"
- js中几种实用的跨域方法原理详解
- Java-常见错误集锦
- AgularJS中Unknown provider: $routeProvider错误的解决方法
- oracle 怎样查询某用户下的所有表的表名??