【原】DeepSeek與Word才是絕配，批量修改圖片大小，之前我想都不敢想！

Excel從零到一 2025-03-12 發(fā)布于河南

展開全文

一、常規(guī)方法

在Word文檔中想要快速的統(tǒng)一圖片大小，最常見的方法就是F4鍵，具體操作如下動圖，我們需要先點(diǎn)擊1個圖片，然后點(diǎn)擊鼠標(biāo)右鍵找到屬性，不要勾選【鎖定縱橫比】之后設(shè)置長度和寬度

設(shè)置好一個之后，選中其他的圖片，按下F4鍵，來一個一個的設(shè)置。

這個方法數(shù)量少了還行，數(shù)量多了，鍵盤都得按包漿了，這個時候就要請出DeepSeek了

二、代碼編寫

向DeepSeek詢問：

如何在Word文檔中，使用vba代碼將所有圖片大小都修改為寬6cm高4cm

稍等下就會給出如下的代碼，這個代碼只需修改4處，用于設(shè)置圖片的高度與寬度，6是長度，4是寬度，根據(jù)自己的需要來設(shè)置即可

Width = 6 * 28.35

Height = 4 * 28.35

Sub SetPicSizeTo6x4()    Dim n As Integer    '處理嵌入型圖片(InlineShapes)    For n = 1 To ActiveDocument.InlineShapes.Count        With ActiveDocument.InlineShapes(n)            .LockAspectRatio = False  '解除縱橫比鎖定?:ml-citation{ref="1,5" data="citationList"}            .Width = 6 * 28.35        '6cm轉(zhuǎn)換為磅(1cm=28.35磅)?:ml-citation{ref="1,8" data="citationList"}            .Height = 4 * 28.35       '4cm轉(zhuǎn)換為磅?:ml-citation{ref="1,8" data="citationList"}        End With    Next n    '處理浮動型圖片(Shapes)    For n = 1 To ActiveDocument.Shapes.Count        With ActiveDocument.Shapes(n)            .LockAspectRatio = False  '?:ml-citation{ref="5,8" data="citationList"}            .Width = 6 * 28.35            .Height = 4 * 28.35        End With    Next nEnd Sub

三、代碼粘貼

只需打開Word文件，然后點(diǎn)擊【開發(fā)工具】找到【VisualBasic】在窗口的左側(cè)點(diǎn)擊空白區(qū)域，之后點(diǎn)擊鼠標(biāo)右鍵找到【插入】選擇【模塊】將代碼粘貼到右側(cè)，最后按下F5鍵來運(yùn)行這個VBA代碼，即可實(shí)現(xiàn)批量的修改圖片大小。