99国产精品欲av蜜臀,可以直接免费观看的AV网站,gogogo高清免费完整版,啊灬啊灬啊灬免费毛片

網易首頁 > 網易號 > 正文 申請入駐

Word批量修改圖片環繞與尺寸大小

0
分享至



前提:一份Word文檔里面有100張圖片,有大有小,需要將100張圖片更改為統一大小,寬度與高度均為5厘米,同時環繞方式也需要改成四周型。



默認Word圖片的默認環繞方式為嵌入型,需要統一更改為四周型,然后才能批量更改大小,而批量更改大小方式需要使用VBA代碼。

第一步:打開Word 文檔,并按下 Alt + F11 鍵(筆記本電腦按alt+fn+f11),打開Visual Basic for Applications (VBA) 編輯器。在 VBA 編輯器中,選擇 "插入" -> "模塊",創建一個新的模塊,如下圖所示輸入對應的代碼。



第二步:在(VBA) 編輯器輸入對應的過程代碼:

VBA代碼:

' 作用:循環遍歷所有的環繞方式為嵌入型圖片,將其更改為四周型

Sub ConvertInlineToSquareWrap()

Dim pic As InlineShape

' 循環遍歷所有的嵌入型圖片

For Each pic In ActiveDocument.InlineShapes

' 檢查是否為圖片類型

If pic.Type = wdInlineShapePicture Then

' 設置為四周型

pic.Select

Selection.ShapeRange.WrapFormat.Type = wdWrapSquare

End If

Next pic

End Sub

VBA代碼:

' 作用:更改圖片大小(對環繞方式為四周型或上下型起作用,如果是嵌入型不起作用)

Sub ResizeImages()

Dim shp As Shape

' 更改下面的寬度和高度為所需的尺寸(以厘米為單位)

Dim targetWidth As Single

targetWidth = CentimetersToPoints(5) ' 例如,將圖片寬度調整為5厘米

Dim targetHeight As Single

targetHeight = CentimetersToPoints(5) ' 例如,將圖片高度調整為5厘米

' 循環處理文檔中的所有圖片

For Each shp In ActiveDocument.Shapes

If shp.Type = msoPicture Then

' 更改圖片大小

shp.LockAspectRatio = msoFalse

shp.Width = targetWidth

shp.Height = targetHeight

End If

Next shp

End Sub

說明:在targetWidth = CentimetersToPoints(5) ,這個地方可以更改對應的最終目標圖片的寬度;targetHeight = CentimetersToPoints(5) 可以更改對應的最終目標圖片的高度;

運行宏:在VBA 編輯器中,選擇 "運行" -> "運行子過程",或按下 F5 鍵。

第三步:關閉VBA 編輯器回到Word中,選擇 "開發工具" -> "宏",在彈出的宏對話框,如下圖所示,宏對話框列表就會出現創建的過程,依次選定單擊運行即可批量更改圖片大小。



http://www.dushuwu.net/?570.html

特別聲明:以上內容(如有圖片或視頻亦包括在內)為自媒體平臺“網易號”用戶上傳并發布,本平臺僅提供信息存儲服務。

Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.

相關推薦
熱點推薦
當東芝拒絕發貨,美的陷入一場信任危機

當東芝拒絕發貨,美的陷入一場信任危機

青橙財經
2025-07-12 22:59:09
最快一條,進博會前開通!今年,上海將建成兩條地鐵線路

最快一條,進博會前開通!今年,上海將建成兩條地鐵線路

上觀新聞
2025-07-14 19:30:41
毛主席逝世后,江青撲在主席遺體上痛哭,說了12個字讓醫生落淚

毛主席逝世后,江青撲在主席遺體上痛哭,說了12個字讓醫生落淚

紀實文錄
2025-06-25 16:15:33
俄羅斯披露的朝鮮戰爭,有點顛覆過往認知

俄羅斯披露的朝鮮戰爭,有點顛覆過往認知

年代回憶
2025-07-14 20:39:20
突厥戰矛VS斯拉夫長劍,阿塞拜疆“圖蘭”軍團殲滅俄軍一個連

突厥戰矛VS斯拉夫長劍,阿塞拜疆“圖蘭”軍團殲滅俄軍一個連

史政先鋒
2025-07-13 13:30:26
涉嫌嚴重違紀違法,王春陽任上被查

涉嫌嚴重違紀違法,王春陽任上被查

政知新媒體
2025-07-14 15:16:50
重大突破!英國發明治禿神器,20天長出90%毛發!

重大突破!英國發明治禿神器,20天長出90%毛發!

徐德文科學頻道
2025-07-11 12:30:54
汪小菲如愿以償!給女兒牽馬笑成一朵花,小玥兒一個舉動看哭網友

汪小菲如愿以償!給女兒牽馬笑成一朵花,小玥兒一個舉動看哭網友

科學發掘
2025-07-15 00:03:34
中美稀土走私鏈曝光!中方揪出大量 “內鬼”,商務部重拳出擊

中美稀土走私鏈曝光!中方揪出大量 “內鬼”,商務部重拳出擊

妙知
2025-07-14 18:00:29
史上最高獎金紀錄誕生!2024-25賽季斯諾克獎金總額突破1800萬鎊

史上最高獎金紀錄誕生!2024-25賽季斯諾克獎金總額突破1800萬鎊

硯底沉香
2025-07-14 16:36:45
哈登替補?布羅格登有望加盟快船,老將后衛成奪冠拼圖

哈登替補?布羅格登有望加盟快船,老將后衛成奪冠拼圖

湖人侃球師
2025-07-14 23:16:56
妹妹結婚借走我30萬項鏈,歸還時說丟了,我笑著說是假的,她卻慌了

妹妹結婚借走我30萬項鏈,歸還時說丟了,我笑著說是假的,她卻慌了

澤澤先生
2025-07-09 14:30:00
13年前男孩扶人被訛百萬,老太發誓“騙人死全家”,后來成真了嗎

13年前男孩扶人被訛百萬,老太發誓“騙人死全家”,后來成真了嗎

校長侃財
2025-02-14 11:50:00
重慶一游樂場游客暴雨中被掛游樂設備上淋濕,每人獲賠10萬?景區:不實

重慶一游樂場游客暴雨中被掛游樂設備上淋濕,每人獲賠10萬?景區:不實

瀟湘晨報
2025-07-14 15:24:16
1993年東航MU583事件回顧:危急之際,俄羅斯拒絕,美國伸出援手

1993年東航MU583事件回顧:危急之際,俄羅斯拒絕,美國伸出援手

深度報
2025-07-14 22:40:47
突然閉店!11家門店全關!退款無門!淮安情況……

突然閉店!11家門店全關!退款無門!淮安情況……

淮安網
2025-07-14 15:26:49
特朗普世俱杯“翻車”?8萬球迷齊噓,大罵騙子,甚至豎出中指!

特朗普世俱杯“翻車”?8萬球迷齊噓,大罵騙子,甚至豎出中指!

國際情爆猿
2025-07-14 10:13:01
想不到吧?核武器的最終極技術秘密竟然是一根銅絲

想不到吧?核武器的最終極技術秘密竟然是一根銅絲

軍武數據庫
2025-07-14 13:48:23
王鷗疑似和何九華領證結婚,在老家南寧登記,媒體拍到一家三口

王鷗疑似和何九華領證結婚,在老家南寧登記,媒體拍到一家三口

阿廢冷眼觀察所
2025-07-15 01:41:21
恩里克坦言自己太愚蠢:我只是想把大家拉開,不想讓情況變糟糕

恩里克坦言自己太愚蠢:我只是想把大家拉開,不想讓情況變糟糕

雷速體育
2025-07-14 07:52:38
2025-07-15 03:44:49
Excel老陳學堂 incentive-icons
Excel老陳學堂
提供原創的OFFICE教程
130文章數 2847關注度
往期回顧 全部

頭條要聞

20天超2000次地震 日本一地被震麻了

頭條要聞

20天超2000次地震 日本一地被震麻了

體育要聞

高考數學滿分的他,說要成為1/3個鄧肯

娛樂要聞

秦嵐辛芷蕾聚餐熱聊 結束直奔魏大勛家

財經要聞

探究新茶飲賽道爆發的“內核”

科技要聞

DeepSeek流量下滑,這半年梁文鋒都干了啥

汽車要聞

余承東親發預告:鴻蒙智行首款旅行車享界S9T來了

態度原創

藝術
數碼
時尚
親子
本地

藝術要聞

故宮珍藏的墨跡《十七帖》,比拓本更精良,這才是地道的魏晉寫法

數碼要聞

華為穿戴產品發貨超兩億只,其中 GT 系列超 5200 萬只

為什么她身材不好,依然把吊帶裙穿的很高級

親子要聞

不給女兒穿裙子,真的可以防侵犯嗎?

本地新聞

褲子那里鼓鼓的,當代都市麗人都被女裝做局了

無障礙瀏覽 進入關懷版 主站蜘蛛池模板: 临洮县| 涿鹿县| 贵港市| 郯城县| 同德县| 绥棱县| 瑞丽市| 永春县| 陇南市| 边坝县| 博湖县| 沙雅县| 尤溪县| 正阳县| 南澳县| 西畴县| 江孜县| 晋宁县| 道孚县| 徐闻县| 图木舒克市| 如皋市| 南昌市| 寻乌县| 周宁县| 丰镇市| 板桥市| 南江县| 永州市| 蒙阴县| 河间市| 永胜县| 河源市| 福建省| 黄石市| 奉化市| 宁蒗| 天全县| 包头市| 银川市| 蒙山县|