word图片适应窗口大小

1.word里如何这样插图片

我用宏帮你做了一个，看能否满足你要求。

同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

Sub test()

Dim xHeight, xWidth, xRatio As Single

Dim xPic As InlineShape

Dim xStart As Long

xHeight = ThisDocument.PageSetup.PageHeight - ThisDocument.PageSetup.TopMargin - ThisDocument.PageSetup.BottomMargin

xWidth = ThisDocument.PageSetup.PageWidth - ThisDocument.PageSetup.LeftMargin - ThisDocument.PageSetup.RightMargin

xRatio = xHeight / xWidth

For Each xPic In ThisDocument.InlineShapes

If xPic.Type = 3 Then

xPic.LockAspectRatio = msoTrue

If xPic.Height / xPic.Width > xRatio Then

xPic.Height = xHeight

Else

xPic.Width = xWidth

xStart = xPic.Range.Start

ThisDocument.Range(xStart, xStart).InsertBreak Type:=wdPageBreak

End If

End Sub

在此界面直接按F5运行此宏，完成。

2.想把粘贴到word的图片一起调整到合适页面的大小,怎么能一起调

【转载自：

我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。

1、Alt+F8调出宏编辑窗口

2、点创建按钮，创建新宏，setpicsize，内容如下：

Sub setpicsize()

'设置图片大小

' 宏在 2008-3-31 由 hero_thm 录制

Dim j '计数图片个数

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes

ActiveDocument.InlineShapes(j).Height = 362 '设置高度

ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度

Next j

End Sub

3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm

Sub setpicsize()

'设置图片大小

' 宏在 2008-3-31 由 hero_thm 录制

Dim j '计数图片个数

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes

If ActiveDocument.InlineShapes(j).Width > 480 Then

ActiveDocument.InlineShapes(j).Width = 400 '设置宽度

End If

Next j

End Sub

3.word在表格中插入图片不会自动适应大小

Word表格中我们选择插入图片当插入图片后大小无法自动填充所选单元格右击目标单元格过好了^0^~好了^0除随后再选择插入图片这时插入的图片大小就会自动填充Word表格中我们选择插入图片当插入图片后大小无法自动填充所选单元格右击目标单元格点击表格属性在表格属性中点击表格选项将这里的自动重调尺寸以适应内容勾选去除随后再选择插入图片这时插入的图片大小就会自动填充Word表格中我们选择插入图片当插入图片后大小无法自动填充所选单元格右击目标单元格点击表格属性在表格属性中点击表格选项将这里的自动重调尺寸以适应内容勾选去除随后再选择插入图片这时插入的图片大小就会自动填充Word表格中我们选择插入图片当插入图片后大小无法自动填充所选单元格右击目标单元格点击表格属性在表格属性中点击表格选项将这里的自动重调尺寸以适应内容勾选去除随后再选择插入图片这时插入的图片大小就会自动填充Word表格中我们选择插入图片当插入图片后大小无法自动填充所选单元格右击目标单元格点击表格属性在表格属性中点击表格选项将这里的自动重调尺寸以适应内容勾选去除随后再选择插入图片这时插入的图片大小就会自动填充Word表格中我们选择插入图片当插入图片后大小无法自动填充所选单元格右击目标单元格点击表格属性在表格属性中点击表格选项将这里的自动重调尺寸以适应内容勾选去除随后再选择插入图片这时插入的图片大小就会自动填充Word表格中我们选择插入图片当插入图片后大小无法自动填充所选单元格右击目标单元格点击表格属性在表格属性中点击表格选项将这里的自动重调尺寸以适应内容勾选去除随后再选择插入图片这时插入的图片大小就会自动填充Word表格中我们选择插入图片当插入图片后大小无法自动填充所选单元格右击目标单元格点击表格属性在表格属性中点击表格选项将这里的自动重调尺寸以适应内容勾选去除随后再选择插入图片这时插入的图片大小就会自动填充Word表格中我们选择插入图片当插入图片后大小无法自动填充所选单元格右击目标单元格点击表格属性在表格属性中点击表格选项将这里的自动重调尺寸以适应内容勾选去除随后再选择插入图片这时插入的图片大小就会自动填充Word表格中我们选择插入图片当插入图片后大小无法自动填充所选单元格右击目标单元格点击表格属性在表格属性中点击表格选项将这里的自动重调尺寸以适应内容勾选去除随后再选择插。

4.如何将word中的图片统一修改成一样尺寸大小,请详细解答

方法/步骤

1. 打开WORD，点击“工具”-“选项”。

2. 在”选项“窗口中，在”编辑”选项卡下，将插入图片的格式选择为“四周型”。

3. 在“插入”菜单中选择“图片”/“来自文件”

4. 在“插入图片“对话框中选择要插入的图片。

5. 在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”

6. 使用“选中多个对象”，将所有插入的图片全部选中。

7. 双击任一图片，在弹出的对话框中，将图片设置一固定尺寸，并取消下方的”锁定纵横比“命令。

8. 这个时候就会发现所有的图片都变成了统一尺寸大小了。

欢迎下载腾讯电脑管家了解更多知识，体验更多功能。

转载请注明出处51数据库 » word图片适应窗口大小