WORD批量更改所有图片大小

2024-05-20 12:37:50

好代码，当然不能只知道收藏，分享给需要的朋友。摘录请注明：

引自：http://miaozk2006.blog.163.com/blog/static/38247058201372684539815/

1、WORD中首先把某待转的某一图片调整到要求的大小，点击这张自己设定的样本图片，打开宏编辑器，拷入下列代码。直接运行即可。

注明：本代码摘息网络，调试测试通过。

Sub 按选择的图片样本设置图片大小()
    Dim s
    Dim r, SelectShape As Boolean
    If Selection.InlineShapes.Count = 1 Then
        SelectShape = True
    ElseIf Selection.ShapeRange.Count = 1 Then

SelectShape = True
End If

If SelectShape And Selection.InlineShapes.Count = 1 Then
        Set s = Selection.InlineShapes(1)
        r = Array(s.Height, s.Width)
    ElseIf SelectShape Then
        Set s = Selection.ShapeRange(1)
        r = Array(s.Height, s.Width)
    End If
    If SelectShape Then
        For Each s In ActiveDocument.InlineShapes
            s.Height = r(0)
            s.Width = r(1)
        Next s
        For Each s In ActiveDocument.Shapes
            If InStr(s.Name, "Picture") > 0 Then
                s.Height = r(0)
                s.Width = r(1)
            End If
        Next s
        MsgBox "已经完成对图片大小的设置"
    Else
        MsgBox "没有选定样本图片"
    End If
End Sub

2、在宏代码更改图片的大小，进行全文批量设置。具体代码如下：

Sub FormatPics()
    Dim iSha As InlineShape
    For Each iSha In ActiveDocument.InlineShapes
        If iSha.Type = wdInlineShapePicture Then
              iSha.LockAspectRatio = msoFalse      '不锁定纵横比
            iSha.Width = CentimetersToPoints(16) '宽5CM
            iSha.Height = CentimetersToPoints(24.5) '高5CM
        End If
    Next
End Sub

相关文章参考：

VBA语言基础

各种Excel VBA的命令

VB6 中将数据导出到 Excel 提速之法

VBA语法200句

各种Excel VBA的命令

Execl编程详解

其它VB相关：

VB软件操作EXCEL教程：※VB全面控制Excel

WORD批量更改所有图片大小相关推荐

Word批量更改图片环绕方式与=尺寸大小
前提:一份Word文档里面有100张图片,有大有小,需要将100张图片更改为统一大小,宽度与高度均为5厘米,同时环绕方式也需要改成四周型. 默认Word图片的默认环绕方式为嵌入型,需要统一更改为四周型 ...
word 批量设置图片大小
word批量修改图片大小--固定长宽篇方法一: 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽! 1.打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示 ...
批量更改图片大小程序
假设我们现在有目标文件夹A,A中包含40个文件夹s1,s2...s40,每个文件夹下包含10张图1,2,3...10.图片大小任意. 我们的目标是在不改变整个图片数据格式的前提下,批量更改图片大小,最 ...
WPS如何并排放置两张图片_WPS表格：如何批量将所有图片大小修改成一致？
如果表格中包含有很多不同尺寸的图片,一个一个修改图片的大小是很麻烦的.怎么样才能批量将所有图片一次性修改成同样的大小呢? 以下面的表格为例,含有两副不同大小尺寸的图片,怎么样一键修改至相同尺寸,这里在 ...
步骤条自定义图片_小技巧丨如何使用word批量调整图片大小？
导Lead语不知道你们有没有遇到需要批量修改图片尺寸的难题?那么,在大量图片的前提下,如何才能快速修改呢? 今天就和大家分享一下我当初的解决方法: 1F在word中添加选择多个对象功能新建一个W ...
如何在Microsoft Word中更改纸张大小
Documents come in different shapes and sizes, like legal or brochure. In Word, you can change the pa ...
用Python批量更改图片大小
#提取目录下所有图片,更改尺寸后保存到另一目录 from PIL import Image import os.path import glob def convertjpg(jpgfile,outd ...
Word批量设置图片大小
写论文需要批量统一图片格式?让我们打开word"宏". 1.查看Word图片属性是像素(px)还是厘米(cm) 如果是厘米,可以参考步骤二设置.如果是像素,跳转到步骤三开始codi ...
powershell + python 批量更改图片大小
python也可以用来搜索到图片,但用powershell更方便简单 powershell图片搜索代码: Get-ChildItem -Path G:\ -Recurse| Where-Object ...

最新文章

热门文章