Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com inserir diverses imatges i canviar-ne el tamaño alhora a Excel?

És fàcil d'inserir una imatge a Excel, però si necessiteu inserir diverses imatges alhora, de manera que es pugui estalviar molt de temps, com podeu fer-ho?

Insereix múltiples imatges en Excel amb codi VBA

Insereix diverses imatges i s'ajusta automàticament amb Kutools per a Excel

Insereix diverses imatges que coincideixin amb els seus noms amb Kutools for Excel


fletxa blau dreta bombollaInsereix múltiples imatges en Excel amb codi VBA


Amb el següent codi VBA, podeu inserir diverses imatges a cel·les d'arxius d'Excel per cel·la.

1. Seleccioneu un interval que voleu inserir.

2. Mantingueu premut el botó ALT + F11 tecles i obre el Microsoft Visual Basic per a aplicacions finestra.

3. Clic Insereix > Mòduls, i enganxeu la macro següent al Finestra de mòduls.

Sub InsertPictures()
'Update 20140513
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. A continuació, premeu la tecla F5 clau per executar aquest codi i seleccioneu la carpeta que conté les imatges que voleu inserir. A continuació, especifiqueu les imatges que necessiteu. I feu clic a obert botó.

doc-insert-multiple-pictures1-1

5. I totes les imatges seleccionades s'han importat a la vostra selecció en funció de la mida de la cel·la. Mostra la captura de pantalla:

doc-insert-multiple-pictures2-2


fletxa blau dreta bombollaInsereix diverses imatges i s'ajusta automàticament amb Kutools per a Excel

Kutools for Excel'S Importa imatges La utilitat us pot ajudar a inserir ràpidament diverses imatges a Excel basades en la mida de la cel·la o la mida de la vostra imatge. Podeu especificar l'alçada i l'amplada de les imatges que necessiteu també.

Kutools for Excel Inclou més eines 300 pràctiques d'Excel. Lliure de provar sense límit en 30 dies. Agafa-ho ara.

Després d'instal·lar Kutools for Excel, feu el següent:

1. Clic empresa > Importació-exportació > Importa imatges, veure captura de pantalla:

doc-insert-multiple-pictures3-3

2. Al Importa imatges quadre de diàleg, feu les següents operacions:

  • (1.) Feu clic a la llista desplegable a sota Importa imatges secció per triar l'ordre de visualització de les imatges. Pots escollir Ompliu verticalment la cel·la després de la cel·la or Ompliu la cel·la horitzontalment després de la cel·la.
  • (2.) Feu clic Add botó per seleccionar els fitxers o carpetes d'imatge per afegir les imatges a la llista d'imatges. I totes les imatges seleccionades es mostraran al quadre de llista.

doc-insert-multiple-pictures4-4

3. A continuació, podeu especificar la mida de les imatges fent clic mida botó, i al Importa la mida de la imatge diàleg, podeu triar la mida de la imatge que coincideixi amb la vostra necessitat. Mostra la captura de pantalla:
doc-insert-multiple-pictures5-5

4. Després d'especificar la mida de la imatge, feu clic a OK per tancar aquest diàleg i tornar al Importa imatges diàleg, feu clic a Import botó per importar les imatges.

5. I totes les imatges seleccionades s'han inserit a les cel·les de la cel·la activa verticalment o horitzontalment. Mostra la captura de pantalla:
doc-insert-multiple-pictures6-6


fletxa blau dreta bombollaInsereix diverses imatges que coincideixin amb els seus noms amb Kutools for Excel

1. Seleccioneu les cel·les del nom de la fotografia que vulgueu inserir les vostres imatges coincidents.

2. Clic empresa > Importació-exportació > Importa imatges , i al quadre de diàleg sortir, feu clic a Add botó per afegir les imatges al quadre de llista d'imatges, veure captura de pantalla:

doc-insert-multiple-pictures7-7

3. A continuació, feu clic a Partit botó per seleccionar les cel·les amb els noms de les imatges que vulgueu coincidir amb les seves imatges.

doc-insert-multiple-pictures8-8

4. A continuació, tots els noms d'imatges es combinaran amb les imatges automàticament, feu clic a OK Per tornar al quadre de diàleg anterior, podeu especificar la mida de les imatges, feu clic mida botó, al Importa la mida de la imatge quadre de diàleg, estableixi la mida de la imatge segons necessiteu. Mostra la captura de pantalla:

doc-insert-multiple-pictures8-8

5. Clic OK per tancar aquest diàleg i, a continuació, feu clic a Import el botó i totes les imatges s'insereixen a les cel·les en funció dels seus noms relatius. Veure captures de pantalla:

doc-insert-multiple-pictures10-10 -2 doc-insert-multiple-pictures11-11

feu clic Importa imatges per saber més sobre aquesta funció.


Articles relacionats:

Com canviar la mida de les imatges per adaptar-se a les cel·les d'Excel?

Com podeu canviar la mida de diverses cel·les per ajustar-les ràpidament a Excel?



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Marco Itaborahy · 2 months ago
    Muito Obrigado, foi muito útil.
  • To post as a guest, your comment is unpublished.
    Nael · 6 months ago
    Quality of pictures is reduced when using the Code while its quality was good when adding it without the macro
  • To post as a guest, your comment is unpublished.
    Wong Vincent · 10 months ago
    How about adding the fit picture but maintain aspect ratio
    having trouble merging the following code:


    Public Sub FitPic()
    On Error GoTo NOT_SHAPE
    Dim PicWtoHRatio As Single
    Dim CellWtoHRatio As Single
    With Selection
    PicWtoHRatio = .Width / .Height
    End With
    With Selection.TopLeftCell
    CellWtoHRatio = .Width / .RowHeight
    End With
    Select Case PicWtoHRatio / CellWtoHRatio
    Case Is > 1
    With Selection
    .Width = .TopLeftCell.Width
    .Height = .Width / PicWtoHRatio
    End With
    Case Else
    With Selection
    .Height = .TopLeftCell.RowHeight
    .Width = .Height * PicWtoHRatio
    End With
    End Select
    With Selection
    .Top = .TopLeftCell.Top
    .Left = .TopLeftCell.Left
    End With
    Exit Sub
    NOT_SHAPE:
    MsgBox "Select a picture before running this macro."
    End Sub
  • To post as a guest, your comment is unpublished.
    SHAHBAZ · 1 years ago
    How can I modify the following code so that pictures are INSERT A1,B1,C1,D1
    PLEASE HELP
    • To post as a guest, your comment is unpublished.
      yam · 9 months ago
      Try this.
      ...

      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 )
      xColIndex = xColIndex
      Next

      ...
  • To post as a guest, your comment is unpublished.
    Javi · 1 years ago
    Amazing! Thank you!!