如何在Excel中将图片从工作表复制到用户窗体？

本文将向您展示将图片从活动工作表复制到Excel中的用户窗体的方法。

通过复制和粘贴将图片从工作表复制到用户窗体
使用VBA代码将图片从工作表复制到用户窗体

通过复制和粘贴将图片从工作表复制到用户窗体

请按照以下步骤将图片从工作表复制到用户窗体。

1. 切换到包含需要复制到用户窗体的图片的工作表，然后同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，请点击 插入 > 用户窗体。参见截图：

3. 现在请在用户窗体中插入一个图像控件。请点击工具箱对话框中的图像按钮，然后手动在用户窗体中绘制一个图像控件。参见截图：

4. 右键单击插入的图像控件，并从上下文菜单中点击属性，如下截图所示：

5. 然后您可以看到一个属性面板显示在 Microsoft Visual Basic for Applications 窗口的左侧。

6. 返回工作表并选择要在用户窗体中显示的图片，然后按 Ctrl + C 键复制该图片。

7. 再次进入 Microsoft Visual Basic for Applications 窗口，向下滚动并点击 图片字段，然后在字母选项卡下粘贴复制的图片名称。

现在工作表中的图片已复制到用户窗体中。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

使用VBA代码将图片从工作表复制到用户窗体

本节将向您展示一种解决方法，将多张图片从工作表复制到用户窗体，然后通过从组合框中选择图片名称，在用户窗体中显示相应的图片。请按照以下步骤操作。

1. 请按照上述步骤1和步骤2在您的工作表中插入一个用户窗体。

2. 然后如下截图所示，将框架控件插入到用户窗体中：

3. 右键单击插入的框架，并从上下文菜单中选择属性。在左侧的属性面板中，请从可见字段中选择否。参见截图：

4. 如下截图所示，将多个图像控件插入到框架中。

5. 返回工作表并选择要在用户窗体中显示的图片，然后按 Ctrl + C 键复制它。

6. 进入 Microsoft Visual Basic for Applications 窗口，右键单击第一个图像控件，并从右键菜单中选择属性。参见截图所示。

7. 在属性面板中，请点击图片字段，然后按 Ctrl + V 键粘贴您在步骤5中复制的图片，然后从图片大小模式下拉列表中选择 1 – fmPictureSizeModeStrtch，如下截图所示。

8. 重复步骤5至7，将其他图片从工作表粘贴到用户窗体左侧的图像控件中。结果将如下截图所示。

9. 将框架控件移动到用户窗体的角落，然后插入一个新的图像控件和一个组合框控件到用户窗体中。参见截图：

10. 右键单击用户窗体，然后点击 查看代码。然后复制并粘贴以下VBA代码以替换原始代码到代码窗口中。

VBA代码1：将图片从工作表复制到用户窗体

Private Sub ComboBox1_Change()
    UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
    Dim xImg As Control
    On Error Resume Next
    For Each xImg In UserForm1.Controls
        If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
            UserForm1.ComboBox1.AddItem xImg.Name
        End If
    Next
End Sub

注意：在代码中，UserForm1 是插入的用户窗体的名称，Image4 是您将在其中显示图片的图像控件的名称。而 Image 表示所有包含从工作表复制的图片的图像控件。ComboBox1 是您插入到用户窗体中的组合框名称。请将它们更改为您的实际名称。

11. 关闭 Microsoft Visual Basic for Applications 窗口。

12. 通过点击 开发工具 > 插入 > 命令按钮（ActiveX 控件）将命令按钮插入到工作表中。

13. 右键单击命令按钮并从上下文菜单中选择 查看代码 。然后复制并粘贴以下VBA代码到代码窗口中。最后关闭窗口。

VBA代码2：将图片从工作表复制到用户窗体

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

15. 点击 开发工具 > 设计模式 以关闭设计模式。

从现在开始，当点击命令按钮时，用户窗体将弹出。您可以通过从组合框中选择图片名称来显示图片。参见截图：

从组合框中选择不同的名称将在用户窗体中显示不同的图片。

相关文章：

• 如何在Excel单元格中居中图片？
• 如何检查Excel中的单元格是否包含图片？
• 如何根据Excel中的单元格值动态地在单元格中插入图片或图片？
• 如何在Excel中点击图片时放大图片？