==========================

Sub 圖片后加回車()Dim s As ShapeDim pg As Paragraph'先將圖片批量轉換為嵌入型For Each s In ActiveDocument.ShapesWith sIf s.Type = msoPicture Thens.ConvertToInlineShapeEnd IfEnd WithNext s'遍歷所有段落For Each pg In ActiveDocument.Paragraphs'計算段落內的圖片數量pgCount = pg.Range.InlineShapes.CountIf pgCount > 0 ThenWith pg.Range.SelectSelection.MoveUp unit:=wdParagraph, Extend:=wdMoveSelection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdMoveSelection.InsertAfter Chr(13)End WithEnd IfNext pgEnd Sub

==========================

Sub 批量設置圖片大小()Dim n, mDim blnisinlineshape As BooleanDim mylineshape As InlineShapeOn Error Resume Next '忽略錯誤m = ActiveDocument.InlineShapes.CountFor n = 1 To 2 'inlineshapes類型的圖片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不鎖定圖片的縱橫比ActiveDocument.InlineShapes(n).Height = 153 '設置圖片高度為 243pxActiveDocument.InlineShapes(n).Width = 243 '設置圖片高度為153pxNext nFor n = 1 To 2 'inlineshapes類型的圖片ActiveDocument.Shapes(n).LockAspectRatio = msoFalse '不鎖定圖片的縱橫比ActiveDocument.Shapes(n).Height = 153 '設置圖片高度為 153pxActiveDocument.Shapes(n).Width = 243 '設置圖片高度為243pxNext nFor n = 3 To m 'inlineshapes類型的圖片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不鎖定圖片的縱橫比ActiveDocument.InlineShapes(n).Height = 297 '設置圖片高度為 297pxActiveDocument.InlineShapes(n).Width = 405 '設置圖片高度為405pxNext nFor n = 3 To m 'inlineshapes類型的圖片ActiveDocument.Shapes(n).LockAspectRatio = msoFalse '不鎖定圖片的縱橫比ActiveDocument.Shapes(n).Height = 297 '設置圖片高度為 297pxActiveDocument.Shapes(n).Width = 405 '設置圖片高度為405pxNext nWith Selection.ParagraphFormat.LeftIndent = CentimetersToPoints(0).RightIndent = CentimetersToPoints(0).SpaceBefore = 50.SpaceBeforeAuto = False.SpaceAfter = 50.SpaceAfterAuto = False.LineSpacingRule = wdLineSpaceMultiple.LineSpacing = LinesToPoints(3).Alignment = wdAlignParagraphCenter.WidowControl = False.KeepWithNext = False.KeepTogether = False.PageBreakBefore = False.NoLineNumber = False.Hyphenation = True.FirstLineIndent = CentimetersToPoints(0).OutlineLevel = wdOutlineLevelBodyText.CharacterUnitLeftIndent = 0.CharacterUnitRightIndent = 0.CharacterUnitFirstLineIndent = 0.LineUnitBefore = 10.LineUnitAfter = 10.MirrorIndents = False.TextboxTightWrap = wdTightNone.AutoAdjustRightIndent = True.DisableLineHeightGrid = False.FarEastLineBreakControl = True.WordWrap = True.HangingPunctuation = True.HalfWidthPunctuationOnTopOfLine = False.AddSpaceBetweenFarEastAndAlpha = True.AddSpaceBetweenFarEastAndDigit = True.BaseLineAlignment = wdBaselineAlignAutoEnd WithEnd Sub

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

==========================

?

總結

以上是生活随笔為你收集整理的Word VBA-图片操作汇总的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。