如何在Excel中將圖像從工作表複製到用戶窗體?
本文將向您展示將圖像從活動工作表複製到Excel中的用戶窗體的方法。
通過複製和粘貼將圖像從工作表複製到用戶窗體
使用VBA代碼將圖像從工作表複製到用戶窗體
通過複製和粘貼將圖像從工作表複製到用戶窗體
請執行以下操作,將圖像從工作表複製到用戶窗體。
1.切換到工作表,其中包含您需要復製到用戶窗體的圖像,然後按 其他 + F11 鑰匙一起打開 Microsoft Visual Basic for Applications 窗口。
2。 在裡面 Microsoft Visual Basic for Applications 窗口,請點擊 插入 > 用戶表格。 看截圖:
3.現在,請在用戶窗體中插入一個圖像控件。 請點擊 圖片 按鈕在 工具箱 對話框,然後將圖像控件繪製到 用戶窗體 手動。 看截圖:
4.右鍵單擊插入的Image控件,然後單擊“確定”。 氟化鈉性能 從上下文菜單中,如下所示的屏幕截圖:
5.然後您可以看到一個 氟化鈉性能 窗格顯示在 Microsoft Visual Basic for Applications 窗口。
6.返回工作表,然後選擇要在用戶窗體中顯示的圖片,然後按來複製圖片 按Ctrl + C 鍵。
7.進入 Microsoft Visual Basic for Applications 再次向下滾動以單擊 圖片 字段,然後將復制的圖片名稱粘貼到“字母”選項卡下。
現在,工作表中的圖片已復製到用戶窗體中。
使用VBA代碼將圖像從工作表複製到用戶窗體
本節將向您顯示一種解決方法,將多張圖片從工作表複製到一個用戶窗體,然後通過從“組合”框中選擇圖片名稱,在用戶窗體中顯示相應的圖片。 請執行以下操作。
1.請按照上述步驟1和2進行操作,或者在工作表中插入一個用戶表單。
2.然後插入一個 框架控制 進入UserFrom,如下所示的屏幕截圖:
3.右鍵單擊插入的框架,然後選擇 氟化鈉性能 從上下文菜單中。 在左邊 氟化鈉性能 面板,請選擇 假 來自 可見 領域。 看截圖:
4.如圖所示,將多個Image控件插入Frame中。
5.返回工作表,然後選擇要在用戶窗體中顯示的圖片,然後按 按Ctrl + C 鍵複製它。
6.進入 Microsoft Visual Basic for Applications 窗口,右鍵單擊第一個圖像控件,然後選擇 氟化鈉性能 從右鍵單擊菜單中。 請參閱顯示的屏幕截圖。
7。 在裡面 氟化鈉性能 窗格,請單擊 圖片 字段,然後按 按Ctrl + V 鍵粘貼您在步驟5中復制的圖片,然後選擇 1 – fmPictureSizeModeStrtch 來自 圖片大小模式 下拉列表如下圖所示。
8.重複步驟5-7,將其他圖片從工作表粘貼到用戶窗體的左側“圖像”控件中。 結果將顯示如下所示的屏幕截圖。
9.移動 Frame 控件放到用戶窗體的一角,然後插入一個新的 圖片 控制和 組合框 控制進入用戶窗體。 看截圖:
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
備註:在代碼中, 用戶表單1 是插入的使用者窗體的名稱, Image4 是您將在其中顯示圖片的圖像控制項的名稱。 Image 代表包含從工作表複製的圖片的所有影像控制項。 ComboBox1 是您插入到使用者表單中的組合框名稱。 請將它們更改為您自己的。
11。 關上 Microsoft Visual Basic for Applications 窗口。
12. 透過點選將命令按鈕插入到工作表中 開發者 > 插入 > 命令按鈕(ActiveX控件).
13. 右鍵單擊命令按鈕並選擇 查看代碼 從上下文選單。 然後將以下 VBA 程式碼複製並貼上到程式碼視窗中。 最後關閉視窗。
VBA代碼2:將圖像從工作表複製到用戶窗體
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15。 點擊 開發者 > 設計模式 關閉設計模式。
從現在開始,當您單擊命令按鈕時,將彈出使用者窗體。 您可以從組合方塊中選擇圖像名稱來顯示圖片。 看截圖:
從組合框中選擇不同的名稱將在使用者窗體中顯示不同的圖片。
相關文章:
最佳辦公生產力工具
🤖 | Kutools 人工智慧助手:基於以下內容徹底改變數據分析: 智慧執行 | 生成代碼 | 建立自訂公式 | 分析數據並產生圖表 | 呼叫 Kutools 函數... |
熱門特色: 尋找、突出顯示或識別重複項 | 刪除空白行 | 合併列或儲存格而不遺失數據 | 沒有公式的回合 ... | |
超級查詢: 多條件VLookup | 多值VLookup | 跨多個工作表的 VLookup | 模糊查詢 .... | |
高級下拉列表: 快速建立下拉列表 | 依賴下拉列表 | 多選下拉列表 .... | |
欄目經理: 新增特定數量的列 | 移動列 | 切換隱藏列的可見性狀態 | 比較範圍和列 ... | |
特色功能: 網格焦點 | 設計圖 | 大方程式酒吧 | 工作簿和工作表管理器 | 資源庫 (自動文字) | 日期選擇器 | 合併工作表 | 加密/解密單元格 | 按清單發送電子郵件 | 超級濾鏡 | 特殊過濾器 (過濾粗體/斜體/刪除線...)... | |
前 15 個工具集: 12 文本 工具 (添加文本, 刪除字符,...) | 50+ 圖表 類型 (甘特圖,...) | 40+ 實用 公式 (根據生日計算年齡,...) | 19 插入 工具 (插入二維碼, 從路徑插入圖片,...) | 12 轉化 工具 (數字到單詞, 貨幣兌換,...) | 7 合併與拆分 工具 (高級合併行, 分裂細胞,...) | ... 和更多 |
使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。 點擊此處獲取您最需要的功能...
Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆
- 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
- 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
- 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!