wps office的尺寸怎么設(shè)置？圖文并茂的Word文檔往往看起來更美觀、更有說服力。在工作中經(jīng)常會(huì)遇到在Word中插入圖片的情況，有時(shí)甚至?xí)淮涡圆迦霂资畯垐D片。但是這些圖片往往尺寸大小不統(tǒng)一，看起來并不美觀。
接下來依次選中其它的照片后直接按下【F4】鍵，該圖片的尺寸就被快速地設(shè)置為與第1張相同的尺寸了。
方法二：利用VBA實(shí)現(xiàn)
上面的第一種方法沒有任何技術(shù)含量，只要掌握了F4快捷鍵就可以操作。雖然設(shè)置圖片尺寸的速度快，但后續(xù)還是需要一張一張去設(shè)置。如果Word文檔中有幾十張甚至上百?gòu)垐D片的話，操作起來還是挺費(fèi)力的。
接下來小雨介紹的第二種方法，是利用VBA來實(shí)現(xiàn)的。使用這種方法對(duì)Word中文檔的圖片數(shù)量沒有要求，無論有多少?gòu)垐D片都可以一鍵完成設(shè)置。
具體的操作如下：
打開需要統(tǒng)一設(shè)置圖片尺寸的Word文檔，然后按下【Alt+F11】組合鍵打開VBA編輯窗口。
在VBA窗口中雙擊左側(cè)的“ThisDocument”打開該文檔的代碼編輯器，并且輸入以下的內(nèi)容。
Sub FormatPics()
Dim TuPian As InlineShape
For Each TuPian In ActiveDocument.InlineShapes
If TuPian.Type = wdInlineShapePicture Then
TuPian.LockAspectRatio = msoFalse ‘不鎖定圖片的寬高比
TuPian.Width = CentimetersToPoints(10) ‘設(shè)置圖片寬度為10CM
TuPian.Height = CentimetersToPoints(8) ‘設(shè)置圖片高度為8CM
End If
Next
End Sub
運(yùn)行代碼之后再返回查看Word中的圖片，已經(jīng)全部按照代碼中設(shè)置好的尺寸大小調(diào)整好了。其中，上面代碼中的寬度和高度的尺寸可以根據(jù)自己的需求任意調(diào)整。
