怎樣在word裡批量修改圖片大小
當一個word檔案裡有很多張圖片時,通過使用vba可以批量將檔案中所有圖片修改為同樣大小,令檔案看起來更加整潔有序
操作方法
(01)假設有一個word檔案,中間有多張大小不一的圖片,需要將其中的圖片按比例縮放為一樣高或者一樣寬。
(02)在選單欄中選擇“開發工具”選項卡,點選“Visual Basic”開啟VBA編輯器。
(03)在開啟的編輯器中輸入以下程式碼,稍後做詳細解釋。Sub 設為統一寬度()Dim n x27;圖片個數Dim picwidthDim picheightDim newWidthnewWidth = 300On Error Resume Next '忽略錯誤For n = 1 To t 'InlineShapes 型別圖片picheight = neShapes(n)htpicwidth = neShapes(n)neShapes(n)ht = picheight * newWidth / neShapes(n)h = newWidthNext nFor n = 1 To t 'Shapes型別圖片picheight = es(n)htpicwidth = es(n)t neShapes(n)ht = picheight * newWidth / neShapes(n)h = newWidthNext nEnd SubSub 設為統一高度()Dim n '圖片個數Dim picwidthDim picheightDim newHeightnewHeight = 200 '設為統一高度時修改此數值On Error Resume Next '忽略錯誤For n = 1 To t 'InlineShapes 型別圖片picheight = neShapes(n)htpicwidth = neShapes(n)neShapes(n)ht = neShapes(n)h = picwidth * newHeight / picheightNext nFor n = 1 To t 'Shapes型別圖片picheight = es(n)htpicwidth = es(n)t neShapes(n)ht = neShapes(n)h = picwidth * newHeight / picheightNext nEnd Sub
(04)sub後面就是一個過程的名字,想要執行哪個過程,就把活動游標放在哪個過程體裡面,或者在右上角選擇相應名稱的過程。按F5鍵,或者單擊選單欄上的執行按鈕,執行相應過程。
(05)如果執行的是“設為統一寬度”,將得到以下結果。
(06)如果執行的是“設為統一高度”,將得到以下結果。
(07)也可以通過直接設定程式碼中的neShapes(n)ht、neShapes(n)h、neShapes(n)ht、neShapes(n)h的數值來修改圖片,例如“neShapes(n)ht=200”。但是這樣就不是等比例縮放了。
特別提示
執行之前注意選擇需要執行的過程
-
如何將圖片轉換成word文字
在工作生活中,我們經常為圖片文字識別的問題而煩惱,要知道圖片中的文字是不可編輯的,我們如果想將圖片中的文字提取出來,就只能使用識別工具對圖片進行識別,將其轉換成Word文字。可是,我們要選擇哪一款識別工具呢?大家如何將圖片轉換成Word文字呢?下面我們就一起來看看...
-
電腦無法訪問指定裝置路徑或檔案怎麼辦
關於電腦,現在很多人都在用它,但是有時候在開啟一個程式的時候會發現突然顯示警告說無法訪問指定裝置路徑或檔案,下面我來教大家一種方法來解決這個問題。操作方法(01)首先我們要清楚我們安裝的這個程式,也就是軟體安裝位置在哪個盤,如果不清楚就點選滑鼠右鍵,然後開啟...
-
愛剪輯怎樣擷取視訊
今天的這篇和大家聊一聊關於愛剪輯怎樣擷取視訊的問題,希望能夠幫助到有需要的朋友。操作方法(01)首先左鍵雙擊愛剪輯圖示,開啟軟體,然後左鍵單擊片名旁邊的輸入框,輸入“示例”字樣,然後左鍵單擊製作者旁的輸入框,輸入“示例”字樣,左鍵單擊確定。(02)然後左鍵單擊左側的...
-
在Word文件中怎麼樣進行簡繁體轉換?
字型有繁體和簡體之分,而Word文件主要的功能是記錄儲存文字文字,可能由於區域不一樣,有的喜歡用簡體有的喜歡用繁體,為了方便檢視,就需要用到簡繁體的相互轉換了。操作方法(01)方法一:比較常用的,就是用Word文件自帶的簡繁體轉換功能,找到審閱——簡轉繁——便可將選擇的...