Excel-bilder: Infoga, ändra storlek, spara, ta bort flera bilder eller bilder i Excel
Oavsett om du behöver infoga bilder från din dator, webben eller OneDrive, eller låsa in dem i specifika celler, erbjuder den här guiden omfattande lösningar. Du kommer också att lära dig hur du dynamiskt visar bilder baserat på cellvärden, ändrar storlek och justerar flera bilder, bäddar in bilder i kommentarer eller rubriker och skapar dynamiska bildrullgardinsmenyer. För mer avancerade uppgifter, som att exportera, döpa om, flytta eller ta bort bilder från specifika intervall eller kalkylblad, ingår steg-för-steg-instruktioner för att guida dig genom varje process.
Innehållsförteckning:
1. Infoga bilder eller bilder i kalkylbladet från dator, webb eller OneDrive
- 1.1 Sätt in bilder eller bilder från datorn
- 1.2 Infoga bilder eller bilder från webben eller OneDrive
2. Lås bilder eller bilder i Excel-cellen
3. Infoga flera bilder eller bilder i Excel
- 3.1 Infoga flera bilder eller bilder och ändra storlek på dem så att de passar celler med VBA-kod
- 3.2 Infoga flera bilder eller bilder och ändra storlek på dem så att de passar celler med en kraftfull funktion
4. Infoga flera bilder eller bilder som matchar deras namn i celler
- 4.1 Infoga flera bilder eller bilder som matchar deras namn med VBA-kod
- 4.2 Infoga flera bilder eller bilder som matchar deras namn med en användbar funktion
5. Infoga eller visa bilder eller bilder från webbadresser
- 5.1 Infoga eller visa bilder eller bilder från webbadresser med VBA-kod
- 5.2 Infoga eller visa bilder eller bilder från webbadresser med en fantastisk funktion
6. Infoga eller visa bilder eller bilder från filvägar
- 6.1 Infoga eller visa bilder eller bilder från filvägar med VBA-kod
- 6.2 Infoga eller visa bilder eller bilder från filvägar med en fantastisk funktion
7. Infoga bild eller bild i en kommentar
8. Sätt in bild eller bild i sidhuvudet eller sidfoten
9. Infoga samma bild eller bild i flera kalkylblad
10. Infoga bild eller bild bakom cellinnehållet
- 10.1 Infoga bild eller bild bakom cellinnehållet med bakgrundsfunktionen
- 10.2 Infoga transparent bild eller bild bakom cellinnehållet
- 10.3 Infoga transparent bild eller bild bakom cellinnehållet som vattenstämpel
11. Infoga ett cellområde som bild- eller bildformat i Excel
- 11.1 Infoga ett cellområde som bild- eller bildformat med funktionen Kopiera som bild
- 11.2 Infoga ett cellområde som bild- eller bildformat med kameraverktyget
- 11.3 Infoga ett cellområde som bild- eller bildformat med en användbar funktion
12. Infoga bild eller bild baserat på cellvärde dynamiskt
- 12.1 Infoga bild eller bild baserat på cellvärde dynamiskt med funktionen Named range
- 12.2 Infoga bild eller bild baserat på cellvärde dynamiskt med en praktisk funktion
13. Exportera eller spara alla bilder eller bilder från en Excel-fil
- 13.1 Exportera eller spara alla bilder eller bilder från Excel med Spara som-funktionen
- 13.2 Exportera eller spara alla bilder eller bilder från Excel genom att ändra filtillägget
- 13.3 Exportera eller spara alla bilder eller bilder från Excel med en kraftfull funktion
14. Byt namn på bildnamn i en mapp baserat på cellistan i Excel
15. Förstora eller krympa bilden när du klickar på den
16. Flytta alltid en bild när du bläddrar i kalkylbladet
17. Radera bilder eller bilder från aktivt ark / ett cellområde
Infoga bilder eller bilder i kalkylbladet från dator, webb eller OneDrive
Alla Excel-versioner har stöd för att infoga bilder eller bilder från datorn, men om du vill infoga bilderna från webben eller OneDrive bör du ha Excel 2013 och senare versioner.
Infoga bilder eller bilder från datorn
Det är lätt för de flesta av oss att infoga bilder som lagras på datorn i kalkylbladet. Gör så här:
1. Klicka på var du vill infoga bilder i kalkylbladet.
2. Klicka sedan Insert > Bilder > Denna apparat, se skärmdump:
3. I poppade ut Infoga bild öppnar mappen som innehåller bilderna och håller sedan ned ctrl för att välja de bilder som du vill infoga, se skärmdump:
4. Klicka sedan Insert knappen har de valda bilderna infogats i arket. Nu kan du justera eller ändra storlek på bilderna till de celler du behöver, se skärmdump:
Infoga bilder eller bilder från webben eller OneDrive
Om du har Excel 2013 eller senare versioner kan du infoga bilderna från webben eller One Drive, gör så här:
1. Klicka på var du vill infoga bilder i kalkylbladet.
2. Klicka sedan Insert > Bilder > Online bilder, se skärmdump:
3. Följande fönster visas. I Online bilder skriv in det du letar efter i textrutan och tryck sedan på ange nyckel. Alla motsvarande bilder söks på en gång, se skärmdump:
4. Välj sedan de bilder du vill ha och klicka sedan på Insert knapp. När du har satt in bilderna, ändra storlek eller justera bilderna till den position du behöver.
Tips:
1. För att söka i vissa specifika bilder kan du filtrera de hittade bilderna efter storlek, typ, layout eller färg efter behov.
2. Förutom att infoga bilder från Bing-sökning kan du också infoga bilder som är lagrade på din OneDrive. Klicka på i fönstret nedan OneDrive längst ned till vänster i fönstret och välj sedan de bilder du vill infoga.
Lås bilder eller bilder i Excel-cellen
Normalt, efter att du har infogat bilderna i celler, när du ändrar storlek, filtrerar eller döljer cellerna som innehåller bilden, kommer inte bilden att ändras eller filtreras tillsammans med den cellen som visas nedan.
I det här fallet bör du låsa bilden i cellen så att den kan ändras, filtreras eller döljas tillsammans med cellen, gör med följande steg:
1. Klicka för att välja en bild och tryck på Ctrl + A för att välja alla bilder i kalkylbladet.
2. Högerklicka sedan på en bild och välj Storlek och egenskaper från snabbmenyn, se skärmdump:
3. I den utökade Formatera bild under rutan Våra Bostäder avsnitt, välj Flytta och storlek med celler alternativ, se skärmdump:
4. Stäng sedan Formatera bild ruta. Nu, när du ändrar storlek, filtrerar eller döljer cellerna, kommer bilderna också att flyttas, filtreras eller döljas.
Infoga flera bilder eller bilder i Excel
Ibland kan du behöva infoga flera bilder i cellerna och ändra storlek på dem så att de passar cellstorleken automatiskt utan att ändra storlek och dra bilderna. Här presenterar jag två sätt att lösa detta jobb i Excel.
Infoga flera bilder eller bilder och ändra storlek på dem så att de passar celler med VBA-kod
Följande VBA-kod kan hjälpa dig att infoga flera bilder i celler baserat på cellstorlek. Gör så här:
1. Justera cellstorleken som du vill lägga till bilden och välj sedan cellerna.
2. Håll sedan ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
3. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna fönster.
VBA-kod: Infoga flera bilder baserat på cellstorleken
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. Tryck sedan på F5 nyckel för att köra den här koden. I Öppen välj den mapp som innehåller bilderna, välj sedan bilderna du vill infoga och klicka sedan på Öppen och alla valda bilder har infogats i ditt val baserat på cellstorlek. Se skärmdump:
Infoga flera bilder eller bilder och ändra storlek på dem så att de passar celler med en kraftfull funktion
Om du inte känner till VBA-koden kan du här använda en strömfunktion - Importera bilder of Kutools för Excel. Med den här användbara funktionen kan du snabbt och enkelt importera flera bilder till cellerna.
1. Klicka Kutools Plus > Import Export > Importera bilder, se skärmdump:
2. I poppade ut Importera bilder dialogrutan, gör följande:
- Ange bildordningen i listrutan Importera order, du kan välja Fyll vertikalt cell efter cell or Fyll horisontellt cell efter cell;
- Klicka sedan Lägg till för att välja bildfiler eller mapp för att lägga till bilderna i Bildlista;
- Klicka på Importera storlek knappen, i Importera bildstorlek dialogrutan väljer du Matchande cellstorlek alternativ.
3. När du har gjort inställningarna klickar du på Importera knappen, och nu, en annan Importera bilder poppar ut, ange destinationscellerna du ska importera bilden till, se skärmdump:
4. Klicka sedan OK -knappen har alla valda bilder infogats för att matcha storleken på specifika celler som visas nedan:
Infoga flera bilder eller bilder som matchar deras namn i celler
Om du har en lista med produktnamn i en kolumn och nu måste du infoga motsvarande bilder i en annan kolumn enligt nedanstående skärmdump. Att infoga bilderna och dra dem till varje position en efter en kommer att slösa mycket tid, detta avsnitt kommer jag att prata om några snabba metoder.
Infoga flera bilder eller bilder som matchar deras namn med VBA-kod
Följande VBA-kod kan hjälpa dig att infoga flera bilder som matchar deras namn snabbt, gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert> Modulernaoch klistra in följande makro i Modulerna fönster.
VBA-kod: Infoga flera bilder som matchar deras namn
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
Anmärkningar: I koden ovan kan du ändra bildens höjd och bredd i skripten “.ShapeRange.Höjd = 60",".ShapeRange.Width = 60”Efter ditt behov.
3. Tryck sedan på F5 för att köra den här koden och i det öppnade fönstret, välj den mapp som innehåller bilderna du vill infoga, se skärmdump:
4. Och klicka sedan på OK knappen, en snabbruta dyker upp, välj cellerna som innehåller bildnamnen, se skärmdump:
5. Fortsätt klicka OK -knappen och en annan snabbruta följs, välj de celler som du vill mata ut bilderna, se skärmdump:
6. Äntligen klickar du på OK, och bilderna har införts i cellerna baserat på deras namn på en gång, se skärmdump:
Infoga flera bilder eller bilder som matchar deras namn med en användbar funktion
Om du Kutools för Excel, med dess Matcha importera bilder funktionen kan du infoga bilderna baserat på bildnamnen snabbt och enkelt.
Kutools för Excel - Fullpackad med över 300 viktiga verktyg för Excel. Njut av permanent gratis AI-funktioner! Ladda ner nu!
1. Klicka Kutools Plus > Import Export > Matcha importera bilder, se skärmdump:
2. I poppade ut Matcha importbild dialogrutan, gör följande:
- Ange bildordningen i listrutan Importera order, du kan välja Fyll vertikalt cell efter cell or Fyll horisontellt cell efter cell;
- Sedan från Matchintervall textruta, välj de bildnamn som du vill infoga bilder baserat på;
- Och klicka sedan på Lägg till för att välja bildfiler eller mapp för att lägga till bilderna i Bildlista;
- Därefter bör du ange bildstorleken. var god klicka Importera storlek knappen, i Importera bildstorlek dialogrutan väljer du en bildstorlek efter behov.
3. När du har gjort inställningarna klickar du på Importera välj en cell eller en lista med celler för att hitta bilderna från den poppade ut Matcha importera bilder dialogruta, se skärmdump:
4. Klicka sedan OK, och alla bilder som namnen matchade med cellvärdena har infogats, se skärmdump:
Infoga eller visa bilder eller bilder från webbadresser
Har du någonsin försökt visa eller infoga bilderna från en lista med webbadresser? Det kan finnas att det inte finns någon annan bra metod för att infoga bilderna direkt i Excel, men du kan använda en kod eller ett tredjepartsverktyg för att hantera det.
Infoga eller visa bilder eller bilder från webbadresser med VBA-kod
Använd följande VBA-kod för att infoga bilderna baserat på en lista med webbadresser.
1. Justera först den intilliggande cellstorleken som du vill hitta bilderna.
2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
3. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna fönster.
VBA-kod: Infoga bilder från en lista med webbadresser
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
Anmärkningar: I ovanstående kod, A2: A5 är cellintervallet som innehåller URL-adresserna du vill extrahera bilderna, bör du ändra cellreferenser efter dina behov.
4. Tryck sedan på F5 nyckel för att köra den här koden, kommer de matchande bilderna att extraheras från webbadresserna till intilliggande kolumn och placeras i mitten av celler, se skärmdump:
Infoga eller visa bilder eller bilder från webbadresser med en fantastisk funktion
Kutools för Excel har en fantastisk funktion - Infoga bilder från sökväg (URL). Med det här verktyget extraheras motsvarande bilder från webbadresserna snabbt och enkelt.
1. Klicka Kutools > Insert > Infoga bilder från sökväg (URL), se skärmdump:
2. I poppade ut Infoga bilder från sökväg (URL) dialogrutan, ställ in följande åtgärder:
- Välj listan med URL-celler och ett cellområde där du vill placera bilderna;
- Ange storleken på bilderna som du behöver från bild~~POS=TRUNC sektion.
3. Och klicka sedan på Ok -knappen, och alla bilder har extraherats från webbadresserna, se skärmdump:
Infoga eller visa bilder eller bilder från filvägar
Om du behöver infoga bilderna från filsökvägen, finns här också lösningarna för dig.
Infoga eller visa bilder eller bilder från filvägar med VBA-kod
Du kan använda följande VBA-kod för att infoga bilder baserat på bildfilens sökvägar.
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra sedan in följande kod i Modulerna Fönster.
VBA-kod: Infoga bilder från en rad filvägar
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. När du har infogat ovanstående kod trycker du på F5 nyckel för att köra den här koden, då visas en snabbruta, välj cellerna i filvägen, se skärmdump:
4. Klicka sedan OK -knappen har alla bilder baserade på filvägarna visats i nästa kolumn som följande skärmdump visas:
Infoga eller visa bilder eller bilder från filvägar med en fantastisk funktion
Kutools för ExcelÄr Infoga bilder från sökväg (URL) funktionen kan också hjälpa dig att visa de relativa bilderna från filvägen.
Kutools för Excel - Fullpackad med över 300 viktiga verktyg för Excel. Njut av permanent gratis AI-funktioner! Ladda ner nu!
1. Klicka Kutools > Insert > Infoga bilder från sökväg (URL), i dialogrutan poppade ut, ange filvägsintervallet, intervall för utmatning av bilder, bildstorlek efter behov, se skärmdumpar:
2. När du har ställt in alternativen klickar du på Ok knappen, kommer bilderna att införas i de valda cellerna på en gång, se skärmdump:
Infoga bild eller bild i en kommentar
Kanske är det enkelt att infoga en bild i en cell, men ibland kanske du vill infoga en bild i en kommentarruta, hur hanterar du den här uppgiften?
1. Markera och högerklicka på cellen där du vill infoga kommentar och välj sedan Infoga kommentar, se skärmdump:
2. Håll muspekaren över kanterna på kommentarrutan tills du ser att markören blir en fyrpilsikon. Och högerklicka sedan och välj Formatera kommentar alternativ, se skärmdump:
3. I poppade ut Formatera kommentar dialogrutan, klicka Färger och linjer fliken och välj sedan Fyllningseffekter från Färg rullgardinsmeny, se skärmdump:
4. Sedan, i det följande Fyllningseffekter dialogrutan, klicka Bild fliken och klicka på Välj bild för att välja en bild som du vill infoga, se skärmdump:
5. Och klicka sedan på OK > OK, har bilden infogats i kommentarrutan, se skärmdump:
Infoga bild eller bild i sidhuvud eller sidfot
Om du vill infoga en bild i sidhuvudet eller sidfoten i ditt Excel-kalkylblad kan stegen i det här avsnittet hjälpa dig, gör så här:
1. Aktivera kalkylbladet där du vill infoga bilden i sidhuvudet eller sidfoten.
2. Klicka sedan Insert > Sidhuvud och sidfot, och du kommer att gå till Sidhuvud & sidfotverktyg flik. Se skärmdump:
3. Om du vill infoga en bild i sidhuvudet eller sidfoten klickar du på vänster, höger eller mittruta eller sidfot efter behov och klickar sedan på Bild under Designa flik, se skärmdump:
4. Sedan, en Infoga bilder fönstret dyker upp, välj den bild du vill lägga till och klicka på Infoga. Nu, a &[Bild] platshållare visas i sidhuvudet eller sidfoten. Klicka var som helst utanför sidhuvudet eller sidfoten, den infogade bilden visas som nedan visad skärmdump:
tips: Ibland kan du upptäcka att bilden överlappar dataområdet i kalkylbladet enligt nedanstående skärmdump. Detta beror på att bilden är för stor och att den inte kommer att ändras så att den passar rubriken eller sidfoten automatiskt.
För att lösa problemet behöver du bara ändra storlek på bilden i sidhuvudet eller sidfoten, gör med följande steg:
1. Klicka i avsnittet sidhuvud eller sidfot där bilden finns och klicka sedan på Formatera bild under Designa flik, se skärmdump:
2. I Formatera bild under dialogrutan Storlek fliken, justera storleken på bilden så att den passar rubriken eller sidfältet, se skärmdump:
3. Och klicka sedan på OK, får du resultatet efter behov.
Infoga samma bild eller bild i flera kalkylblad
Ibland kanske du vill infoga en logobild i alla kalkylblad i din arbetsbok. Normalt kan du använda funktionen Infoga för att infoga bilden från ett ark till ett annat en efter en. Med undantag för den här tidskrävande funktionen kan följande VBA-kod hjälpa dig att infoga samma bild i den specifika cellen på alla ark samtidigt. Gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Infoga samma bild i alla kalkylblad:
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
Anmärkningar: I ovanstående kod, C: \ Användare \ AddinTestWin10 \ Skrivbord \ mina bilder \ logo.png är bildens sökväg och namn, och A1 in Räckvidd ("A1") är den cell där du vill infoga bilden, ändra dem efter behov.
3. Tryck sedan på F5 nyckel för att köra den här koden, och den specifika bilden har införts i cell A1 i varje kalkylblad omedelbart. Se nedan demo:
Infoga bild eller bild bakom cellinnehållet
För att göra kalkylbladets data vackrare och mer attraktiv kan du använda en bild som bakgrund. För att infoga en bild bakom cellinnehållet, här är några metoder som kan göra dig en tjänst.
Infoga bild eller bild bakom cellinnehållet med bakgrundsfunktionen
1. Öppna kalkylbladet där du vill infoga en bakgrundsbild.
2. Klicka sedan Sidan Layout > Bakgrund, se skärmdump:
3. I poppade ut Infoga bilder fönster, välj en bild från din dator, webbplats eller OneDrive efter behov, se skärmdump:
4. Nu har bilden infogats i kalkylbladet som bakgrund enligt nedanstående skärmdump:
tips: Klicka på för att radera bakgrundsbild Sidan Layout > Radera bakgrund. Se skärmdump:
Infoga transparent bild eller bild bakom cellinnehållet
Med ovanstående metod kan du inte ändra det transparenta i den infogade bakgrundsbilden, så om bakgrundsbildens färg är tung är det inte bekvämt för dig att läsa data i kalkylbladet. Detta avsnitt kommer jag att prata om hur man sätter in en transparent bild bakom cellerna.
1. Klicka Insert > Formeroch välj en rektangelform, se skärmdump:
2. Rita sedan en form så stor som du behöver i det aktiva kalkylbladet.
3. Efter att ha ritat formen, a ritverktyg fliken visas i menyfliksområdet och klicka sedan på bildad > Shape Outline > Ingen översikt, se skärmdump:
4. Högerklicka sedan på formen och välj Formatera form från snabbmenyn, se skärmdump:
5. I den utökade Formatera form under rutan Fyll & rad gör följande åtgärder:
- Enligt Fyll avsnitt, välj Bild eller strukturfyllning alternativ;
- Klicka Insert knapp från Bildkälla, och välj en bild du vill infoga;
- Justera sedan bildens genomskinlighet efter ditt behov från Öppenhet sektion.
6. Och sedan ser du formen fylld med bilder ser ut som en bakgrundsbild som visas ovan.
Anmärkningar: När du har infogat den här typen av bakgrundsbild får du inte skriva in någon text inom bildområdet.
Infoga transparent bild eller bild bakom cellinnehållet som vattenstämpel
Båda metoderna ovan har sina egna begränsningar, den första metoden kan inte ändra bildens genomskinlighet, den andra metoden tillåter inte att mata in text i cellerna i bildområdet. För att lösa dessa problem, Kutools för ExcelÄr Infoga vattenstämpel funktionen kan göra dig en tjänst.
1. Klicka Kutools > Insert > Infoga vattenstämpel, se skärmdump:
2. I poppade ut Infoga vattenstämpel dialogrutan väljer du Bild vattenstämpelOch klicka sedan på Välj bild för att välja en bild som du vill infoga och ange sedan bildskalan och markera alternativet Washout, se skärmdump:
3. Klicka sedan Ok knappen har bilden infogats i kalkylbladet som bakgrundsbild.
Infoga ett cellområde som bild- eller bildformat i Excel
Har du någonsin försökt att kopiera ett antal celler och infoga det som bild i Excel? I det här avsnittet kommer jag att presentera ett snabbt sätt att hantera detta jobb i Excel.
Infoga en rad celler som bild- eller bildformat med funktionen Kopiera som bild
I Excel kan du använda Kopiera som bild funktion för att kopiera och infoga ett cellintervall som bild.
1. Välj det cellområde som du vill kopiera och infoga som bild.
2. Klicka sedan Hem > Kopiera > Kopiera som bild, se skärmdump:
3. I poppade ut Kopiera bild dialogrutan, välj Bild från bildad avsnitt, se skärmdump:
4. Klicka sedan OK knappen, nu behöver du bara trycka på Ctrl + V att klistra in bilden till någonstans i arbetsboken.
Infoga ett cellområde som bild- eller bildformat med kameraverktyget
I Excel finns det en Kamera verktyg som kan hjälpa dig att ta ett foto för dina valda data och sedan klistra in det som en bild. När originaldata ändras kommer den kopierade bilden att ändras dynamiskt.
Först bör du visa Kamera på bandet och applicera det sedan.
1. Klicka Anpassa snabbåtkomstverktygsfältet och klicka sedan på Fler kommandon alternativ, se skärmdump:
2. I det öppnade Excel-alternativ dialogrutan, gör följande:
- Välja Alla kommandon från Välj kommandon från falla ner;
- Bläddra sedan för att välja Kamera från listrutan;
- Och klicka sedan på Lägg till för att lägga till detta verktyg i Anpassa snabbåtkomstverktygsfältet;
- Äntligen klickar du på OK för att stänga denna dialogruta.
3. Och den Kamera verktyget har visats på menyfliksområdet, se skärmdump:
4. Välj sedan det cellområde som du vill ha en bild.
5. Klicka sedan på Kamera verktyg, gå sedan till kalkylbladet och klicka var som helst, dataområdet kommer att infogas som en bild som visas nedan:
Infoga ett antal celler som bild- eller bildformat med en användbar funktion
Om du Kutools för Excel, med dess Resursbibliotek funktionen kan du spara den valda informationen i Resursbibliotek, och använd den som bild eller text för framtiden som du vill.
Kutools för Excel - Fullpackad med över 300 viktiga verktyg för Excel. Njut av permanent gratis AI-funktioner! Ladda ner nu!
1. Välj det dataområde som du vill infoga som bild.
2. Klicka sedan Kutools > Navigering, se skärmdump:
3. I den utökade Navigering fönster, klicka Resursbibliotek och klicka sedan på Lägg till markerat innehåll i resursbiblioteket ikon, se skärmdump:
4. I Ny post i resursbiblioteket i dialogrutan, ange ett namn för det här objektet och välj sedan en grupp som du vill lägga till. Se skärmdump:
5. Klicka sedan Lägg till knappen för att lägga till den till Resursbibliotek ruta. Om du vill infoga detta intervall som bild behöver du bara klicka på en cell för att hitta bilden och sedan hitta det sparade objektet från Resursbibliotek och klicka Infoga som > Bild (EMF) från rullgardinsmenyn för artikeln. Och dataområdet kommer att infogas i arket som en bild, se skärmdumpar:
Infoga bild eller bild baserat på cellvärde dynamiskt
I det här avsnittet visar jag dig hur du visar en specifik bild baserat på ett cellvärde. Till exempel vill jag visa motsvarande bild när jag väljer ett specifikt objekt från en nedrullningscell, och när jag väljer en annan kommer bilden att ändras dynamiskt enligt nedanstående demo:
Infoga bild eller bild baserat på cellvärde dynamiskt med funktionen Named range
Normalt kan du i Excel skapa ett dynamiskt namnintervall och sedan använda den länkade bilden för att lösa denna uppgift i Excel.
1. Först bör du skapa två kolumner som innehåller produktnamn och relativa bilder, se skärmdump:
2. Skapa sedan en rullgardinsmeny för cellvärdena. Klicka på en cell för att mata ut listrutan och klicka sedan på Data > Datagransknings > Datagransknings, se skärmdump:
3. I poppade ut Datagransknings under dialogrutan Inställningar fliken, välj Lista från Tillåt rullgardinsmenyn och välj sedan de celler som du vill skapa rullgardinsmenyn från Källa textruta, se skärmdump:
4. Klicka OK, och rullgardinsmenyn med cellvärdena har skapats, välj ett objekt i listrutan, se skärmdump:
5. Klicka sedan Formler > Definiera namn, se skärmdump:
6. I Nytt namn dialogrutan, gör följande:
- Ange ett namn som heter myimage i Namn textruta;
- Kopiera och klistra sedan in den här formeln: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) in i textrutan Hänvisar till.
Anmärkningar: I ovanstående formel:
- Ark11! $ A $ 2: $ B $ 6: är kalkylbladet och intervallet som innehåller de värden och bilder du vill använda;
- Sheet11! $ E $ 2: är cellen i kalkylbladet där du har skapat rullgardinsmenyn;
- Sheet11! $ A $ 2: $ A $ 6: är listan över celler som du skapade rullgardinsmenyn baserat på;
- Variabelnumret 2 är kolumnnumret som innehåller bilderna. Om dina bilder finns i kolumn C bör du ange 3.
7. Och klicka sedan på OK kopiera och klistra sedan in motsvarande bild baserat på cellvärdet i E2 från det ursprungliga intervallet till cellen F2, se skärmdump:
8. Välj sedan bilden i cell F2 och ange sedan denna formel = min bild (min bild är intervallnamnet som du skapade i steg 6) i formelfältet, se skärmdump:
9. När du har angett formeln trycker du på ange när du väljer ett objekt i listrutan kommer dess relativa bild att visas omedelbart. Se skärmdump:
Infoga bild eller bild baserat på cellvärde dynamiskt med en praktisk funktion
Ovanstående metod kan vara svår för de flesta av oss, här introducerar jag en praktisk funktion - Listruta för bild of Kutools för Excel, med det här användbara verktyget kan du skapa flera rullgardinslistor med deras relativa bilder med bara flera klick.
1. Först bör du skapa två kolumner som innehåller produktnamn och relativa bilder i kalkylbladet.
2. Och klicka sedan på Kutools > Listrutan > Listruta för bild, se skärmdump:
3. I Listruta för bild dialogruta, om du har skapat kolumnerna med cellvärden och bilder, ignorera steg 1, välj sedan originaldata- och bildintervallet och utmatningsområdet, se skärmdump:
4. Och klicka sedan på Ok -knappen har rullgardinslistorna med bilder skapats i de valda cellerna, och när du väljer ett objekt i rullgardinscellen visas motsvarande bild på en gång, se nedan demo:
Exportera eller spara alla bilder eller bilder från en Excel-fil
Om det finns flera bilder i din arbetsbok och nu vill du extrahera och spara alla bilder från Excel-filen i en mapp. Hur kunde du lösa den här uppgiften i Excel?
Exportera eller spara alla bilder eller bilder från Excel med funktionen Spara som
Normalt kan du använda Spara som funktion för att spara alla bilder från arbetsboken, gör så här:
1. Klicka Fil > Spara somI Spara som i fönstret, ange en mapp för att exportera filerna och välj sedan Webbsida (*. Htm; *. Html) från Spara som typ rullgardinslista, se skärmdump:
2. Och klicka sedan på Save , gå till den specifika mappen, du kommer att se två filer, en är HTML-formatfilen och en annan är en mapp som innehåller bilder, diagram eller andra objekt från arbetsboken. Se skärmdump:
3. Sedan kan du bara dra bilderna till en annan mapp efter behov.
Anmärkningar: Genom att använda detta Spara som funktionen, kommer du att få varje bild två gånger, en är mindre, en annan är större, så att du kan spara bilder med högre upplösning efter behov.
Exportera eller spara alla bilder eller bilder från Excel genom att ändra filtillägget
För att spara alla bilder från Excel-filen kan du också ändra filtillägget till RAR. Gör så här:
1. Ändra filtillägget xlsx till rar som nedan visas skärmdump:
2. Packa sedan upp filen så ser du 3 mappar och 1 fil i mappen, se skärmdump:
3. Klicka sedan för att öppna xl mappen och öppna sedan medium mappen ser du att alla bilder lagras här utan dubbletter, se skärmdump:
Exportera eller spara alla bilder eller bilder från Excel med en kraftfull funktion
Om du Kutools för Excel, med dess Exportera grafik kan du snabbt exportera vissa specifika objekt, till exempel bilder, diagram, former till bildformat efter behov.
1. Klicka Kutools Plus > Import Export > Exportera grafik, se skärmdump:
2. I Exportera grafik dialogrutan, gör följande:
- Välja Bilder alternativ från Typer rullgardinsmeny;
- Ange en mapp för att spara dina exporterande bilder;
- Klicka sedan på rullgardinsmenyn från Exportera format för att välja ett format för dina bilder.
3. Äntligen klickar du på Ok -knappen, alla bilder i den aktuella arbetsboken har sparats i den mapp du har angett, se skärmdump:
Byt namn på bildnamn i en mapp baserad på en lista över celler i Excel
Om du har många bilder i en mapp och nu vill du byta namn på alla dessa bilder, hur kan du lösa det här jobbet på ett enkelt sätt i Excel?
I Excel bör du först lista alla gamla bildnamn i en kolumn och sedan skriva de nya namnen, äntligen tillämpa en VBA-kod för att ersätta de gamla namnen med de nya namnen på en gång. Gör så här:
1. Vänligen lista alla bildnamn i en cellista, eller så kan du använda nedanstående kod för att lista alla bildnamn i en specifik mapp utan att manuellt skriva dem en efter en.
2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer Fönster.
3. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna fönster.
VBA-kod: lista alla bildnamn från en mapp
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. Tryck sedan på F5 nyckel för att köra den här koden och en snabbruta dyker upp, klicka på en cell där du vill mata ut bildnamnen, se skärmdump:
5. Klicka sedan OK, En annan Bläddra dialogrutan dyker upp, välj mappen som innehåller bilderna du vill lista alla bildnamn, se skärmdump:
6. Klicka OK, alla bildnamn i den specifika mappen har listats i cellerna, se skärmdump:
7. Skriv sedan in de nya namnen du behöver i en annan kolumn enligt nedanstående skärmdump:
8. Och sedan kan du använda nedanstående kod för att byta namn på bilderna, fortsätt trycka ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer Fönster.
9. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna fönster.
VBA-kod: Byt namn på flera filer i en mapp
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
Anmärkningar: I ovanstående kod, A: A indikerar den gamla bildnamnlistan du vill byta namn på, och B innehåller de nya bildnamnen som du vill använda kan du ändra dem efter dina behov.
10. Tryck sedan på F5 nyckel för att köra den här koden och i poppade ut Bläddra välj mappen som innehåller bilden du vill byta namn på, se skärmdump:
11. Och klicka sedan på OK -knappen har alla bildnamn ersatts med de nya namnen som visas nedan:
Förstora eller krympa bilden när du klickar på den
Om du antar att du har lagt in en liten bild i kalkylbladet, nu vill du förstora bilden när du klickar på den och krympa den när du klickar igen enligt nedan. Hur kunde du lösa den här uppgiften i Excel?
För att förstora eller krympa bildstorleken när du klickar på den kan följande kod göra dig en tjänst. Gör så här:
1. Högerklicka på bilden och välj Tilldela makro, se skärmdump:
2. Sedan, i poppade ut Tilldela makro dialogrutan, klicka på Nya knapp, se skärmdump:
3. I Microsoft Visual Basic för applikationer kopiera och klistra in koden nedan mellan Sub och End Sub koder. Se skärmdump:
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. Tryck sedan på Alt+Q för att stänga Microsoft Visual Basic för applikationer fönster. Nu när du klickar på bilden kommer den att förstoras till den storlek du angav, och klicka på den igen kommer att krympa till originalstorleken som visas nedan:
Flytta alltid en bild när du bläddrar i kalkylbladet
Ibland kanske du vill flyta en bild på kalkylbladet även om du rullar upp eller ner på kalkylbladet så att du kan se bilden hela tiden. I det här avsnittet kommer jag att presentera ett snabbt trick för dig att hantera detta jobb i Excel. Gör med följande steg:
1. Först in en bild som du vill använda.
2. Högerklicka sedan på arkfliken som innehåller bilden du alltid vill ha synlig och välj sedan Visa kod från snabbmenyn. I det öppnade Microsoft Visual Basic för applikationer fönster, kopiera och klistra in koden nedan i den tomma modulen:
VBA-kod: Flytta alltid en bild i ett kalkylblad
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
Anmärkningar: I den här koden är Bild 1 är det bildnamn du har infogat, ändra det till ditt behov.
3. Spara och stäng sedan kodfönstret, när du bläddrar i kalkylbladet och klickar på en cell kommer bilden alltid att finnas i det övre högra hörnet av kalkylbladet. Se skärmdump:
Ta bort bilder eller bilder från det aktiva arket / ett cellområde
Har du några snabba sätt att radera alla bilder från ett kalkylblad, ett cellområde eller aktuell arbetsbok? Detta avsnitt kommer jag att presentera några metoder för att lösa detta jobb i Excel.
Ta bort bilder eller bilder från aktivt ark med VBA-kod
För att ta bort bilderna från det aktuella kalkylbladet kan nedanstående VBA-kod hjälpa dig, gör så här:
1. Aktivera kalkylbladet som innehåller bilderna du vill ta bort.
2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
3. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.
VBA-kod: Ta bort alla bilder från det aktuella kalkylbladet
Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub
4. Tryck sedan på F5 för att köra den här koden och alla bilder i det aktiva kalkylbladet raderas på en gång.
Ta bort bilder eller bilder från ett antal celler med VBA-kod
Om du behöver ta bort bilderna från endast ett cellområde, här är en annan enkel kod som kan hjälpa dig.
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.
VBA-kod: Ta bort bilderna från ett antal celler
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
Anmärkningar: I ovanstående kod, B4: C6 är det intervall som du vill ta bort bilderna från.
3. Tryck sedan på F5 för att köra den här koden, och bilderna i det valda intervallet raderas på en gång, se skärmdumpar:
Ta bort bilder eller bilder från aktivt ark, valda ark, alla ark med en praktisk funktion
Om du Kutools för Excel, med dess Ta bort illustrationer och objekt kan du snabbt ta bort bilderna från ett kalkylblad, vissa valda ark eller hela arbetsboken.
1. Klicka Kutools > Radera > Ta bort illustrationer och objekt, se skärmdump:
2. I det öppnade Ta bort illustrationer och objekt dialogruta, kontrollera Bilder från Radera avsnittet och ange sedan det omfång som du vill ta bort bilderna under Titta in avsnitt, se skärmdump:
3. Klicka sedan Ok knappen, och alla bilder raderas från kalkylbladet, valda kalkylblad eller hela arbetsboken som du angav.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!