如何在文本框中插入图片？

默认情况下，我们可以使用“插入”功能快速将图片或图像插入到工作表中，但此功能不适用于将图片插入到文本框中。通过本文，我可以帮助您根据需要将图片插入到文本框中。

使用VBA代码将图片或图像插入文本框

使用VBA代码将图片或图像插入文本框

要将图片插入文本框，以下VBA代码可能会对您有所帮助，请按以下步骤操作：

1. 单击“插入”>“文本框”插入一个文本框，然后绘制一个文本框，参见截图：

2. 然后按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

3. 单击 “插入” > “模块”，并将以下代码粘贴到模块窗口中。

VBA代码：将图片插入文本框：

Sub ShapePicture()
    Dim xSh As Shape
    Dim xPic As IPictureDisp
    Dim xFileName As String
    xFileName = "C:\Users\DT168\Desktop\pictures\Apple.JPG"
    Set xPic = LoadPicture(xFileName)
    Set xSh = Sheets("Sheet4").Shapes(1)
    xSh.Height = xPic.Height / xPic.Width * xSh.Width
    Set xPic = LoadPicture("")
    Set xPic = Nothing
    xSh.Fill.UserPicture xFileName
End Sub

注意：在上述代码中，Sheet4 是包含要插入图片的文本框的工作表名称，C:\Users\DT168\Desktop\pictures\Apple.JPG 是要插入图片的路径，您应根据需要更改它们。

4. 然后按 F5 键运行此代码，指定的图像将立即插入到文本框中，并且您可以根据需要编辑文本框，参见截图：

使用 Kutools AI 解锁 Excel 魔法

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

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

相关文章：

如何在文本框中设置默认值？

如何只允许在文本框中输入数字？

如何在文本框中应用拼写检查？

如何根据Excel中的值更改文本框颜色？