Jak wyśrodkować zdjęcie w komórce programu Excel?
W tym artykule pokażemy metodę przenoszenia obrazów do środka komórek w arkuszu programu Excel, jak pokazano poniżej.
Przenieś obraz do środka komórki za pomocą kodu VBA
Przenieś obraz do środka komórki za pomocą kodu VBA.
Wykonaj następujące czynności, aby przenieść obrazy do środka komórek w arkuszu kalkulacyjnym w programie Excel.
1. Otwórz arkusz roboczy zawierający obrazy, które chcesz wyśrodkować w komórkach, a następnie naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications kliknij wstawka > Moduł. Następnie skopiuj i wklej kod VBA do okna Code.
Kod VBA: Przenieś obrazy do środka komórek w arkuszu
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
Uwagi:
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. wciśnij F5 klucz do uruchomienia kodu.
Następnie wszystkie określone obrazy zostaną natychmiast przeniesione do środka niektórych komórek, jak pokazano poniżej.
Podobne artykuły:
- Jak automatycznie zmieniać wszystkie obrazy do przenoszenia i rozmiaru za pomocą komórek w programie Excel?
- Jak sprawdzić, czy komórka zawiera obraz w programie Excel?
- Jak dynamicznie wstawiać obraz lub obraz do komórki na podstawie wartości komórki w programie Excel?
- Jak powiększyć obraz po kliknięciu go w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- 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 redukuje setki kliknięć myszką każdego dnia!