vb設置word圖片比例

『壹』 word中批量修改圖片大小

小一最近在復習高數，復習材料當然是下載的電子版的了，嘿嘿！不過~~這材料居然~~所有復雜的式子都是圖片形式的，光是這樣小一也就忍了，關鍵高數 嘛~~式子會比較復雜，這些圖片做的又那麼小，根本看不清啊！按住Ctrl+滾輪倒是可以放大，但是這樣不是很方便，而且~~小一還想列印出來呢，怎麼辦 呢？總不能一個圖片一個圖片的修改吧……

聲明：小一下面要說的「批量修改word里的圖片大小」的方法需要使用到宏，所以~~最好對VB有所了解！當然~~這不是必需的，只要跟著小一的圖文教程走，不知道什麼是宏，不知道什麼是VB也可以！

這部分要說的是把word中的所有圖片修改成固定的並且相同的長和寬！

   1、打開word，工具－宏－宏（或者直接按Alt+F8）進入宏的界面，如下面所示，輸入一個宏名，宏名自己起，能記住就行！

2、宏名起好了，單擊「創建」進入Visual Basic 編輯器，輸入如下代碼並保存

   Sub setpicsize() '設置圖片大小

   Dim n '圖片個數

   On Error Resume Next '忽略錯誤

   For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片

   ActiveDocument.InlineShapes(n).Height = 400 '設置圖片高度為 400px

   ActiveDocument.InlineShapes(n).Width = 300 '設置圖片寬度 300px

   Next n

   For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片

   ActiveDocument.Shapes(n).Height = 400 '設置圖片高度為 400px

   ActiveDocument.Shapes(n).Width = 300 '設置圖片寬度 300px

   Next n

   End Sub

3、返回word，工具－宏－宏（或者直接按Alt+F8），再次進入宏的界面，選擇剛才編輯好的宏，並單擊「運行」按鈕，就可以了！（圖片多時，可能會花一些時間）

這部分要說的是把word中的所有圖片按比例縮放！

   具體操作同上，只是代碼部分稍做修改，代碼如下：

   Sub setpicsize() '設置圖片大小

   Dim n '圖片個數

   Dim picwidth

   Dim picheight

   On Error Resume Next '忽略錯誤

   For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片

   picheight = ActiveDocument.InlineShapes(n).Height

   picwidth = ActiveDocument.InlineShapes(n).Width

   ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '設置高度為1.1倍

   ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '設置寬度為1.1倍

   Next n

   For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片

   picheight = ActiveDocument.Shapes(n).Height

   picwidth = ActiveDocument.Shapes(n).Width

   ActiveDocument.Shapes(n).Height = picheight * 1.1 '設置高度為1.1倍

   ActiveDocument.Shapes(n).Width = picwidth * 1.1 '設置寬度為1.1倍

   Next n

   End Sub

雖然小一的代碼不是好代碼，但確實能解決小一的問題，瞬間就把word文檔里所有圖片放大了1.1倍，各種公式、坐標軸都比原來清楚多了，

自動批量處理Word中圖片，主要完成的工作是：重置所有圖片，對所有圖片做裁剪。代碼很簡單，但值得記錄，以後可以參考。

For Each iShape In ActiveDocument.InlineShapes '1cm = 28.35 pt Dim pic If iShape.Type = wdInlineShapePicture Then iShape.Reset iShape.PictureFormat.CropTop = 1.5 * 28.345 iShape.PictureFormat.CropBottom = 1.5 * 28.345 iShape.PictureFormat.CropLeft = 1.2 * 28.345 iShape.PictureFormat.CropRight = 1.2 * 28.345 End If Next iShape End Sub

『貳』 怎樣一次選中word文檔里的所有圖片並調整其大小

其實你誤解了網友寒浪的意思，他說的意思是在按住shift不松，用滑鼠將你文檔頁面中的所有圖片點一遍，使它們全部被選中，這時就可以同時調整所有圖片的大小了。
你可能還會說，那些圖片一次只能選中一個，選第二個時前一個又脫離了被選中狀態。這也有解決的辦法：你先將某個圖片選中，將其的「環繞方式」從「嵌入型」（注意：此時的「尺寸控點」為八個實心的小方塊）改為「穿越型」（「尺寸控點」變為空心的小方塊），將所有的圖片全部改為「穿越型」後，就能在按住shift鍵的同時將文檔中的所有圖片選中，再在「設置圖片格式」中一次性改變它們的大小了。
可要注意是否「鎖定縱橫比」喲！
祝你成功。

『叄』 VB中的圖像如何運用windows的剪貼板粘貼到WORD

在VB中運用Windows剪貼板將圖像粘貼至Word，首先需按下"alt + PRINTSCREEN"鍵截取當前活動窗口。與樓上的方法不同，這里採用的是捕捉活動窗口的一部分而非整個屏幕。接著，打開附件中的畫圖程序，利用其中的選定工具，通常是一個矩形形狀的工具，選中你想要使用的圖像區域。完成選區後，可以通過復制或粘貼功能，將選中的圖像內容轉移至Word文檔中。

在復制過程中，確保已經選中了圖像區域。使用Ctrl + C組合鍵執行復制操作。然後，切換到Word文檔中，通過點擊右鍵選擇「粘貼」選項，或使用快捷鍵Ctrl + V來將圖像粘貼至文檔內。在粘貼過程中，確保Word文檔處於活動狀態，以確保圖像正確地插入並顯示在文檔中。

在使用過程中，可能需要調整圖像大小或位置以適應文檔布局。可以通過點擊插入的圖像，然後使用滑鼠拖動來調整圖像的大小，或點擊圖像周圍的小正方形按鈕調整圖像位置。此外，還可以使用「圖片工具」中的各種選項來進一步編輯圖像，如旋轉、裁剪或添加文本等。

使用Windows剪貼板將圖像粘貼至Word的流程簡單高效，能夠快速將圖像整合至文檔中。通過上述步驟，可以輕松地在VB環境下將圖像運用至Word文檔中，以滿足不同需求。此方法適用於多種場景，如文檔插圖、報告製作等。

『肆』 word中插入圖片高度寬度比例怎樣設置

你好！word中插入圖片最常用的是已經剪裁好的圖片，其高度和寬度已經確定也就是說是鎖定了高度和寬度的比例。插入圖片後雙擊圖片顯示出圖片的編輯界面，這時單擊高度或寬度上的上下箭頭高度和寬度會按比例增大或減小。打開插入圖片的高級設置可以看到默認的選項是勾選了 鎖定縱橫比。我們去掉該項的勾選，這時可以單獨調節高度或寬度的大小，但是調節之後我們會發現圖片已經明顯的變形了。這就表明插入圖片的高度和寬度的比例取決於圖片製作時的比例，插入時只能按比例調整圖片的大小。

鎖定縱橫比

『伍』 word宏代碼--選中的圖片修改尺寸 代碼，不是批量處理

1. VB語言中對圖片大小的設置是以原圖的長寬等比在縮放，統一設置時默認優先對齊所有圖片的「寬度」。
2. ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter '設置圖片居中 可以讓圖片居中，Left、Right可以分別設置左對齊、右對齊。
3. 全文如果有「手動換行符」↓（代碼是^l），設置某一部分居中時會影響漆上下部分的居中與否，因而，如果需要只對圖片進行居中，則需先將全文中的↓替換成「段落標記符」（常規回車鍵，代碼是^p）。
4. 這里的Shapes（InlineShapes）不僅僅是指圖片，也包含其它的，自選圖形、任意多邊形、OLE 對象、ActiveX 控制項、圖片等。
5. InlineShapes類型圖片與Shapes類型圖片的區別有待研究。
按比例縮放篇代碼
Sub setpicsize() '設置圖片大小 Dim n
Dim picwidth Dim picheight
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width

ActiveDocument.InlineShapes(n).Height = picheight * 0.6 '設置高度為0.6倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.6 '設置寬度為0.6倍 Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.6 '設置高度為0.6倍 ActiveDocument.Shapes(n).Width = picwidth * 0.6 '設置寬度為0.6倍 Next n End Sub

『陸』 Word文檔如何排版圖片

品牌型號：ThinkPad T460
系統版本：Windows10
軟體版本：WPS2020
首先打開已經插入好圖片的文檔

『柒』 word如何調整圖片的方向word如何將多張圖片統一調整

導言：word中我們可以單獨設置一個圖片的角度，但是有時候我們如果想設置所有圖片的角度有沒有什麼好辦法呢？答案就是vba操作，有的朋友一聽vba，抱拳就要准備離開，別別別，其實vba使用起來不麻煩的，可以參考《如何批量修改word所有圖片的尺寸》這篇文章的方法，3步就可以使用vba實現目的。
比如我們現在想讓下面的圖片全都順時針旋轉90度
那麼我們的步驟如下
勾選開發工具後，進入vb編輯器，在右面的代碼窗口中輸入
Sub 更改圖片方向()
On Error Resume Next
Application.ScreenUpdating = 0
Dim 浮動圖, 嵌入圖, 旋轉角度$
Set 文檔 = ActiveDocument
旋轉角度 = InputBox("請輸入你想要旋轉的角度" & Chr(13) & "順時針90度輸入 90" & Chr(13) & "逆時針170度輸入 -170")
For 浮動圖 = 1 To 文檔.Shapes.Count
文檔.Shapes(浮動圖).IncrementRotation 旋轉角度
Next 浮動圖
For 嵌入圖 = 1 To 文檔.Range.InlineShapes.Count
With 文檔.Range.InlineShapes(嵌入圖).ConvertToShape
.WrapFormat.Type = 4
.Rotation = 旋轉角度
.ConvertToInlineShape
End With
Next 嵌入圖
Application.ScreenUpdating = 1
MsgBox ("一閃流溢提示：旋轉完畢")
End Sub
關閉vb窗口，按alt+F8，運行這個宏接下來會彈出一個窗口 讓我們輸入旋轉的角度
這里要注意的是如果你想讓圖片逆時針旋轉，那麼就要輸入負值
因為我們想讓所有圖片順時針旋轉90度，所以我們輸入90
稍等片刻後
會彈出一個窗口，提示你所有圖片旋轉完畢
我們關掉窗口，就會看到所有的圖片已經旋轉了90度了
可以參考動圖操作
總結時間
善用vba宏批量操作文檔可以極快地提升工作效率且不易出錯，關注並給我私信，發送關鍵詞「批量旋轉圖片」即可bas代碼源文件哦！

『捌』 VB 如何控制WORD中插入圖片的大小等屬性

自己錄個宏，稍加改動就可以了。

Sub 圖片旋轉270度對齊頁面()
'圖片排版270度
If Selection.InlineShapes.Count = 0 Then
If Selection.ShapeRange.Count <> 0 Then
Selection.ShapeRange.Fill.Visible = msoFalse
'Selection.ShapeRange.AlternativeText = "Higer標書工具修改"
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = 270#
Selection.ShapeRange.Width = CentimetersToPoints(28.9)
Selection.ShapeRange.Height = CentimetersToPoints(20.2)
'Selection.ShapeRange.PictureFormat.Brightness = 0.5
'Selection.ShapeRange.PictureFormat.Contrast = 0.5
'Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
'Selection.ShapeRange.Left = 90.1
'Selection.ShapeRange.Top = 88.15
'Selection.ShapeRange.Left = -120.45
'Selection.ShapeRange.Top = 109.1
Selection.ShapeRange.RelativeHorizontalPosition = _

Selection.ShapeRange.RelativeVerticalPosition = _

Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
Selection.ShapeRange.ZOrder msoSendBackward
End If
End If
If Selection <> "" Then
If Selection.InlineShapes.Count <> 0 Then
'Selection.InlineShapes(1).Fill.Visible = msoFalse
'Selection.InlineShapes(1).Fill.Solid
'Selection.InlineShapes(1).Fill.Transparency = 0#
'Selection.InlineShapes(1).Line.Weight = 0.75
'Selection.InlineShapes(1).Line.Transparency = 0#
'Selection.InlineShapes(1).Line.Visible = msoFalse
'Selection.InlineShapes(1).LockAspectRatio = msoFalse
'Selection.InlineShapes(1).Width = CentimetersToPoints(28.9)
'Selection.InlineShapes(1).Height = CentimetersToPoints(20.2)
'Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
'Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
'Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
'Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
'Selection.InlineShapes(1).PictureFormat.CropRight = 0#
'Selection.InlineShapes(1).PictureFormat.CropTop = 0#
'Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
Selection.InlineShapes(1).ConvertToShape '屬性轉換（InlineShapes(1)轉換為ShapeRange）
Selection.ShapeRange.Fill.Visible = msoFalse
'Selection.ShapeRange.AlternativeText = "Higer標書工具修改"
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = CentimetersToPoints(28.9)
Selection.ShapeRange.Height = CentimetersToPoints(20.2)
Selection.ShapeRange.Rotation = 270#
'Selection.ShapeRange.PictureFormat.Brightness = 0.5
'Selection.ShapeRange.PictureFormat.Contrast = 0.5
'Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
Selection.ShapeRange.RelativeHorizontalPosition = _

Selection.ShapeRange.RelativeVerticalPosition = _

Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.LayoutInCell = True
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
Selection.ShapeRange.ZOrder msoSendBackward
End If
End If
End Sub