Note: The other languages of the website are Google-translated. Back to English
登入  \/ 
x
or
x
註冊  \/ 
x

or

Excel圖片:在Excel中插入,更改,刪除多張圖片或圖片

在本教程中,我們將討論如何將多個圖像插入單元格並調整它們的大小以適合單元格的大小,如何將圖像插入註釋,頁眉或頁腳,如何從URL插入圖像等等。 它還說明瞭如何在Excel中根據需要保存,重命名,刪除多個圖像。

目錄:

1.從計算機,Web或OneDrive將圖像或圖片插入工作表

2.將圖片或圖片鎖定到Excel單元格中

3.在Excel中插入多張圖像或圖片

4.將多個與它們名稱匹配的圖像或圖片插入單元格

5.從URL插入或顯示圖像或圖片

6.插入或顯示文件路徑中的圖像或圖片

7.在評論中插入圖片或圖片

8.將圖像或圖片插入頁眉或頁腳

9.將同一張圖片或圖片插入多個工作表

10.在單元格內容後面插入圖像或圖片

11.在Excel中插入一系列單元格作為圖像或圖片格式

12.根據單元格值動態插入圖像或圖片

13.導出或保存Excel文件中的所有圖像或圖片

14.根據Excel中的單元格列表重命名文件夾中的圖像名稱

15.單擊放大或縮小圖像

16.滾動工作表時始終浮動圖片

17.從活動工作表/一系列單元格中刪除圖像或圖片


從計算機,Web或OneDrive將圖像或圖片插入工作表中

所有Excel版本都支持從計算機插入圖像或圖片,但是,如果要從Web或OneDrive插入圖像,則應具有Excel 2013和更高版本。

從計算機插入圖像或圖片

對於我們大多數人來說,將存儲在計算機中的圖像插入工作表很容易。 請這樣做:

1。 在工作表中,單擊要插入圖像的位置。

2。 然後,點擊 插入 > 圖片 > 這個設備,請參見屏幕截圖:

3。 在彈出 插入圖片 窗口,打開包含圖片的文件夾,然後按住 按Ctrl 鍵以選擇要插入的圖像,請參見屏幕截圖:

4。 然後,點擊 插入 按鈕,所選照片已插入到工作表中。 現在,您可以根據需要調整圖像的大小或將其調整為所需的大小,請參見屏幕截圖:


從Web或OneDrive插入圖像或圖片

如果您具有Excel 2013或更高版本,則可以從Web或One Drive插入圖像,請按以下步驟操作:

1。 在工作表中,單擊要插入圖像的位置。

2。 然後,點擊 插入 > 圖片 > 在線圖片,請參見屏幕截圖:

3。 將顯示以下窗口。 在裡面 在線圖片 部分,請在文本框中鍵入您要查找的內容,然後按 Enter 鑰匙。 立刻搜索所有對應的圖片,請參見屏幕截圖:

4。 然後,選擇所需的圖片,然後單擊 插入 按鈕。 插入圖片後,請調整圖片大小或將其調整到所需的位置。

提示:

1.要搜索某些特定圖像,您可以根據需要按大小,類型,佈局或顏色過濾找到的圖像。

2。 除了插入來自Bing搜索的圖像外,您還可以插入存儲在OneDrive中的圖片。 在下面的窗口中,單擊 OneDrive 在窗口的左下角,然後選擇要插入的圖像。


將圖片或圖片鎖定到Excel單元格中

通常,將圖像插入單元格後,當您調整大小,過濾或隱藏包含該圖像的單元格時,圖像將不會隨著該單元格一起調整大小或過濾,如下所示。

在這種情況下,您應該將圖片鎖定在單元格中,以便可以與單元格一起調整大小,過濾或隱藏圖片,請執行以下步驟:

1。 單擊以選擇一張圖片,然後按 按Ctrl + A 選擇工作表中的所有圖像。

2。 然後,右鍵單擊一張圖片,然後選擇 大小和屬性 從上下文菜單中,查看屏幕截圖:

3。 在擴展中 格式化圖片 窗格中的 氟化鈉性能 部分,選擇 移動並調整單元格大小 選項,請參見屏幕截圖:

4。 然後,關閉 格式化圖片 窗格。 現在,在調整大小,過濾或隱藏單元格時,圖片也將被移動,過濾或隱藏。


在Excel中插入多張圖像或圖片

有時,您可能需要在單元格中插入多張圖片並自動調整它們的大小以適合單元格大小,而無需調整圖片大小和拖動圖片。 在這裡,我將介紹兩種在Excel中解決此工作的方法。

插入多張圖像或圖片並調整其大小以適合VBA代碼的單元格

以下VBA代碼可以幫助您根據像元大小將多個圖像插入到像元中。 請這樣做:

1。 調整要放置圖片的單元格大小,然後選擇單元格。

2。 然後,按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

3。 點擊 插入 > 模塊,然後將以下宏粘貼到 模塊 窗口。

VBA代碼:根據單元格大小插入多張圖片

Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4。 然後按 F5 運行此代碼的關鍵。 在裡面 已提交 窗口,請選擇包含圖片的文件夾,然後選擇要插入的圖片,然後單擊 已提交 按鈕,所有選擇的圖片都已根據單元格大小插入到您的選擇中。 看截圖:


插入多張圖像或圖片並調整其大小以適合具有強大功能的單元格

如果您不熟悉VBA代碼,則可以在此處使用電源功能- 導入圖片 of Kutools for Excel。 使用此有用的功能,您可以快速,輕鬆地將多個圖像導入單元格。

安裝後 Kutools for Excel,請執行以下步驟:

1。 點擊 Kutools Plus > 進出口 > 導入圖片,請參見屏幕截圖:

2。 在彈出 導入圖片 對話框,請執行以下操作:

  • 從“導入順序”下拉列表中指定圖片順序,您可以選擇 垂直填充單元格 or 逐個單元格水平填充;
  • 然後,單擊 加入 按鈕選擇圖像文件或文件夾以將圖片添加到 圖片清單;
  • 點擊 進口尺寸 按鈕,在 導入圖片尺寸 對話框中,選擇 匹配的細胞大小 選項。

3。 完成設置後,請點擊 進口 按鈕,現在,另一個 導入圖片 彈出,指定要將圖片導入到的目標單元格,請參見屏幕截圖:

4。 然後,點擊 OK 按鈕,所有選定的圖像都已插入,以匹配特定單元格的大小,如下圖所示:


將多個與它們名稱匹配的圖像或圖片插入單元格

如果現在在一列中有一個產品名稱列表,那麼現在,您需要將其對應的圖片插入另一列中,如下面的屏幕截圖所示。 插入圖像,然後將它們一個接一個地拖到每個位置將浪費大量時間,在本節中,我將討論一些快速方法。

使用VBA代碼插入與名稱匹配的多張圖像或圖片

以下VBA代碼可以幫助您快速插入與其名稱匹配的多個圖像,請按以下步驟操作:

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 Insert> 模塊,然後將以下宏粘貼到 模塊 窗口。

VBA代碼:插入與其名稱匹配的多張圖片

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

備註:在以上代碼中,您可以在腳本“.ShapeRange.Height = 60“”.ShapeRange.Width = 60”來滿足您的需求。

3。 然後按 F5 鍵運行此代碼,然後在打開的窗口中,選擇包含要插入圖像的文件夾,請參見屏幕截圖:

4。 然後,單擊 OK 按鈕,會彈出一個提示框,請選擇包含圖像名稱的單元格,請參見屏幕截圖:

5。 繼續點擊 OK 按鈕,然後出現另一個提示框,請選擇要輸出圖像的單元格,請參見屏幕截圖:

6。 最後點擊 OK,並且圖片已根據其名稱立即插入到單元格中,請參見屏幕截圖:


插入多張與它們名稱匹配的圖像或圖片,並提供有用的功能

如果你有 Kutools for Excel,其 匹配導入圖片 功能,您可以根據圖像名稱快速輕鬆地插入圖像。

安裝後 Kutools for Excel,請這樣做:

1。 點擊 Kutools Plus > 進出口 > 匹配導入圖片,請參見屏幕截圖:

2。 在彈出 匹配導入圖片 對話框,請執行以下操作:

  • 從“導入順序”下拉列表中指定圖片順序,您可以選擇 垂直填充單元格 or 逐個單元格水平填充;
  • 然後,從 比賽範圍 在文本框中,選擇要基於其插入圖像的圖片名稱;
  • 然後,單擊 加入 按鈕選擇圖像文件或文件夾以將圖片添加到 圖片清單;
  • 接下來,您應該指定圖片尺寸。 請點擊 進口尺寸 按鈕,在 導入圖片尺寸 對話框中,根據需要選擇一種圖片尺寸。

3。 完成設置後,請點擊 進口 按鈕,選擇一個單元格或一個單元格列表以從彈出的窗口中找到圖像 匹配導入圖片 對話框,請參見屏幕截圖:

4。 然後,點擊 OK,並且已插入名稱與單元格值匹配的所有圖片,請參見屏幕截圖:


插入或顯示URL中的圖像或圖片

您是否曾經嘗試過顯示或插入URL列表中的圖像? 可能沒有其他直接在Excel中插入圖像的好方法,但是,您可以應用代碼或第三方工具來處理它。

使用VBA代碼從URL插入或顯示圖像或圖片

請應用以下VBA代碼以根據網址列表插入圖片。

1。 首先,調整要定位圖像的相鄰像元大小。

2。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

3。 點擊 插入 > 模塊,然後將以下宏粘貼到 模塊 窗口。

VBA代碼:從URL列表中插入圖片

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

筆記:在上面的代碼中, A2:A5 是包含您要提取圖像的URL地址的單元格範圍,則應根據需要更改單元格引用。

4。 然後按 F5 運行該代碼的關鍵,匹配的圖片將從URL提取到相鄰列,並放置在單元格的中心,請參見屏幕截圖:


插入或顯示具有驚人功能的URL中的圖像或圖片

Kutools for Excel 具有驚人的功能– 從路徑(URL)插入圖片。 使用此實用程序,可以快速,輕鬆地從URL中提取相應的圖片。

安裝後 Kutools for Excel,請執行以下步驟:

1。 點擊 庫工具 > 插入 > 從路徑插入圖片(URL),請參見屏幕截圖:

2。 在彈出 從路徑插入圖片(URL) 對話框中,請設置以下操作:

  • 選擇URL單元列表以及要放置圖像的單元格範圍;
  • 根據需要指定圖像的尺寸 圖片尺寸 部分。

3。 然後,單擊 Ok 按鈕,並且所有圖片均已從網址中提取,請參見屏幕截圖:


從文件路徑插入或顯示圖像或圖片

如果您需要從文件路徑插入圖像,這裡還為您提供了解決方案。

使用VBA代碼從文件路徑插入或顯示圖像或圖片

您可以根據圖像文件路徑應用以下VBA代碼來插入圖像。

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,然後將以下代碼粘貼到 模塊 窗口。

VBA代碼:從一系列文件路徑插入圖像

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3。 插入上面的代碼後,按 F5 鍵運行此代碼,然後彈出一個提示框,請選擇文件路徑的單元格,請參見屏幕截圖:

4。 然後點擊 OK 按鈕,基於文件路徑的所有圖像都已顯示在下一列中,如下所示的屏幕截圖:


具有驚人功能的文件路徑中插入或顯示圖像或圖片

Kutools for Excel從路徑插入圖片(URL) 功能還可以幫助您顯示文件路徑中的相對圖像。

安裝後 Kutools for Excel,請這樣做:

1。 點擊 庫工具 > 插入 > 從路徑插入圖片(URL),在彈出的對話框中,請根據需要指定文件路徑範圍,輸出圖像的範圍,圖像大小,請參見屏幕截圖:

2。 設置選項後,單擊 Ok 按鈕,圖像將立即插入到選定的單元格中,請參見屏幕截圖:


在評論中插入圖片或圖片

將圖片插入單元格可能很容易,但是有時候,您可能希望將圖片插入註釋框,您如何處理此任務?

1。 選擇並右鍵單擊要在其中插入註釋的單元格,然後選擇 插入評論,請參見屏幕截圖:

保養竅門:如果您添加了評論,請忽略此步驟。

2。 然後將光標懸停在註釋框的邊緣,直到看到光標變成一個四箭頭圖標。 然後,右鍵單擊並選擇 格式註釋 選項,請參見屏幕截圖:

3。 在彈出 格式註釋 對話框,單擊 顏色和線條 選項卡,然後選擇 填充效果 來自 顏色 下拉列表,請參見屏幕截圖:

4。 然後,在下面 填充效果 對話框,單擊 圖片 選項卡,然後單擊 選擇圖片 按鈕以選擇要插入的一張圖片,請參見屏幕截圖:

5。 然後,單擊 OK > OK,圖片已插入到註釋框中,請參見屏幕截圖:


將圖像或圖片插入頁眉或頁腳

如果要在Excel工作表的頁眉或頁腳中插入圖片,此部分中的步驟可以為您提供幫助,請按以下步驟操作:

1。 激活要在其中將圖像插入頁眉或頁腳的工作表。

2。 然後,點擊 插入 > 頁眉頁腳,然後您將轉到 頁眉和頁腳工具 標籤。 看截圖:

3。 要在頁眉或頁腳中插入圖片,請根據需要單擊左側,右側或中央的頁眉或頁腳框,然後單擊 圖片設計 標籤,請參見屏幕截圖:

4。 然後, 插入圖片 窗口將會彈出,請選擇您要添加的圖片,然後單擊“插入”。 現在,一個 &[圖片] 佔位符將出現在頁眉或頁腳框中。 單擊頁眉或頁腳框之外的任何位置,將顯示插入的圖片,如下圖所示:

保養竅門:有時,您可能會發現圖像與工作表的數據區域重疊,如下圖所示。 發生這種情況的原因是圖像太大,並且不會自動調整其大小以適合頁眉或頁腳節框。

要解決此問題,您只需調整頁眉或頁腳中的圖片大小,請執行以下步驟:

1。 單擊圖像所在的頁眉或頁腳部分,然後單擊“確定”。 格式化圖片設計 標籤,請參見屏幕截圖:

2。 在 格式化圖片 對話框中的 尺寸 標籤,請調整圖像的大小以適合頁眉或頁腳部分的框,請參見屏幕截圖:

3。 然後,單擊 OK,您將根據需要獲得結果。


將相同的圖像或圖片插入多個工作表

有時,您可能希望將徽標圖片插入工作簿的所有工作表中,通常,您可以應用插入功能將圖片從一張紙一張一張地插入另一張紙上。 除了此耗時的功能外,以下VBA代碼可以幫助您將同一張圖片立即插入所有工作表的特定單元格中。 請執行以下步驟:

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,然後將以下代碼粘貼到 模塊 窗口。

VBA代碼:將相同的圖片插入所有工作表:

Sub InsertImagetoallsheets()
'Updateby Extendoffice
    Dim I As Long
    Dim xPath As String
    Dim xShape As Shape
    Dim xRg As Range
    xPath = "C:\Users\AddinTestWin10\Desktop\my images\logo.png"
    If Dir(xPath) = "" Then
        MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    For I = 1 To ActiveWorkbook.Sheets.Count
        Set xRg = Sheets(I).Range("A1")
        Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
    Next
End Sub

備註:在上面的代碼中, C:\ Users \ AddinTestWin10 \ Desktop \ my images \ logo.png 是圖片的路徑和名稱,以及 A1 in 範圍(“ A1”) 是您要插入圖片的單元格,請根據需要進行更改。

3。 然後按 F5 鍵以運行此代碼,並且特定圖片已立即插入每個工作表的單元格A1中。 參見下面的演示:


在單元格內容後面插入圖像或圖片

為了使工作表數據更加美觀和吸引人,您可以將圖像用作背景。 為了在單元格內容後面插入圖像,以下是一些可以幫您的方法。

使用背景功能在單元格內容後面插入圖像或圖片

1。 打開要在其中插入背景圖像的工作表。

2。 然後,點擊 頁面佈局 > 背景,請參見屏幕截圖:

3。 在彈出 插入圖片 窗口,請根據需要從計算機,網站或OneDrive中選擇一張圖片,請參見屏幕截圖:

4。 現在,該圖像已作為背景插入到工作表中,如下圖所示:

保養竅門:要刪除背景圖片,只需點擊 頁面佈局 > 刪除背景。 看截圖:


在單元格內容後面插入透明圖像或圖片

使用上述方法,您無法更改插入的背景圖像的透明度,因此,如果背景圖像的顏色較深,將不方便您讀取工作表的數據。 在本節中,我將討論如何在單元格後面插入透明圖片。

1。 點擊 插入 > 形狀,然後選擇一個矩形形狀,請參見屏幕截圖:

2。 然後,在活動工作表中繪製所需形狀的形狀。

3。 繪製形狀後, 繪圖工具 選項卡顯示在功能區中,然後單擊 格式 > 形狀輪廓 > 沒有大綱,請參見屏幕截圖:

4。 然後,右鍵單擊該形狀,然後選擇 格式形狀 從上下文菜單中,查看屏幕截圖:

5。 在擴展中 格式形狀 窗格中的 填充線 選項卡,請執行以下操作:

  • 部分,選擇 圖片或紋理填充 選項;
  • 點擊 插入 按鈕 圖片來源,然後選擇一張要插入的圖片;
  • 然後,根據需要調整圖片的透明度 透明y部分。

6。 然後,您將看到充滿圖片的形狀看起來像是背景圖像,如上面的屏幕快照所示。

備註:插入這種類型的背景圖像後,將不允許您在圖片範圍內輸入任何文本。


在單元格內容後面插入透明圖像或圖片作為水印

以上兩種方法都有其自身的局限性,第一種方法不能更改圖像的透明度,第二種方法不允許將文本輸入到圖片區域內的單元格中。 為了解決這些問題, Kutools for Excel插入水印 功能可以幫您一個忙。

安裝後 Kutools for Excel,請這樣做:

1。 點擊 庫工具 > 插入 > 插入水印,請參見屏幕截圖:

2。 在彈出 插入水印 對話框中選擇 圖片水印,然後單擊 選擇圖片 按鈕選擇要插入的一張圖像,然後指定圖像比例並選中“沖洗”選項,請參見屏幕截圖:

3。 然後,點擊 Ok 按鈕,圖片已作為背景圖像插入到工作表中。


在Excel中以圖片或圖片格式插入一系列單元格

您是否曾經嘗試過複製一系列單元格並將其作為圖像插入Excel中? 在本節中,我將介紹一些在Excel中處理此作業的快速方法。

使用“複製為圖片”功能將一系列單元格插入為圖像或圖片格式

在Excel中,您可以使用 複製為圖片 用於復制和插入一定範圍的單元格作為圖像的功能。

1。 選擇要復制並插入為圖像的單元格範圍。

2。 然後,點擊 首頁 > 複製 > 複製為圖片,請參見屏幕截圖:

3。 在彈出 複製圖片 對話框中選擇 圖片 來自 格式 部分,請參見屏幕截圖:

4。 然後,點擊 OK 按鈕,現在,您只需要按 按Ctrl + V 將該圖像粘貼到工作簿的任何位置。


使用“相機”工具將一系列單元格插入為圖像或圖片格式

在Excel中,有一個 相機 可以幫助您為所選數據拍照的工具,然後將其粘貼為圖像。 當原始數據更改時,複製的圖像將動態更改。

首先,您應該顯示 相機 在功能區上,然後將其應用。

1。 點擊 自定義快速訪問工具欄 圖標,然後單擊 更多命令 選項,請參見屏幕截圖:

2。 在開 Excel選項 對話框,請執行以下操作:

  • 選擇 所有的命令 來自 從中選擇命令 落下;
  • 然後,滾動選擇 相機 從列錶框中;
  • 然後,單擊 加入 按鈕將此工具添加到 自定義快速訪問工具欄;
  • 最後點擊 OK 關閉此對話框。

3。 而且 相機 工具已顯示在功能區上,請參見屏幕截圖:

4。 然後,選擇所需圖像的單元格範圍。

5。 然後,點擊 相機 工具,然後轉到工作表並單擊任意位置,數據范圍將作為圖像插入,如下圖所示:


使用有用的功能將一系列單元格插入為圖像或圖片格式

如果你有 Kutools for Excel,其 資源庫 功能,您可以將所選數據保存到 資源庫,然後根據需要將其用作圖像或文本以備將來使用。

安裝後 Kutools for Excel,請這樣做:

1。 選擇要插入為圖像的數據范圍。

2。 然後,點擊 庫工具 > 導航,請參見屏幕截圖:

3。 在擴展中 導航 窗格中單擊 資源庫 圖標,然後單擊 將所選內容添加到資源庫 圖標,請參見屏幕截圖:

4。 在 新資源庫條目 對話框中,為此項目指定一個名稱,然後選擇要添加到的組。 看截圖:

5。 然後,點擊 加入 按鈕將其添加到 資源庫 窗格。 如果要將此範圍作為圖片插入,只需單擊一個單元格以找到圖片,然後從菜單中找到已保存的項目。 資源庫 窗格,然後單擊 插入為 > 圖片(EMF) 從項目的下拉列表中。 數據范圍將作為圖像插入到工作表中,請參見屏幕截圖:


根據單元格值動態插入圖像或圖片

在本節中,我將向您展示如何基於單元格值顯示特定的圖像。 例如,當我從一個下拉單元格中選擇一個特定的項目時,我想顯示相應的圖片,而當我選擇另一個項目時,該圖片將被動態更改,如下面的演示所示:

使用命名範圍功能根據單元格值動態插入圖像或圖片

通常,在Excel中,您可以創建一個動態的命名範圍,然後使用鏈接的圖片在Excel中解決此任務。

1。 首先,您應該創建兩列,其中包含產品名稱和相關圖像,請參見屏幕截圖:

2。 然後,請為單元格值創建一個下拉列表。 單擊一個單元格以輸出下拉列表,然後單擊 數據 > 數據驗證 > 數據驗證,請參見屏幕截圖:

3。 在彈出 數據驗證 對話框中的 設置 標籤,選擇 名單 來自 下拉菜單,然後從列表中選擇要創建下拉列表的單元格 資源 文本框,請參見屏幕截圖:

4。 點擊 OK,並且帶有單元格值的下拉列表已創建,請從下拉列表中選擇一項,請參見屏幕截圖:

5。 然後,點擊 公式 > 定義名稱,請參見屏幕截圖:

6。 在 新名字 對話框,請執行以下操作:

  • 在其中輸入一個名為myimage的名稱。 您的大名 文本框;
  • 然後復制並粘貼此公式: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) 進入“引用”文本框。

備註:在以上公式中:

  • Sheet11!$ A $ 2:$ B $ 6:是工作表和範圍,其中包含您要使用的值和圖片;
  • Sheet11!$ E $ 2:是工作表中創建下拉列表的單元格;
  • Sheet11!$ A $ 2:$ A $ 6:是您要創建的單元格列表,基於下拉列表;
  • 可變數 2 是包含圖像的列號。 如果圖像在C列中,則應輸入3。

7。 然後,單擊 OK 按鈕,然後將基於E2中單元格值的相應圖片從原始範圍複製並粘貼到單元格F2中,請參見屏幕截圖:

8。 接下來,請選擇單元格F2中的圖片,然後輸入此公式 = myimage (我的形象 是您在步驟6)中創建的範圍名稱(在公式欄中),請參見屏幕截圖:

9。 輸入公式後,按 Enter 鍵,現在,當您從下拉列表中選擇一項時,其相關圖片將立即顯示。 看截圖:


利用方便的功能根據單元格值動態插入圖像或圖片

對於我們大多數人來說,上述方法可能很困難,在這裡,我將介紹一個方便的功能– 圖片下拉列表 of Kutools for Excel,使用此有用的工具,只需單擊幾下即可創建帶有其相對圖像的多個下拉列表。

安裝後 Kutools for Excel,請執行以下步驟:

1。 首先,您應該在工作表中創建兩列,其中包含產品名稱和相對圖像。

2。 然後,單擊 庫工具 > 下拉列表 > 圖片下拉列表,請參見屏幕截圖:

3。 在 圖片下拉列表 對話框中,如果已創建單元格值和圖像的列,請忽略step1,然後選擇原始數據和圖像範圍以及輸出範圍,請參見屏幕截圖:

4。 然後,單擊 Ok 按鈕,已將包含圖像的下拉列表創建到選定的單元格中,並且當從下拉單元格中選擇一個項目時,將立即顯示其對應的圖片,請參見以下演示:


從Excel文件導出或保存所有圖像或圖片

如果您的工作簿中有多個圖像(現在),則要將所有圖像從Excel文件提取並保存到文件夾中。 您如何在Excel中解決此任務?

具有“另存為”功能從Excel導出或保存所有圖像或圖片

通常,您可以使用 另存為 功能來保存工作簿中的所有圖像,請按以下步驟操作:

1。 點擊 文件 > 另存為另存為 窗口,指定一個文件夾來放置導出的文件,然後選擇 網頁(* .htm; *。html) 來自 除上文所 鍵入下拉列表,請參見屏幕截圖:

2。 然後點擊 慳了 按鈕,轉到特定的文件夾,您將看到兩個文件,一個是HTML格式的文件,另一個是包含工作簿中的圖片,圖表或其他對象的文件夾。 看截圖:

3。 然後,您可以根據需要將圖像僅拖到另一個文件夾。

備註:通過使用此 另存為 功能,您將獲得每張圖片兩次,一張較小,另一張較大,因此您可以根據需要保存更高分辨率的圖像。


通過更改文件擴展名從Excel導出或保存所有圖像或圖片

要保存Excel文件中的所有圖像,您還可以將文件擴展名更改為RAR。 請這樣做:

1。 更改文件擴展名 XLSX罕見 如下圖所示:

2。 然後,解壓縮文件,您將在文件夾中看到3個文件夾和1個文件,請參見屏幕截圖:

3。 然後,單擊以打開 xl 文件夾,然後打開 媒體 文件夾,您將看到所有圖像都存儲在此處,沒有重複項,請參見屏幕截圖:


借助強大的功能從Excel導出或保存所有圖像或圖片

如果你有 Kutools for Excel,其 導出圖形 功能,您可以根據需要快速將某些特定對象(例如圖片,圖表,形狀)導出為圖像格式。

安裝後 Kutools for Excel,請執行以下步驟:

1。 點擊 Kutools Plus > 進出口 > 導出圖形,請參見屏幕截圖:

2。 在 導出圖形 對話框中,進行以下操作:

  • 選擇 圖片 選項從 類型 下拉列表;
  • 指定一個文件夾來保存導出的圖片;
  • 然後從 導出格式 為圖片選擇一種格式。

3。 最後點擊 Ok 按鈕,當前工作簿中的所有圖像均已保存到您指定的文件夾中,請參見屏幕截圖:


根據Excel中的單元格列表重命名文件夾中的圖像名稱

如果文件夾中有很多圖片,現在,您想重命名所有這些圖片,那麼如何在Excel中以一種簡單的方式解決此工作呢?

在Excel中,首先,您應該將所有舊圖像名稱列出到一列中,然後鍵入新名稱,最後,應用VBA代碼立即用新名稱替換舊名稱。 請執行以下步驟:

1。 請將所有圖像名稱列出到一個單元格列表中,或者您可以應用以下代碼在特定文件夾中列出所有圖像名稱,而無需手動逐個鍵入。

2。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

3。 點擊 插入 > 模塊,然後將以下宏粘貼到 模塊 窗口。

VBA代碼:列出文件夾中的所有圖像名稱

Sub MainList()
'Updateby Extendoffice
On Error Resume Next
Set xRg = Application.InputBox("Please select a cell to put the filenames:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1)
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xRg, xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xRg As Range, ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = 1
For Each xFile In xFolder.Files
xRg.Formula = xFile.Name
Set xRg = xRg.Offset(rowIndex)
rowIndex = 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xRg, xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

4。 然後按 F5 鍵運行此代碼,並彈出一個提示框,請單擊要輸出圖像名稱的單元格,請參見屏幕截圖:

5。 然後,點擊 OK,另一 瀏覽 對話框將會彈出,請選擇包含您要列出的圖片的文件夾,列出所有圖片名稱,請參見屏幕截圖:

6。 點擊 OK,特定文件夾中的所有圖像名稱均已列在單元格中,請參見屏幕截圖:

7。 然後,在另一列中輸入所需的新名稱,如下圖所示:

8。 然後,您可以應用以下代碼重命名圖像,繼續按 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

9。 點擊 插入 > 模塊,然後將以下宏粘貼到 模塊 窗口。

VBA代碼:重命名文件夾中的多個文件

Sub RenameFiles()
'Updateby Extendoffice
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

備註:在上面的代碼中, 答: 表示您要重命名的舊圖像名稱列表,並且 B 包含要使用的新圖像名稱,您可以根據需要進行更改。

10。 然後按 F5 鍵來運行此代碼,並在彈出窗口中 瀏覽 窗口中,選擇包含要重命名的圖像的文件夾,請參見屏幕截圖:

11。 然後,單擊 OK 按鈕,所有圖像名稱已被新名稱替換,如下面的屏幕截圖所示:


單擊圖像時放大或縮小圖像

假設您已經在工作表中插入了一個小圖像,現在,您想在單擊時放大圖像,而在再次單擊時縮小圖像,如下圖所示。 您如何在Excel中解決此任務?

要在單擊圖像時放大或縮小圖像大小,以下代碼可以幫您一個忙。 請執行以下步驟:

1。 右鍵單擊該圖像,然後選擇 分配宏,請參見屏幕截圖:

2。 然後,在彈出 分配宏 對話框中,單擊 新穎 按鈕,請參見屏幕截圖:

3。 在 Microsoft Visual Basic for Applications 窗口,請在以下代碼之間複製並粘貼以下代碼 END SUB 代碼。 看截圖:

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3  
    small = 1
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
     
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

4。 然後按 Alt + Q 關閉鍵 Microsoft Visual Basic for Applications 窗戶。 現在,當您單擊圖片時,它將放大到您指定的大小,然後再次單擊將縮小到原始大小,如下所示的演示:


滾動工作表時始終浮動圖片

有時,即使向上或向下滾動工作表,您也可能希望在工作表屏幕上浮動圖片,以便您可以始終看到該圖片。 在本節中,我將為您介紹一個快速技巧,以便您在Excel中處理此工作。 請執行以下步驟:

1。 首先,插入要使用的圖片。

2。 然後,右鍵單擊包含您要始終顯示的圖片的工作表選項卡,然後選擇 查看代碼 從上下文菜單中。 在開 適用於應用程序的Microsoft Visual Basic 窗口,將以下代碼複製並粘貼到空白模塊中:

VBA代碼:始終在工作表中浮動圖片

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

備註:在這段代碼中, 圖片1 是您插入的圖片名稱,請根據需要進行更改。

3。 然後,保存並關閉代碼窗口,現在,在滾動工作表並單擊單元格時,圖片將始終保留在工作表的右上角。 看截圖:


從活動工作表/一系列單元格中刪除圖像或圖片

您是否有任何快速方法可以刪除工作表,一系列單元格或當前工作簿中的所有圖像? 在本節中,我將介紹一些在Excel中解決此工作的方法。

使用VBA代碼從活動工作表中刪除圖像或圖片

要從當前工作表中刪除圖片,下面的VBA代碼可以為您提供幫助,請按以下步驟操作:

1。 激活包含要刪除的圖像的工作表。

2。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

3。 點擊 插入 > 模塊,然後將以下宏粘貼到 模塊 窗口。

VBA代碼:從當前工作表中刪除所有圖片

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4。 然後按 F5 鍵以運行此代碼,並同時刪除活動工作表中的所有圖片。


使用VBA代碼從一系列單元格中刪除圖像或圖片

如果您只需要刪除一系列單元格中的圖像,這是另一個簡單的代碼可以為您提供幫助。

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,然後將以下宏粘貼到 模塊 窗口。

VBA代碼:從一系列單元格中刪除圖片

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

備註:在上面的代碼中, B4:C6 是您要從中刪除圖片的範圍。

3。 然後按 F5 鍵運行此代碼,所選範圍內的圖片將被立即刪除,請參見屏幕截圖:


從活動工作表,選定工作表,所有具有方便功能的工作表中刪除圖像或圖片

如果你有 Kutools for Excel,其 刪除插圖和對象 功能,您可以快速從工作表,某些選定的工作表或整個工作簿中刪除圖像。

安裝後 Kutools for Excel,請執行以下步驟:

1。 點擊 庫工具 > 刪除 > 刪除插圖和對象,請參見屏幕截圖:

2。 在開 刪除插圖和對象 對話框,檢查 圖片 來自 刪除 部分,然後指定要從中刪除圖片的範圍 在看 部分,請參見屏幕截圖:

3。 然後點擊 Ok 按鈕,所有圖片將從您指定的工作表,選定的工作表或整個工作簿中刪除。



  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 和保存數據; 拆分單元格內容; 合併重複的行和總和/平均值...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 收藏并快速插入公式,範圍,圖表和圖片; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 數據透視表分組依據 週號,週幾等 顯示未鎖定的單元格 用不同的顏色 突出顯示具有公式/名稱的單元格...
kte選項卡201905
  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    janick1980. · 1 months ago
    Good afternoon,

    Very nice page.

    Only I tried the VBA of "Insert Multiple Images Or Images That Match Their Names With VBA Code" but unfortunately it doesn't work.

    I can finish everything but unfortunately I can't get with pictures in the excel.

    Any idea what the problem could be here?
    • To post as a guest, your comment is unpublished.
      skyyang · 29 days ago
      Hello, janick,
      The code works well in my workbook, do you select the correct folder contains the images? Please check it?

      Thank you!
  • To post as a guest, your comment is unpublished.
    DikshMishra · 1 months ago
    Hey, it was an amazing article thanks for sharing.
    Keep up the good work.

    source: https://tractorguru.in/tractor/new-holland-9010
  • To post as a guest, your comment is unpublished.
    saundersmarshall · 2 months ago
    This is a great article! I really like how you presented it so easy to understand