最新国产好看的视频,伊人天堂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代碼來實(shí)現(xiàn),我們來看下今天的案例,批量修改圖片大小。

一、常規(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 n
End Sub

三、代碼粘貼

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

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

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

相關(guān)文章

最新評論

芒康县| 通城县| 南宫市| 无极县| 德江县| 房产| 马鞍山市| 隆化县| 滨海县| 遂平县| 上犹县| 高邮市| 东城区| 迭部县| 宣化县| 黄大仙区| 三原县| 兰坪| 浑源县| 龙井市| 高碑店市| 宝丰县| 革吉县| 安丘市| 汉川市| 阳原县| 张家界市| 西乌珠穆沁旗| 夹江县| 兴安盟| 彭山县| 新绛县| 巴南区| 揭阳市| 察隅县| 密云县| 洪雅县| 滕州市| 盘锦市| 分宜县| 宜宾市|