Як центрувати зображення в комірці Excel?
Ця стаття покаже вам спосіб переміщення зображень до центру комірок на аркуші Excel, як показано нижче.
Перемістіть зображення в центр комірки з кодом VBA
Перемістіть зображення в центр комірки з кодом VBA.
Будь ласка, виконайте наступні дії, щоб перемістити зображення до центру комірок на аркуші в Excel.
1. Відкрийте аркуш із картинками, які потрібно відцентрувати в клітинках, а потім натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікно, натисніть Insert > Модулі. Потім скопіюйте та вставте код VBA у вікно коду.
Код VBA: Перемістіть зображення в центр комірок на аркуші
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примітки:
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 With3 Натисніть кнопку F5 клавіша для запуску коду.
Тоді всі вказані картинки будуть негайно переміщені в центр певних комірок, як показано нижче.
Статті по темі:
- Як автоматично змінювати всі зображення для переміщення та розміру за допомогою комірок у Excel?
- Як перевірити, чи містить клітинка зображення в Excel?
- Як динамічно вставити зображення або зображення в комірку на основі значення комірки в Excel?
- Як збільшити зображення, натиснувши на нього в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
