宏命令对word里的图片尺寸大小进行批量修改（按比例修改）

Sub 批量调整图片尺寸()
'锁定图片的纵横比
'设置图片大小（1cm=28.35px）
SizeHeight = 22.33 * 28.35 '设置图片高度
SizeWidth = 15.78 * 28.35 '设置图片宽度
SizeProportion = SizeHeight / SizeWidth '纵横比
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).LockAspectRatio = msoTrue '解除纵横比锁定
PictureHeight = ActiveDocument.InlineShapes(n).Height
PictureWidth = ActiveDocument.InlineShapes(n).Width
PictureProportion = PictureHeight / PictureWidth '纵横比
If (PictureProportion > SizeProportion) Then
ActiveDocument.InlineShapes(n).Height = SizeHeight '设置图片高度
ActiveDocument.InlineShapes(n).Width = ((SizeHeight) / PictureHeight) * PictureWidth '设置图片宽度
ElseIf (PictureProportion <= SizeProportion) Then
ActiveDocument.InlineShapes(n).Width = SizeWidth '设置图片宽度
ActiveDocument.InlineShapes(n).Height = ((SizeWidth) / PictureWidth) * PictureHeight '设置图片高度
Else
ActiveDocument.InlineShapes(n).Height = SizeHeight  '设置图片高度
ActiveDocument.InlineShapes(n).Width = SizeWidth '设置图片宽度
End If
Next n
Application.ScreenUpdating = True
End Sub

宏命令对word里的图片尺寸大小进行批量修改（按比例修改）相关推荐

批量修改文件夹里的图片尺寸大小
using System.Drawing; public void ys() { DirectoryInfo di = new DirectoryInfo(@"F:\Prac ...
王者荣耀头像大小怎么调？调整图片尺寸大小工具分享
手游王者荣耀换头像后,发现头像显示不全怎么办?很多小伙伴都发现了如果上传的图片尺寸过大会导致头像只显示一半,这时候需要修改图片大小来调整图片尺寸,怎么才能缩小图片尺寸呢?今天小编就推荐一款图片改大小( ...
【matplotlib绘图】调整图片尺寸大小
[matplotlib绘图]调整图片尺寸大小核心代码如下: import matplotlib.pyplot as plt plt.rcParams['figure.figsize'] = (12. ...
MAC如何查看图片尺寸大小
MAC如何查看图片尺寸大小操作步骤: 选中图片,点击右键,选择[显示简介]或按快捷键 Ctrl+i .
电脑如何修改图片尺寸大小？怎么图片改大小？
在电脑如何修改图片尺寸大小?遇到这种情况我们可以使用压缩图的图片改大小功能,可以直接图片改大小在线处理,非常方便,下面来看看具体步骤吧. 1.使用电脑浏览器打开压缩图选择图片改大小. 2.上传需要修 ...
如何扩大图片尺寸大小？图片怎么编辑大小尺寸？
有我们在网上找图片素材的时候,有时候会发现找到的图片尺寸很小,导致无法使用,只能将这张图片扩大尺寸.怎么放大图片尺寸呢?其实我们可以使用图片改大小(在线修改图片尺寸大小工具-压缩图)工具来修改图片大小 ...
python 修改图片尺寸_用Python更改图片尺寸大小
1.PIL包推荐Pillow. 2.源码:#encoding=utf-8 #author: walker #date: 2014-05-15 #function: 更改图片尺寸大小 import os ...
python 修改图片尺寸_Python实现更改图片尺寸大小的方法(基于Pillow包)
本文实例讲述了Python实现更改图片尺寸大小的方法.分享给大家供大家参考,具体如下: 1.PIL包推荐Pillow. 2.源码: #encoding=utf-8 #author: walker #d ...
html 图片比例 js,js自动等比例设置图片尺寸大小
css 图片等比例缩放首页产品展示的图片都变形了,客户要求图片等比例大小,和产品展示的效果一样: css控制图. 网站的内容页面,经常要放图片,如果图片太大会撑出,影响页面美观. > HTML ...

宏命令对word里的图片尺寸大小进行批量修改（按比例修改）

宏命令对word里的图片尺寸大小进行批量修改（按比例修改）相关推荐

最新文章

热门文章