偶然發現這個黑科技，word 居然可以寫特么代碼（宏 + VBA）
宏是什么鬼 玩過魔獸世界的小伙伴們指定不會陌生，那特么VBA是什么鬼，翻譯成中文就是 Visual Basic for Applications（VBA）是Visual Basic的一種宏語言
由於微軟Office軟件的普及，人們常見的辦公軟件Office軟件中的Word、Excel、Access、Powerpoint都可以利用VBA使這些軟件的應用更高效率，例如：通過一段VBA代碼，可以實現畫面的切換；可以實現復雜邏輯的統計（比如從多個表中，自動生成按合同號來跟蹤生產量、入庫量、銷售量、庫存量的統計清單）等。
下面，一起來看看操作技巧：
（1）首先插入圖片或直接打開已有圖片的Word圖文文檔。
（2）直接按【Alt+F8】打開 “宏”對話框，在“宏名”文本框中輸入宏名稱"setpicsize"，然后點擊“創建”按鈕。
3）打開VBA編輯器（也可直接按【Alt+F11】快捷鍵），刪除窗口中原有的通用代碼，然后將下面的代碼復制粘貼到窗口中。
Sub setpicsize() '設置圖片尺寸
Dim n '圖片個數
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 類型 圖片
ActiveDocument.InlineShapes(n).Height = 198.45 '設置圖片高度為 7cm
ActiveDocument.InlineShapes(n).Width = 283.5 '設置圖片寬度 10cm
Next n
End Sub
技巧提示：代碼中圖片的寬度（Height ）= 170.1 '設置圖片高度為 6cm ）；高度（Width） = 283.5 '設置圖片寬度 10cm，是如何計算得出的。
方法為：Word中的尺寸單位默認是cm（厘米），而1cm等於28.35px（像素），由於代碼中換算設置的單位是px（像素）。所以就用尺寸高度或寬度值乘像素值。即為：7*28.35=198.45；寬度換算方法與此相同。
（4）然后按【Ctrl + S 】鍵保存內容，關閉窗口。再次按【ALT + F8】打開 “宏”對話框查看宏，點擊“運行”按鈕。此時，文檔中的所有圖片就會自動的變成設置好的尺寸大小了。
但是，細心的小伙伴會發現，上方文檔中圖片的高度還是不一樣，是怎么回事？這是由於勾選了“鎖定縱橫比”復選框（是Word為了調整圖片尺寸時，為保持圖片不變形而默認勾選的選項）。
————————————————
版權聲明：本文為CSDN博主「Unity_阿黃」的原創文章，遵循CC 4.0 BY-SA版權協議，轉載請附上原文出處鏈接及本聲明。
原文鏈接：https://blog.csdn.net/ldy597321444/article/details/86152200