Preskoči na glavno vsebino

Kako centrirati sliko v celici Excel?

Ta članek vam bo prikazal način premikanja slik v središče celic na Excelovem delovnem listu, kot je prikazano spodaj.

Premaknite sliko v sredino celice s kodo VBA


Premaknite sliko v sredino celice s kodo VBA.

Naredite naslednje, če želite slike premakniti v sredino celic na delovnem listu v Excelu.

1. Odprite delovni list s slikami, ki jih želite centrirati v celice, nato pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite kodo VBA v okno Code.

Koda VBA: Premaknite slike v sredino celic na delovnem listu

Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub

Opombe:

1). V kodi se slika 2 premakne v sredino celice A1, slika 4 v celico A2 in slika 6 v celico A3.
2). Če želite več slik, da se premaknete v središče celic, dodajte to kodo v kodo VBA in spremenite Ime slike in Naslov celice glede na vaše potrebe.
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With

3. Pritisnite F5 tipko za zagon kode.

Nato bodo vse določene slike takoj premaknjene v središče določenih celic, kot je prikazano spodaj.


Sorodni članki:

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi crystal,

Just an idea, how about to center a selected image or shape in a cell, so no need to manually type Picture Name and Cell Address in the code?

Thanks.
This comment was minimized by the moderator on the site
Is there a way to use this macro without having to use the Picture name? Perhaps using the file type such as a .jpg or .png?
This comment was minimized by the moderator on the site
Hi Elijah,
It is hard to match images to the corresponding cells using the file type only.
This comment was minimized by the moderator on the site
how do you know what picture number to use? I tried adding code for b1 - b3 but not sure what picture number to use?
This comment was minimized by the moderator on the site
Hi Jeff,
Sorry for the inconvenience.
When selecting a picture, the picture number will be displayed on the Name box in Excel. It is the picture name in the workbook. See the attached image.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations