如何將圖片插入文本框？

默認情況下，我們可以使用插入功能將圖片或圖像快速插入到工作表中，但是，此功能不適用於將圖片插入文本框。通過本文，我可以幫助您根據需要將圖片插入文本框。

使用VBA代碼將圖片或圖像插入文本框

使用VBA代碼將圖片或圖像插入文本框

要將圖片插入文本框，以下VBA代碼可能會對您有所幫助，請按照以下步驟操作：

1。通過單擊插入文本框插入 > 文本框，然後繪製一個文本框，請參見屏幕截圖：

doc將圖像插入文本框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 鍵以運行此代碼，特定圖像將立即插入文本框，您可以根據需要編輯文本框，請參見屏幕截圖：

doc將圖像插入文本框2

相關文章：

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。

閱讀更多... 免費下載... 採購...

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載... 採購...

留言 (6)

還沒有評分。成為第一位評論！

哈維·赫克夫

大約2年前

#33603

網站主持人對此評論進行了最小化

在 Excel 365 上嘗試了這個宏。它不起作用。沒有收到錯誤信息。宏運行完成。圖片未顯示在文本框中。

天陽哈維·赫克夫

大約2年前

#33604

網站主持人對此評論進行了最小化

你好，哈維，
您是否在代碼中將工作表名稱和圖片路徑更改為您自己的？請查收，謝謝！

備註：在上面的代碼中， Sheet4 是工作表名稱，其中包含要插入圖片的文本框，並且 C：\ Users \ DT168 \ Desktop \ pictures \ Apple.JPG 是要插入的圖片的圖片路徑，應根據需要更改它們。

即時報告

亞歷克斯皮內達天陽

大約 1 年前

#33605

網站主持人對此評論進行了最小化

它完美地工作。僅更改文本框名稱，如下所示：
設置 xSh = Sheets("Sheet1").Shapes("TextBox 2")

梅格天陽

大約1個月之前

#42246

網站主持人對此評論進行了最小化

嗨天空
我已經更改了工作表名稱和圖片的路徑。但它仍然不起作用。

我在“xSh.Fill.UserPicture xFileName”中遇到了錯誤

非常感謝。
梅格

天陽梅格

大約1個月之前

#42317

網站主持人對此評論進行了最小化

你好，梅格，
本文中的代碼可能適用於一些簡單的名稱圖片。
如果您的圖片名稱很複雜，您應該應用以下代碼：
備註: 請換 文本框 1 到您自己的文本框名稱。

Sub InsertPicture()
    Dim sPicture As String, pic As Picture
    Dim shp As Shape, shps As ShapeRange  
    sPicture = Application.GetOpenFilename("Pictures (*.gif; *.jpg; *.bmp; *.tif;*.png), *.gif; *.jpg; *.bmp; *.tif; *.png", _
        , "Select Picture to Import") 
    If sPicture = "False" Then Exit Sub   
    Set shp = ActiveSheet.Shapes("Text Box 1")
    Set pic = ActiveSheet.Pictures.Insert(sPicture)
    With pic
        .Name = "My Picture"
        .ShapeRange.LockAspectRatio = msoFalse
        .Height = shp.Height
        .Width = shp.Width
        .Top = shp.Top
        .Left = shp.Left
        .Placement = xlMoveAndSize
    End With
    Set shps = ActiveSheet.Shapes.Range(Array("Text Box 1", "My Picture"))
    shps.Group
    shps.Name = "Pic inside text box"    
    Set pic = Nothing
End Sub

請試一試，希望對您有所幫助！
如果您有任何其他問題，請在這裡發表評論。

即時報告

哈維·赫克

大約2年前

#33647

網站主持人對此評論進行了最小化

是的，我兩個都改了。當我使用 F5 鍵運行宏時，我沒有收到任何錯誤。

我試圖將宏放在工作簿、工作表、模塊、類模塊的不同文件夾中，但結果是一樣的：文本框中沒有圖片。

感謝您回信。姓氏是赫克，順便說一句....錯別字

這裡還沒有評論

留下你的意見

以訪客身份發帖

登入

名稱（必填）

電子郵件（必填）

評價此帖子：

重設

0 字符

我同意附帶條約