Kuvien lisääminen Exceliin Makron avulla

Makrot Excelissä voivat suorittaa toimintoja, kuten kuvien lisääminen, tietojen kopioiminen solusta toiseen jne. Jotta voisit kirjoittaa tehokkaan makron kuvien lisäämiseksi Excelissä, sinun on käytettävä silmukkaa

Tämä usein kysytyt kysymykset kulkevat läpi tämän makron soveltamisen laskentataulukkoon, jotta kuvat näkyvät.

Lisää kuvia Exceliin käyttämällä makroa

Jos haluat käyttää makroa kuvien lisäämiseksi, sinun on aloitettava seuraavat oletukset: kuvien nimet löytyvät sarakkeesta B alkaen B2: sta; haluat liittää kunkin kuvan eri paikkaan; missä liittää B: ssä tunnistettu kuva löytyy C: stä alkaen alkavasta C: stä.

Kirjoita nyt seuraava koodi:

 Alikuva ()
Dim picname kuten merkkijono
Dim pasteAt Aseta kokonaisuutena
Dim lThisRow As Long
lThisRow = 2
Tee vaikka (solut (lThisRow, 2) "")
'Range ("A6"). Valitse' Tämä on kuva, johon kuva lisätään
pasteAt = Solut (lThisRow, 3)
Solut (pasteAt, 1) .Valitse 'Tämä on kuva, johon kuva lisätään
'Dim picname kuten merkkijono
'picname = Range ("B6")' Tämä on kuvan nimi
picname = Solut (lThisRow, 2) 'Tämä on kuvan nimi
ActiveSheet.Pictures.Insert ("C: käyttäjät vbayat Omat tiedostot vidabat-markkinat" & picname & ".jpg"). Valitse "Polku, johon kuvat tallennetaan
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '''
'Tämä muuttaa kuvan kokoa
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '''
Valinnalla
'.Left = Range ("A6") Vasen
'.Top = Range ("A6")
.Left = solut (pasteAt, 1)
.Top = Solut (pastatAt, 1)
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Lopeta
lThisRow = lThisRow + 1
silmukka
Range ( "A10"). Valitse
Application.ScreenUpdating = True
Lopeta Sub
ErrNoPhoto:
MsgBox "Valokuva ei löydy" Näyttää viestiruudun, jos kuvaa ei löydy
Lopeta Sub
Range ( "B20"). Valitse
Lopeta Sub