跳到主要內容

如何在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。 點擊 開發者 > 設計模式 關閉設計模式。

從現在開始,當您單擊命令按鈕時,將彈出使用者窗體。 您可以從組合方塊中選擇圖像名稱來顯示圖片。 看截圖:

從組合框中選擇不同的名稱將在使用者窗體中顯示不同的圖片。


相關文章:

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


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

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I'm having difficulties, can someone explain the code for me?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations