确保Excel文档安全的有效加密策略和方法
175
2024-02-04
如何在Word文档中插入相同大小的多张图片？
如何在Word文档中插入相同大小的多张图片？
通常，您可以一次在Word文档中插入原始大小的多个图像。 有时，插入时需要将这些图像排列为相同大小。 本文，我将讨论如何在Word文档中插入相同大小的多张图片。
使用VBA代码在Word文档中插入相同大小的多张图片
使用 Kutools for Word 根据特定图像将所有图片调整为相同大小
使用VBA代码在Word文档中插入相同大小的多张图片以下vba代码可以帮助您插入多张图片，并立即将它们调整为指定的大小，请按以下步骤操作：
1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2。 点击 插页 > 模块，然后将以下代码粘贴到“模块窗口”中。
VBA代码：插入多张相同大小的图片：
Sub InsertSpecificNumberOfPictureForEachPage()
Dim xDlg As FileDialog
Dim xFilePath As String
Dim xFileName As String
Dim xMsbBoxRtn As Long
Dim xPicSize As String
Dim xShape As InlineShape
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show = -1 Then
xFilePath = xDlg.SelectedItems(1) & "\"
Else
Exit Sub
End If
xFileName = Dir(xFilePath & "*.*", vbNormal)
While xFileName <> ""
If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
GoTo LblCtn
End If
With Selection
.InlineShapes.AddPicture xFilePath & xFileName, False, True
.TypeParagraph
.Collapse wdCollapsEnd
.TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeParagraph
End With
LblCtn:
xFileName = Dir()
Wend
ActiveDocument.InlineShapes(1).Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
If xMsbBoxRtn = 6 Then
xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
End If
For Each xShape In ActiveDocument.InlineShapes
xShape.Height = Split(xPicSize, ",")(0)
xShape.Width = Split(xPicSize, ",")(1)
Next xShape
End Sub
3。 然后，按 F5 运行此代码的关键 浏览 显示窗口，请选择包含要插入图像的文件夹，请参见屏幕截图：
4。 然后点击 OK 按钮，并弹出提示框，提醒您是否要调整图片大小，请参见屏幕截图：
5。 点击 是，然后在文本框中输入用逗号分隔的高度和宽度的尺寸编号，请参见屏幕截图：
6。 然后点击 OK，所有插入的图像均已重新排列为相同大小，请参见屏幕截图：
备注：单位大小在VBA代码中为“池塘”。
使用 Kutools for Word 根据特定图像将所有图片调整为相同大小如果您的Word文档中存在多张图片，请使用 Kutools for Word“ 调整图像大小实用程序，您可以快速调整所有图像的大小，使其与特定图像相同。
Kutools for Word : 带有超过100个方便的Word加载项，可以在60天内免费试用.前往下载60天免费试用购买贝宝/ MyCommerce
安装后 Kutools for Word，请这样做：
1。 将一张图片调整为所需的尺寸，然后选择它，然后单击 Kutools 加 > 调整大小 > 通过选择调整图像大小，请参见屏幕截图：
2。 并且此Word文档中的所有图像都立即被调整为与所选图像相同的大小，请参见屏幕截图：
点击下载Kutools for Word并立即免费试用！
最佳办公生产力工具
Kutools for Word - 通过 Over 提升您的文字体验 100显着特点！深入了解下面突出显示的功能或 单击此处探索 Kutools for Word 的全部功能.
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择（PDF/TXT/DOC/XLSX） / 批量转换为PDF / 将页面导出为图像 / 一次打印多个文件 ...
✏ 内容编辑: 批量查找和替换 跨多个文件 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字 ...
🧹 轻松清洁: 扫开 多余的空间 / 分节符 / 所有标题 / 文本框 / 超链接 / 如需更多删除工具，请前往我们的删除组
➕ 创意插入: 插页 千位分隔符 / 复选框 / 单选按钮 / 二维码/ 条码 / 对角线表 / 公式标题 / 图片说明 / 表标题 / 多张图片 / 在我们的插入组中发现更多信息
🔍 精准选择: 精确定位特定页面 / 表 / 形状 / 标题段落 / 使用我们的选择组轻松导航
⭐ 星级增强: 快速导航至任何位置 / 自动插入重复文本 / 在文档窗口之间无缝切换 / 11 转换工具 ...
使用 Kutools 转换您的 Word 任务。 👉 立即下载并试用 30 天 🚀。
了解更多 免费下载 购买
版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。
相关文章
推荐文章
最近发表
