Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Rejestruję się  \/ 
x

or

Obrazy programu Excel: wstawianie, zmienianie, usuwanie wielu obrazów lub obrazów w programie Excel

W tym samouczku omówimy, jak wstawiać wiele obrazów do komórek i zmieniać ich rozmiar, aby dopasować je do rozmiaru komórki, jak wstawiać obraz do komentarza, nagłówka lub stopki, jak wstawiać obrazy z adresów URL i tak dalej. Wyjaśnia również, jak zapisywać, zmieniać nazwę i usuwać wiele obrazów, których potrzebujesz w programie Excel.

Spis treści:

1. Wstaw obrazy lub obrazy do arkusza roboczego z komputera, sieci Web lub OneDrive

2. Zablokuj obrazy lub obrazy w komórce programu Excel

3. Wstaw wiele obrazów lub obrazów w programie Excel

4. Wstaw wiele obrazów lub obrazków pasujących do ich nazw do komórek

5. Wstaw lub wyświetl obrazy lub obrazy z adresów URL

6. Wstaw lub wyświetl obrazy lub obrazy ze ścieżek plików

7. Wstaw obraz lub obraz do komentarza

8. Wstaw obraz lub obraz do nagłówka lub stopki

9. Wstaw ten sam obraz lub obraz do wielu arkuszy

10. Wstaw obraz lub obraz za zawartością komórki

11. Wstaw zakres komórek w formacie obrazu lub obrazu w programie Excel

12. Wstaw obraz lub obraz na podstawie wartości komórki dynamicznie

13. Eksportuj lub zapisz wszystkie obrazy lub obrazy z pliku Excel

14. Zmień nazwy obrazów w folderze na podstawie listy komórek w programie Excel

15. Powiększ lub pomniejsz obraz po kliknięciu

16. Zawsze przesuwaj obrazek podczas przewijania arkusza

17. Usuń obrazy lub obrazy z aktywnego arkusza / zakresu komórek


Wstaw obrazy lub obrazy do arkusza roboczego z komputera, sieci Web lub OneDrive

Wszystkie wersje programu Excel obsługują wstawianie obrazów lub obrazów z komputera, ale jeśli chcesz wstawić obrazy z sieci Web lub OneDrive, powinieneś mieć program Excel 2013 i nowsze wersje.

Wstaw obrazy lub obrazy z komputera

Większości z nas łatwo jest wstawiać do arkusza obrazy zapisane na komputerze. Zrób tak:

1. W arkuszu kliknij miejsce, w którym chcesz wstawić obrazy.

2. Następnie kliknij wstawka > Zdjęcia > To urządzeniezobacz zrzut ekranu:

3. W wyskoczył Wstaw zdjęcie otwórz folder zawierający obrazy, a następnie przytrzymaj Ctrl klawisz, aby wybrać obrazy, które chcesz wstawić, zobacz zrzut ekranu:

4. Następnie kliknij wstawka zaznaczone zdjęcia zostały wstawione do arkusza. Teraz możesz dostosować lub zmienić rozmiar obrazów do potrzebnych komórek, zobacz zrzut ekranu:


Wstaw obrazy lub obrazy z sieci Web lub OneDrive

Jeśli masz program Excel 2013 lub nowszy, możesz wstawiać obrazy z sieci Web lub One Drive, wykonaj następujące czynności:

1. W arkuszu kliknij miejsce, w którym chcesz wstawić obrazy.

2. Następnie kliknij wstawka > Zdjęcia > Zdjęcia onlinezobacz zrzut ekranu:

3. Zostanie wyświetlone następujące okno. w Zdjęcia online wpisz to, czego szukasz w polu tekstowym, a następnie naciśnij wchodzić klucz. Wszystkie odpowiednie zdjęcia są przeszukiwane jednocześnie, patrz zrzut ekranu:

4. Następnie wybierz żądane obrazy, a następnie kliknij wstawka przycisk. Po wstawieniu zdjęć zmień rozmiar lub dostosuj zdjęcia do potrzebnej pozycji.

Porady:

1. Aby wyszukać określone obrazy, możesz filtrować znalezione obrazy według rozmiaru, typu, układu lub koloru, zgodnie z potrzebami.

2. Oprócz wstawiania obrazów z wyszukiwania Bing możesz także wstawiać obrazy przechowywane w usłudze OneDrive. W poniższym oknie kliknij onedrive w lewym dolnym rogu okna, a następnie wybierz obrazy, które chcesz wstawić.


Zablokuj obrazy lub obrazy w komórce programu Excel

Zwykle po wstawieniu obrazów do komórek, gdy zmieniasz rozmiar, filtrujesz lub ukrywasz komórki zawierające obraz, rozmiar obrazu nie zostanie zmieniony ani przefiltrowany wraz z tą komórką, jak pokazano poniżej.

W takim przypadku należy zablokować obraz w komórce, aby można go było zmienić, przefiltrować lub ukryć wraz z komórką, wykonaj następujące czynności:

1. Kliknij, aby wybrać jedno zdjęcie i naciśnij Ctrl + aby zaznaczyć wszystkie obrazy w arkuszu.

2. Następnie kliknij prawym przyciskiem myszy jedno zdjęcie i wybierz Rozmiar i właściwości z menu kontekstowego, zobacz zrzut ekranu:

3. W rozszerzonym Formatuj zdjęcie okienko, pod Właściwości sekcja, wybierz Przesuń i zmień rozmiar za pomocą komórek opcja, patrz zrzut ekranu:

4. Następnie zamknij Formatuj zdjęcie szkło. Teraz podczas zmiany rozmiaru, filtrowania lub ukrywania komórek obrazy zostaną również przeniesione, przefiltrowane lub ukryte.


Wstaw wiele obrazów lub obrazów w programie Excel

Czasami może być konieczne wstawienie wielu obrazów do komórek i zmiana ich rozmiaru, aby automatycznie dopasować rozmiar komórki bez zmiany rozmiaru i przeciągania obrazów. Tutaj przedstawię dwa sposoby rozwiązania tego zadania w programie Excel.

Wstaw wiele obrazów lub obrazów i zmień ich rozmiar, aby dopasować komórki do kodu VBA

Poniższy kod VBA może pomóc w wstawianiu wielu obrazów do komórek na podstawie rozmiaru komórki. Zrób tak:

1. Dostosuj rozmiar komórki, w której chcesz umieścić obraz, a następnie zaznacz komórki.

2. Następnie przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

3, Kliknij wstawka > Modułi wklej następujące makro w Moduł okno.

Kod VBA: wstaw wiele zdjęć na podstawie rozmiaru komórki

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. Następnie naciśnij F5 klucz do uruchomienia tego kodu. w Załóż wybierz folder zawierający zdjęcia, następnie zaznacz obrazy, które chcesz wstawić, a następnie kliknij Załóż przycisk, a wszystkie wybrane obrazy zostały wstawione do wyboru na podstawie rozmiaru komórki. Zobacz zrzut ekranu:


Wstaw wiele obrazów lub obrazów i zmień ich rozmiar, aby dopasować je do komórek za pomocą potężnej funkcji

Jeśli nie znasz kodu VBA, tutaj możesz użyć funkcji zasilania - Importować zdjęcia of Kutools dla programu Excel. Dzięki tej przydatnej funkcji możesz szybko i łatwo importować wiele obrazów do komórek.

Po zainstalowaniu Kutools dla programu Excel, wykonaj następujące czynności:

1, Kliknij Kutools Plus > Import Eksport > Importować zdjęciazobacz zrzut ekranu:

2. W wyskoczył Importować zdjęcia w oknie dialogowym, wykonaj następujące czynności:

  • Określ kolejność obrazów z rozwijanej listy Kolejność importu, którą możesz wybrać Wypełnij pionowo komórkę po komórce or Wypełnij poziomo komórkę za komórką;
  • Następnie kliknij Add , aby wybrać pliki obrazów lub folder, aby dodać obrazy do pliku Lista zdjęć;
  • Kliknij Rozmiar importu przycisk w Importuj rozmiar obrazu w oknie dialogowym wybierz opcję Dopasowany rozmiar komórki opcja.

3. Po zakończeniu ustawień kliknij import przycisk, a teraz kolejny Importować zdjęcia wyskoczył, określ komórki docelowe, do których zaimportujesz obraz, zobacz zrzut ekranu:

4. Następnie kliknij OK przycisk, wszystkie wybrane obrazy zostały wstawione, aby pasowały do ​​rozmiaru określonych komórek, jak pokazano na poniższym zrzucie ekranu:


Wstaw wiele obrazów lub obrazów pasujących do ich nazw do komórek

Jeśli masz listę nazw produktów w jednej kolumnie, a teraz musisz wstawić odpowiadające im zdjęcia do innej kolumny, jak pokazano na zrzucie ekranu. Wstawianie obrazów, a następnie przeciąganie ich do każdej pozycji jeden po drugim, zmarnuje dużo czasu, w tej sekcji omówię kilka szybkich metod.

Wstaw wiele obrazów lub zdjęć pasujących do ich nazw z kodem VBA

Poniższy kod VBA może pomóc w szybkim wstawianiu wielu obrazów pasujących do ich nazw, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij zrealizowaćt> Modułi wklej następujące makro w Moduł okno.

Kod VBA: wstaw wiele zdjęć pasujących do ich nazw

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

Uwagi: W powyższym kodzie możesz zmienić wysokość i szerokość obrazu w skryptach „.ShapeRange.Wysokość = 60",".ZakresKształtów.Szerokość = 60”Do twoich potrzeb.

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, aw otwartym oknie wybierz folder zawierający obrazy, które chcesz wstawić, zobacz zrzut ekranu:

4. A następnie kliknij OK przycisk, pojawi się okienko zachęty, wybierz komórki zawierające nazwy obrazów, zobacz zrzut ekranu:

5. Kliknij dalej OK i następuje kolejne okno zachęty, wybierz komórki, które chcesz wyprowadzić obrazy, zobacz zrzut ekranu:

6. Nareszcie kliknij OK, a obrazy zostały wstawione do komórek na podstawie ich nazw naraz, patrz zrzut ekranu:


Wstaw wiele obrazów lub zdjęć pasujących do ich nazw za pomocą przydatnej funkcji

Jeśli masz Kutools dla programu Excel, Z siedzibą w Dopasuj importowane obrazy możesz szybko i łatwo wstawiać obrazy na podstawie nazw obrazów.

Po zainstalowaniu Kutools dla programu Excel, zrób tak:

1, Kliknij Kutools Plus > Import Eksport > Dopasuj importowane obrazyzobacz zrzut ekranu:

2. W wyskoczył Dopasuj importowany obraz w oknie dialogowym, wykonaj następujące operacje:

  • Określ kolejność obrazów z rozwijanej listy Kolejność importu, którą możesz wybrać Wypełnij pionowo komórkę po komórce or Wypełnij poziomo komórkę za komórką;
  • Następnie z Zakres dopasowania pole tekstowe, wybierz nazwy obrazów, na podstawie których chcesz wstawić obrazy;
  • A następnie kliknij Add , aby wybrać pliki obrazów lub folder, aby dodać obrazy do pliku Lista zdjęć;
  • Następnie należy określić rozmiar obrazu. Proszę kliknąć Rozmiar importu przycisk w Importuj rozmiar obrazu W oknie dialogowym wybierz jeden rozmiar obrazu według potrzeb.

3. Po zakończeniu ustawień kliknij import wybierz jedną komórkę lub listę komórek, aby zlokalizować obrazy z wyskakującego okienka Dopasuj importowane obrazy okno dialogowe, zobacz zrzut ekranu:

4. Następnie kliknij OKi wszystkie zdjęcia, których nazwy pasowały do ​​wartości komórek, zostały wstawione, patrz zrzut ekranu:


Wstaw lub wyświetl obrazy lub obrazy z adresów URL

Czy kiedykolwiek próbowałeś wyświetlić lub wstawić obrazy z listy adresów URL? Być może nie ma innej dobrej metody wstawiania obrazów bezpośrednio w programie Excel, ale możesz zastosować kod lub narzędzie innej firmy, aby sobie z tym poradzić.

Wstaw lub wyświetl obrazy lub obrazy z adresów URL z kodem VBA

Zastosuj następujący kod VBA, aby wstawić obrazy na podstawie listy adresów URL.

1. Najpierw dostosuj rozmiar sąsiedniej komórki, w której chcesz zlokalizować obrazy.

2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

3, Kliknij wstawka > Modułi wklej następujące makro w Moduł okno.

Kod VBA: wstaw zdjęcia z listy adresów 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

Uwagi: W powyższym kodzie, A2: A5 to zakres komórek zawierających adresy URL, z których chcesz wyodrębnić obrazy, należy zmienić odniesienia do komórek zgodnie z potrzebami.

4. Następnie naciśnij F5 klucz do uruchomienia tego kodu, pasujące obrazy zostaną wyodrębnione z adresów URL do sąsiedniej kolumny i umieszczone w środku komórek, patrz zrzut ekranu:


Wstaw lub wyświetl obrazy lub obrazy z adresów URL z niesamowitą funkcją

Kutools dla programu Excel ma niesamowitą funkcję - Wstaw obrazy ze ścieżki (URL). Dzięki temu narzędziu odpowiednie obrazy zostaną wyodrębnione z adresów URL szybko i łatwo.

Po zainstalowaniu Kutools dla programu Excel, wykonaj następujące czynności:

1, Kliknij Kutools > wstawka > Wstaw obrazy ze ścieżki (URL)zobacz zrzut ekranu:

2. W wyskoczył Wstaw obrazy ze ścieżki (URL) w oknie dialogowym, ustaw następujące operacje:

  • Wybierz listę komórek URL i zakres komórek, w których chcesz umieścić obrazy;
  • Określ wymagany rozmiar obrazów z pliku Rozmiar obrazu Sekcja.

3. A następnie kliknij Ok przycisk, a wszystkie obrazy zostały wyodrębnione z adresów URL, patrz zrzut ekranu:


Wstaw lub wyświetl obrazy lub obrazy ze ścieżek plików

Jeśli chcesz wstawić obrazy ze ścieżki pliku, tutaj również znajdziesz rozwiązania dla Ciebie.

Wstaw lub wyświetl obrazy lub obrazy ze ścieżek plików z kodem VBA

Możesz zastosować następujący kod VBA do wstawiania obrazów na podstawie ścieżek plików obrazów.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Moduł, a następnie wklej następujący kod w Moduł Okno.

Kod VBA: wstaw obrazy z szeregu ścieżek plików

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. Po wpisaniu powyższego kodu naciśnij F5 klucz do uruchomienia tego kodu, a następnie wyskakuje okienko zachęty, wybierz komórki ścieżki pliku, zobacz zrzut ekranu:

4. Następnie kliknij OK przycisk, wszystkie obrazy oparte na ścieżkach plików zostały wyświetlone w następnej kolumnie, jak pokazano na poniższym zrzucie ekranu:


Wstaw lub wyświetl obrazy lub obrazy ze ścieżek plików z niesamowitą funkcją

Kutools dla programu Excel'S Wstaw obrazy ze ścieżki (URL) Funkcja może również pomóc w wyświetlaniu względnych obrazów ze ścieżki pliku.

Po zainstalowaniu Kutools dla programu Excel, zrób tak:

1, Kliknij Kutools > wstawka > Wstaw obrazy ze ścieżki (URL), w wyskakującym oknie dialogowym określ zakres ścieżki pliku, zakres do wyprowadzania obrazów, rozmiar obrazu według potrzeb, zobacz zrzuty ekranu:

2. Po ustawieniu opcji kliknij Ok przycisk, obrazy zostaną wstawione do wybranych komórek naraz, patrz zrzut ekranu:


Wstaw obraz lub obraz do komentarza

Być może wstawienie obrazu do komórki może być łatwe, ale czasami możesz chcieć wstawić obraz do pola komentarza, jak sobie z tym radzisz?

1. Wybierz i kliknij prawym przyciskiem myszy komórkę, w której chcesz wstawić komentarz, a następnie wybierz Wstaw komentarzzobacz zrzut ekranu:

Wskazówki: Jeśli wstawiłeś komentarz, zignoruj ​​ten krok.

2. Następnie umieść kursor na krawędziach pola komentarza, aż zobaczysz, że kursor zmieni się w ikonę z czterema strzałkami. A następnie kliknij prawym przyciskiem myszy i wybierz Formatuj komentarz opcja, patrz zrzut ekranu:

3. W wyskoczył Formatuj komentarz okno dialogowe, kliknij Kolory i linie kartę, a następnie wybierz Efekty wypełnienia z Kolor rozwijana lista, zobacz zrzut ekranu:

4. Następnie w dalszej części Efekty wypełnienia okno dialogowe, kliknij Obrazek kartę i kliknij Wybierz zdjęcie przycisk, aby wybrać jedno zdjęcie, które chcesz wstawić, zobacz zrzut ekranu:

5. A następnie kliknij OK > OK, zdjęcie zostało wstawione w pole komentarza, patrz zrzut ekranu:


Wstaw obraz lub obraz do nagłówka lub stopki

Jeśli chcesz wstawić obraz do nagłówka lub stopki arkusza programu Excel, kroki opisane w tej sekcji mogą Ci pomóc, wykonaj następujące czynności:

1. Aktywuj arkusz roboczy, w którym chcesz wstawić obraz do nagłówka lub stopki.

2. Następnie kliknij wstawka > Nagłówek stopkai przejdziesz do Narzędzia nagłówków i stopek patka. Zobacz zrzut ekranu:

3. Aby wstawić zdjęcie w nagłówku lub stopce, kliknij lewy, prawy lub środkowy nagłówek lub stopkę, zgodnie z potrzebami, a następnie kliknij Obrazek pod Designerski. tab, zobacz zrzut ekranu:

4. Następnie plik Wstaw zdjęcia pojawi się okno, wybierz zdjęcie, które chcesz dodać i kliknij Wstaw. Teraz a &[Obrazek] symbol zastępczy pojawi się w polu nagłówka lub stopki. Kliknij w dowolnym miejscu poza polem nagłówka lub stopki, wstawiony obraz zostanie wyświetlony jak na poniższym zrzucie ekranu:

Wskazówki: Czasami może się okazać, że obraz nakłada się na obszar danych arkusza roboczego, jak pokazano na poniższym zrzucie ekranu. Dzieje się tak, ponieważ obraz jest zbyt duży i nie zostanie zmieniony w celu automatycznego dopasowania do zakresu sekcji nagłówka lub stopki.

Aby rozwiązać ten problem, wystarczy zmienić rozmiar obrazu w nagłówku lub stopce, wykonaj następujące czynności:

1. Kliknij sekcję nagłówka lub stopki, w której znajduje się obraz, a następnie kliknij Formatuj zdjęcie pod Designerski. tab, zobacz zrzut ekranu:

2, w Formatuj zdjęcie okno dialogowe w obszarze Rozmiar tab, dostosuj rozmiar obrazu, aby pasował do pola sekcji nagłówka lub stopki, patrz zrzut ekranu:

3. A następnie kliknij OK, otrzymasz taki wynik, jakiego potrzebujesz.


Wstaw ten sam obraz lub obraz do wielu arkuszy

Czasami możesz chcieć wstawić obraz logo do wszystkich arkuszy roboczych skoroszytu, zwykle możesz zastosować funkcję Wstaw, aby wstawić obraz z jednego arkusza do drugiego jeden po drugim. Z wyjątkiem tej czasochłonnej funkcji, poniższy kod VBA może pomóc wstawić ten sam obraz do określonej komórki wszystkich arkuszy naraz. Wykonaj poniższe czynności:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: wstaw to samo zdjęcie do wszystkich arkuszy roboczych:

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

Uwagi: W powyższym kodzie, C: \ Users \ AddinTestWin10 \ Desktop \ my images \ logo.png to ścieżka i nazwa obrazu, a A1 in Zakres („A1”) to komórka, w której chcesz wstawić obraz, zmień je zgodnie z potrzebami.

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a konkretny obraz został natychmiast wstawiony do komórki A1 każdego arkusza. Zobacz poniżej demo:


Wstaw obraz lub obraz za zawartością komórki

Aby dane arkusza były piękniejsze i bardziej atrakcyjne, możesz użyć obrazu jako tła. Aby wstawić obraz za zawartością komórki, oto kilka metod, które mogą wyświadczyć ci przysługę.

Wstaw obraz lub obraz za zawartością komórki za pomocą funkcji Tło

1. Otwórz arkusz roboczy, w którym chcesz wstawić obraz tła.

2. Następnie kliknij Układ strony > tłozobacz zrzut ekranu:

3. W wyskoczył Wstaw zdjęcia okno, wybierz jedno zdjęcie z komputera, strony internetowej lub OneDrive, jak potrzebujesz, zobacz zrzut ekranu:

4. Teraz obraz został wstawiony do arkusza roboczego jako tło, jak pokazano na poniższym zrzucie ekranu:

Wskazówki: Aby usunąć obraz tła, po prostu kliknij Układ strony > Usuń tło. Zobacz zrzut ekranu:


Wstaw przezroczysty obraz lub obraz za zawartością komórki

Dzięki powyższej metodzie nie można zmienić przezroczystości wstawionego obrazu tła, więc jeśli kolor obrazu tła jest ciężki, odczytanie danych arkusza nie będzie wygodne. W tej sekcji omówię, jak wstawić przezroczysty obraz za komórkami.

1, Kliknij wstawka > Kształtyi wybierz kształt prostokąta, zobacz zrzut ekranu:

2. Następnie narysuj kształt tak duży, jak potrzebujesz w aktywnym arkuszu.

3. Po narysowaniu kształtu a Narzędzia do rysowania na wstążce zostanie wyświetlona karta, a następnie kliknij utworzony > Kontur kształtu > Bez konturuzobacz zrzut ekranu:

4. Następnie kliknij prawym przyciskiem myszy kształt i wybierz Formatuj kształt z menu kontekstowego, zobacz zrzut ekranu:

5. W rozszerzonym Formatuj kształt okienko, pod Wypełnij i wyrównaj wykonaj następujące czynności:

  • Pod Wypełniać sekcja, wybierz Wypełnienie obrazem lub teksturą opcja;
  • Kliknij wstawka przycisk od źródło obrazui wybierz jedno zdjęcie, które chcesz wstawić;
  • Następnie dostosuj przezroczystość obrazu do swoich potrzeb z pliku Przezroczystysekcja y.

6. Następnie zobaczysz kształt wypełniony obrazami, który wygląda jak obraz tła, jak pokazano na powyższym zrzucie ekranu.

Uwagi: Po wstawieniu tego typu obrazu tła nie będzie można wprowadzać żadnego tekstu z zakresu obrazu.


Wstaw przezroczysty obraz lub obraz za zawartością komórki jako znak wodny

Obie powyższe metody mają swoje ograniczenia, pierwsza metoda nie może zmienić przezroczystości obrazu, druga metoda nie pozwala na wprowadzanie tekstu do komórek wewnątrz obszaru obrazu. Aby rozwiązać te problemy, Kutools dla programu Excel'S Wstaw znak wodny funkcja może wyświadczyć ci przysługę.

Po zainstalowaniu Kutools dla programu Excel, zrób tak:

1, Kliknij Kutools > wstawka > Wstaw znak wodnyzobacz zrzut ekranu:

2. W wyskoczył Wstaw znak wodny okno dialogowe, wybierz Znak wodny ze zdjęciem, A następnie kliknij Wybierz zdjęcie przycisk, aby wybrać obraz, który chcesz wstawić, a następnie określ skalę obrazu i zaznacz opcję Washout, zobacz zrzut ekranu:

3. Następnie kliknij Ok przycisk, obraz został wstawiony do arkusza jako obraz tła.


Wstaw zakres komórek w formacie obrazu lub obrazu w programie Excel

Czy kiedykolwiek próbowałeś skopiować zakres komórek i wstawić go jako obraz w programie Excel? W tej sekcji przedstawię szybki sposób radzenia sobie z tą pracą w programie Excel.

Wstaw zakres komórek jako obraz lub format obrazu za pomocą funkcji Kopiuj jako obraz

W programie Excel możesz użyć Skopiuj jako obrazek funkcja kopiowania i wstawiania zakresu komórek jako obrazu.

1. Wybierz zakres komórek, które chcesz skopiować i wstawić jako obraz.

2. Następnie kliknij Strona główna > Skopiuj swój > Skopiuj jako obrazekzobacz zrzut ekranu:

3. W wyskoczył Skopiuj zdjęcie dialog, wybierz Obrazek z utworzony sekcja, patrz zrzut ekranu:

4. Następnie kliknij OK przycisk, teraz wystarczy nacisnąć Ctrl + V wkleić obraz w dowolnym miejscu skoroszytu.


Wstaw zakres komórek jako obraz lub format obrazu za pomocą narzędzia Aparat

W programie Excel jest plik Aparat fotograficzny narzędzie, które może pomóc Ci zrobić zdjęcie dla wybranych danych, a następnie wkleić je jako obraz. Gdy oryginalne dane ulegną zmianie, skopiowany obraz zostanie zmieniony dynamicznie.

Najpierw powinieneś wyświetlić plik Aparat fotograficzny na wstążce, a następnie zastosuj go.

1, Kliknij Dostosuj pasek narzędzi Szybki dostęp ikonę, a następnie kliknij Więcej poleceń opcja, patrz zrzut ekranu:

2. W otwartym Opcje programu Excel w oknie dialogowym, wykonaj następujące operacje:

  • Wybierz Wszystkie polecenia z Wybierz polecenia z upuścić;
  • Następnie przewiń, aby wybrać Aparat fotograficzny z pola listy;
  • A następnie kliknij Add przycisk, aby dodać to narzędzie do pliku Dostosuj pasek narzędzi Szybki dostęp;
  • Nareszcie kliknij OK aby zamknąć to okno dialogowe.

3. I to Aparat fotograficzny narzędzie zostało wyświetlone na wstążce, zobacz zrzut ekranu:

4. Następnie wybierz zakres komórek, w których chcesz umieścić obraz.

5. A następnie kliknij Aparat fotograficzny narzędzie, a następnie przejdź do arkusza roboczego i kliknij w dowolnym miejscu, zakres danych zostanie wstawiony jako obraz, jak pokazano poniżej:


Wstaw zakres komórek jako obraz lub format obrazu z przydatną funkcją

Jeśli masz Kutools dla programu Excel, Z siedzibą w Biblioteka zasobów możesz zapisać wybrane dane do pliku Biblioteka zasobów, a następnie użyj go jako obrazu lub tekstu na przyszłość, jak chcesz.

Po zainstalowaniu Kutools dla programu Excel, zrób tak:

1. Wybierz zakres danych, który chcesz wstawić jako obraz.

2. Następnie kliknij Kutools > Nawigacjazobacz zrzut ekranu:

3. W rozszerzonym Nawigacja okienko, kliknij Biblioteka zasobów ikonę, a następnie kliknij Dodaj wybraną zawartość do biblioteki zasobów ikona, zobacz zrzut ekranu:

4, w Nowy wpis w bibliotece zasobów w oknie dialogowym określ nazwę tego elementu, a następnie wybierz grupę, do której chcesz dodać. Zobacz zrzut ekranu:

5. Następnie kliknij Add przycisk, aby go dodać Biblioteka zasobów szkło. Jeśli chcesz wstawić ten zakres jako obraz, wystarczy kliknąć komórkę, aby zlokalizować obraz, a następnie znaleźć zapisany element z Biblioteka zasobów okienko i kliknij Wstaw jako > Obraz (EMF) z rozwijanej listy pozycji. Zakres danych zostanie wstawiony do arkusza jako obraz, patrz zrzuty ekranu:


Wstaw obraz lub obraz na podstawie wartości komórki dynamicznie

W tej sekcji pokażę, jak wyświetlić określony obraz na podstawie wartości komórki. Na przykład chcę pokazać odpowiedni obraz, gdy wybiorę konkretny element z rozwijanej komórki, a kiedy wybiorę inny, obraz zostanie zmieniony dynamicznie, jak pokazano poniżej:

Wstaw obraz lub obraz na podstawie wartości komórki dynamicznie za pomocą funkcji Nazwany zakres

Zwykle w programie Excel można utworzyć dynamiczny nazwany zakres, a następnie użyć połączonego obrazu do rozwiązania tego zadania w programie Excel.

1. Najpierw należy utworzyć dwie kolumny zawierające nazwy produktów i obrazy względne, patrz zrzut ekranu:

2. Następnie utwórz listę rozwijaną dla wartości komórek. Kliknij komórkę, aby wyświetlić listę rozwijaną, a następnie kliknij Statystyki i dane > Walidacja danych > Walidacja danychzobacz zrzut ekranu:

3. W wyskoczył Walidacja danych okno dialogowe w obszarze Ustawienia kartę, wybierz Lista z dopuszczać listy rozwijanej, a następnie wybierz komórki, które chcesz utworzyć listę rozwijaną z pliku Źródło pole tekstowe, patrz zrzut ekranu:

4, Kliknij OK, a rozwijana lista z wartościami komórek została utworzona, wybierz jeden element z rozwijanej listy, zobacz zrzut ekranu:

5. Następnie kliknij Wzory > Zdefiniuj nazwęzobacz zrzut ekranu:

6, w Nowe imie w oknie dialogowym, wykonaj następujące operacje:

  • Wprowadź nazwę o nazwie myimage do pliku Imię i nazwisko pole tekstowe;
  • Następnie skopiuj i wklej tę formułę: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) w polu tekstowym Odnosi się do.

Uwagi: W powyższym wzorze:

  • Arkusz11! 2 $ A: 6 $ B: to arkusz roboczy i zakres zawierający wartości i obrazy, których chcesz użyć;
  • Arkusz11! $ E $ 2: to komórka w arkuszu, w której utworzono listę rozwijaną;
  • Arkusz11! 2 $ A $: 6 $ A $ XNUMX: to lista komórek, na podstawie których utworzono listę rozwijaną;
  • Zmienna liczba 2 to numer kolumny zawierającej obrazy. Jeśli Twoje obrazy znajdują się w kolumnie C, wpisz 3.

7. A następnie kliknij OK przycisk, a następnie skopiuj i wklej odpowiedni obraz na podstawie wartości komórki w E2 z oryginalnego zakresu do komórki F2, patrz zrzut ekranu:

8. Następnie wybierz obraz w komórce F2, a następnie wprowadź tę formułę = myimage (mój obraz to nazwa zakresu utworzona w kroku 6) na pasku formuły, patrz zrzut ekranu:

9. Po wprowadzeniu wzoru naciśnij wchodzić klucz, a teraz, gdy wybierzesz jedną pozycję z rozwijanej listy, jej obraz względny zostanie natychmiast wyświetlony. Zobacz zrzut ekranu:


Wstaw obraz lub obraz na podstawie wartości komórki dynamicznie za pomocą przydatnej funkcji

Powyższa metoda może być trudna dla większości z nas, tutaj przedstawię przydatną funkcję - Lista rozwijana obrazów of Kutools dla programu Excel, dzięki temu użytecznemu narzędziu możesz utworzyć wiele list rozwijanych z ich względnymi obrazami za pomocą zaledwie kilku kliknięć.

Po zainstalowaniu Kutools dla programu Excel, wykonaj następujące czynności:

1. Najpierw należy utworzyć dwie kolumny zawierające nazwy produktów i obrazy względne w arkuszu.

2. A następnie kliknij Kutools > Lista rozwijana > Lista rozwijana obrazówzobacz zrzut ekranu:

3, w Lista rozwijana obrazów W oknie dialogowym, jeśli utworzyłeś kolumny wartości komórek i obrazów, zignoruj ​​krok 1, a następnie wybierz oryginalne dane i zakres obrazu oraz zakres wyjściowy, patrz zrzut ekranu:

4. A następnie kliknij Ok przycisk, rozwijane listy z obrazami zostały utworzone w wybranych komórkach, a po wybraniu elementu z rozwijanej komórki, odpowiedni obraz zostanie wyświetlony od razu, patrz poniżej demo:


Eksportuj lub zapisz wszystkie obrazy lub obrazy z pliku Excel

Jeśli w skoroszycie znajduje się wiele obrazów, a teraz chcesz wyodrębnić i zapisać wszystkie obrazy z pliku Excel do folderu. Jak możesz rozwiązać to zadanie w programie Excel?

Eksportuj lub zapisz wszystkie obrazy lub obrazy z programu Excel za pomocą funkcji Zapisz jako

Zwykle możesz użyć Zapisz jako funkcja, aby zapisać wszystkie obrazy ze skoroszytu, wykonaj następujące czynności:

1, Kliknij filet > Zapisz jako, W Zapisz jako określ folder, w którym zostaną umieszczone wyeksportowane pliki, a następnie wybierz Strona internetowa (*. Htm; *. Html) z Zapisz jako Wpisz listę rozwijaną, zobacz zrzut ekranu:

2. A następnie kliknij Zaoszczędź przycisk, przejdź do określonego folderu, zobaczysz dwa pliki, jeden to plik w formacie HTML, a drugi to folder zawierający obrazy, wykresy lub inne obiekty ze skoroszytu. Zobacz zrzut ekranu:

3. Następnie możesz przeciągnąć tylko obrazy do innego folderu, zgodnie z potrzebami.

Uwagi: Używając tego Zapisz jako funkcja, każde zdjęcie zostanie wyświetlone dwa razy, jedno jest mniejsze, a drugie większe, dzięki czemu można zapisać obrazy w wyższej rozdzielczości zgodnie z potrzebami.


Eksportuj lub zapisz wszystkie obrazy lub obrazy z programu Excel, zmieniając rozszerzenie pliku

Aby zapisać wszystkie obrazy z pliku Excel, możesz również zmienić rozszerzenie pliku na RAR. Zrób tak:

1. Zmień rozszerzenie pliku xlsx do rar jak pokazano na poniższym zrzucie ekranu:

2. Następnie rozpakuj plik, a zobaczysz 3 foldery i 1 plik w folderze, zobacz zrzut ekranu:

3. Następnie kliknij, aby otworzyć plik xl folder, a następnie otwórz plik głoska bezdźwięczna folder, zobaczysz, że wszystkie obrazy są tutaj przechowywane bez duplikatów, zobacz zrzut ekranu:


Eksportuj lub zapisuj wszystkie obrazy lub obrazy z programu Excel z zaawansowaną funkcją

Jeśli masz Kutools dla programu Excel, Z siedzibą w Eksportuj grafikę możesz szybko wyeksportować określone obiekty, takie jak obrazy, wykresy, kształty do formatu obrazu, zgodnie z potrzebami.

Po zainstalowaniu Kutools dla programu Excel, wykonaj następujące czynności:

1, Kliknij Kutools Plus > Import Eksport > Eksportuj grafikęzobacz zrzut ekranu:

2, w Eksportuj grafikę w oknie dialogowym wykonaj następujące operacje:

  • Wybierać Zdjęcia opcja z rodzaje Lista rozwijana;
  • Określ folder do zapisania eksportowanych obrazów;
  • Następnie kliknij listę rozwijaną z pliku Format eksportu aby wybrać jeden format dla swoich zdjęć.

3. Nareszcie kliknij Ok przycisk, wszystkie obrazy w bieżącym skoroszycie zostały zapisane w określonym folderze, zobacz zrzut ekranu:


Zmień nazwy obrazów w folderze na podstawie listy komórek w programie Excel

Jeśli masz dużo zdjęć w folderze, a teraz chcesz zmienić nazwę wszystkich tych obrazów, jak możesz rozwiązać tę pracę w łatwy sposób w programie Excel?

W programie Excel najpierw należy wypisać wszystkie stare nazwy obrazów w kolumnie, a następnie wpisać nowe nazwy, w końcu zastosować kod VBA, aby od razu zastąpić stare nazwy nowymi nazwami. Wykonaj poniższe czynności:

1. Wymień wszystkie nazwy obrazów na listę komórek lub możesz zastosować poniższy kod, aby wyświetlić wszystkie nazwy obrazów w określonym folderze bez ręcznego wpisywania ich jeden po drugim.

2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications Okno.

3, Kliknij wstawka > Modułi wklej następujące makro w Moduł okno.

Kod VBA: wyświetla wszystkie nazwy obrazów z folderu

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. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okno zachęty, kliknij komórkę, w której chcesz wyprowadzić nazwy obrazów, patrz zrzut ekranu:

5. Następnie kliknij OK, Innego Przeglądaj Pojawi się okno dialogowe, wybierz folder zawierający zdjęcia, które chcesz wyświetlić wszystkie nazwy obrazów, zobacz zrzut ekranu:

6, Kliknij OK, wszystkie nazwy obrazów w określonym folderze zostały wymienione w komórkach, patrz zrzut ekranu:

7. Następnie wpisz nowe nazwy, których potrzebujesz, w innej kolumnie, jak pokazano na zrzucie ekranu:

8. Następnie możesz zastosować poniższy kod, aby zmienić nazwy obrazów, naciskaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications Okno.

9, Kliknij wstawka > Modułi wklej następujące makro w Moduł okno.

Kod VBA: zmień nazwę wielu plików w folderze

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

Uwagi: W powyższym kodzie, Odp .: A wskazuje starą listę nazw obrazów, której nazwę chcesz zmienić, i B zawiera nowe nazwy obrazów, których chcesz użyć, możesz je zmienić według potrzeb.

10. Następnie naciśnij F5 klucz do uruchomienia tego kodu i wyskoczył Przeglądaj okno, wybierz folder zawierający obraz, którego nazwę chcesz zmienić, zobacz zrzut ekranu:

11. A następnie kliknij OK przycisk, wszystkie nazwy obrazów zostały zastąpione nowymi nazwami, jak pokazano na poniższym zrzucie ekranu:


Powiększ lub pomniejsz obraz, klikając go

Przypuśćmy, że wstawiłeś mały obraz do arkusza roboczego, teraz chcesz powiększyć obraz po kliknięciu go i zmniejszyć go po ponownym kliknięciu, jak pokazano poniżej. Jak możesz rozwiązać to zadanie w programie Excel?

Aby powiększyć lub zmniejszyć rozmiar obrazu po kliknięciu, poniższy kod może wyświadczyć ci przysługę. Wykonaj poniższe czynności:

1. Kliknij obraz prawym przyciskiem myszy i wybierz Przypisz makrozobacz zrzut ekranu:

2. Następnie wyskoczył Przypisz makro okno dialogowe, kliknij przycisk Nowy przycisk, zobacz zrzut ekranu:

3, w Microsoft Visual Basic for Applications okno, skopiuj i wklej poniższy kod między poniżej i End Sub kody. Zobacz zrzut ekranu:

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. Następnie naciśnij Alt + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno. Teraz, gdy klikniesz na zdjęcie, zostanie ono powiększone do określonego rozmiaru, a kliknięcie ponownie zmniejszy się do rozmiaru oryginalnego, jak pokazano poniżej:


Zawsze przesuwaj obrazek podczas przewijania arkusza

Czasami możesz chcieć przesunąć obraz na ekranie arkusza, nawet jeśli przewijasz arkusz w górę lub w dół, tak aby obraz był widoczny przez cały czas. W tej sekcji przedstawię szybką sztuczkę, dzięki której możesz sobie poradzić z tą pracą w programie Excel. Wykonaj następujące czynności:

1. Najpierw wstaw obraz, którego chcesz użyć.

2. Następnie kliknij prawym przyciskiem myszy kartę arkusza zawierającą obraz, który ma być zawsze widoczny, a następnie wybierz Wyświetl kod z menu kontekstowego. W otwartym Microsoft Visual Basic dla aplikacji okno, skopiuj i wklej poniższy kod do pustego modułu:

Kod VBA: zawsze przesuwaj obraz w arkuszu

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

Uwagi: W tym kodzie Obraz 1 to nazwa wstawionego obrazu, zmień ją zgodnie z potrzebami.

3. Następnie zapisz i zamknij okno kodu, teraz podczas przewijania arkusza roboczego i klikania komórki obraz będzie zawsze przechowywany w prawym górnym rogu arkusza. Zobacz zrzut ekranu:


Usuń obrazy lub obrazy z aktywnego arkusza / zakresu komórek

Czy masz jakieś szybkie sposoby na usunięcie wszystkich obrazów z arkusza roboczego, zakresu komórek lub bieżącego skoroszytu? W tej sekcji przedstawię kilka metod rozwiązania tego zadania w programie Excel.

Usuń obrazy lub obrazy z aktywnego arkusza za pomocą kodu VBA

Aby usunąć obrazy z bieżącego arkusza roboczego, poniższy kod VBA może ci pomóc, wykonaj następujące czynności:

1. Aktywuj arkusz zawierający obrazy, które chcesz usunąć.

2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

3, Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.

Kod VBA: Usuń wszystkie zdjęcia z bieżącego arkusza roboczego

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

4. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie obrazy w aktywnym arkuszu zostaną usunięte jednocześnie.


Usuń obrazy lub obrazy z zakresu komórek za pomocą kodu VBA

Jeśli chcesz usunąć obrazy tylko z zakresu komórek, oto inny prosty kod, który może ci pomóc.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.

Kod VBA: usuń obrazy z szeregu komórek

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

Uwagi: W powyższym kodzie, B4: C6 to zakres, z którego chcesz usunąć zdjęcia.

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a zdjęcia w wybranym zakresie zostaną natychmiast usunięte, patrz zrzuty ekranu:


Usuń obrazy lub obrazy z aktywnego arkusza, wybranych arkuszy, wszystkich arkuszy z przydatną funkcją

Jeśli masz Kutools dla programu Excel, Z siedzibą w Usuń ilustracje i obiekty funkcja, możesz szybko usunąć obrazy z arkusza roboczego, niektórych wybranych arkuszy lub całego skoroszytu.

Po zainstalowaniu Kutools dla programu Excel, wykonaj następujące czynności:

1, Kliknij Kutools > Kasować > Usuń ilustracje i obiektyzobacz zrzut ekranu:

2. W otwartym Usuń ilustracje i obiekty okno dialogowe, zaznacz Zdjęcia z Kasować , a następnie określ zakres, z którego chcesz usunąć obrazy w obszarze zaglądać sekcja, patrz zrzut ekranu:

3. Następnie kliknij Ok przycisk, a wszystkie obrazy zostaną usunięte z arkusza roboczego, wybranych arkuszy roboczych lub całego skoroszytu, jak określono.



  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny i przechowywanie danych; Podziel zawartość komórek; Połącz zduplikowane wiersze i sumę / średnią... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Ulubione i szybkie wstawianie formuł, Zakresy, wykresy i obrazy; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Grupowanie tabel przestawnych według numer tygodnia, dzień tygodnia i więcej ... Pokaż odblokowane, zablokowane komórki w różnych kolorach; Podświetl komórki, które mają formułę / nazwę...
karta kte 201905
  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i zmniejsza setki kliknięć myszą każdego dnia!
officetab dół
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 · 1 months 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