最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

批量修改圖片大小! DeepSeek搭配Word文檔才是絕配

  發(fā)布時間:2025-06-02 17:33:54   作者:佚名   我要評論
最近我發(fā)現(xiàn)DeepSeek與Word才是絕配,通過VBA代碼可以批量修改圖片大小,下面我們就來看看詳細(xì)操作步驟,內(nèi)附代碼

之前跟大家分享很多DeepSeek與Excel的使用方法,最近我發(fā)現(xiàn)DeepSeek與Word才是絕配,能夠解決很多重復(fù)且繁瑣的工作,主要還是通過VBA代碼來實現(xiàn),我們來看下今天的案例,批量修改圖片大小。

一、常規(guī)方法

在Word文檔中想要快速的統(tǒng)一圖片大小,最常見的方法就是F4鍵,具體操作如下動圖,我們需要先點擊1個圖片,然后點擊鼠標(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 n
End Sub

三、代碼粘貼

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

至此設(shè)置完畢,Word的VBA代碼一般都比較簡單,DeepSeek來寫代碼正確率都是比較高的,大家可以試一下,之前一些重復(fù)性的工作都可以編寫為代碼,一勞永逸!

推薦閱讀:秒變公司筆桿子! 3分鐘教你將DeepSeek接入到Word的全部流程

相關(guān)文章

最新評論

高安市| 吉林省| 乃东县| 江口县| 保山市| 烟台市| 周至县| 石阡县| 巴楚县| 柘城县| 朝阳区| 宾阳县| 扎鲁特旗| 云林县| 桂东县| 定兴县| 东山县| 柳江县| 资源县| 合作市| 长丰县| 来凤县| 汶川县| 炉霍县| 上犹县| 日照市| 兴城市| 湾仔区| 日土县| 竹山县| 西充县| 思南县| 东港市| 洱源县| 宜宾县| 云和县| 枞阳县| 囊谦县| 九龙城区| 大埔县| 宾阳县|