Word图片过大溢出了A4纸面问题

题目：Word中有很多粘帖进来的图片，由于图片尺寸过大年夜已溢出了A4纸面，所以需要同一调剂所有图片的尺寸，测验测验过“替换”--将^g替换为“格式”--“图文框”--指定宽度和长度这个别例，发现图片都套上了一个个的图文框，图文框是遵循指定的宽度和长度缩小了，可是实际图片没有整体缩小，而是只显示了规定宽度和长度的阿谁区域的图象，请问各位有甚么编制可以或许解决批量点窜这些图片的题目？

解答：
对嵌入式图形，可利用VBA完成同一设置宽高数据，以下：
Sub 同一图片尺寸()
'仅适用于嵌入式图片

    Dim oInlineShape As InlineShape  
    For Each oInlineShape In ActiveDocument.InlineShapes  
        With oInlineShape  
            .LockAspectRatio = msoFalse    '不锁定纵横比  
            .Height = MillimetersToPoints(23)    '以毫米为单位设置高度  
            .Width = MillimetersToPoints(31)    '以毫米为单位设置宽度  
        End With  
    Next  
End Sub 

对浮动式图形，可利用以下编制简单实现：

第1步，单击【画图】东西栏右则的 （东西栏选项）按钮，顺次单击【添加或删除按钮】/【画图】/【选中多个对象】号令，【选中多个对象】号令将被添加到【画图】东西栏的最后位置。
第2步，单击【画图】东西栏中的 （选中多个对象）按钮，弹出【选择多个对象】对话框。
第3步，单击【全选】按钮，【对象】列表框中的所有对象被全数选定。
第4步，单击【肯定】按钮，Word全选文档中的所有图片。
第5步，单击【格式】/【图片】号令，打开【设置图片格式】对话框，单击【大年夜小】选项卡，在【高度】框中输入“23”（毫米），在【宽度】框中输入“31”（毫米）。第6步，单击【肯定】按钮，Word将所有图片同一设置成23mm*31mm（高*宽）。