Как автоматически изменить параметр «Перемещать и изменять размер вместе с ячейками» в Excel?

По умолчанию для вставленных в лист Excel изображений установлено значение «Перемещать, но не изменять размер вместе с ячейками», что означает, что они остаются того же размера, даже если вы изменяете размеры ячеек. Если вам нужно, чтобы изображения изменяли размер и перемещались вместе с ячейками, вам обычно приходится вручную изменять этот параметр для каждого изображения. Однако есть быстрый способ автоматически установить для всех изображений значение «Перемещать и изменять размер вместе с ячейками» с помощью простого кода VBA. Эта статья проведет вас через это.

Автоматически изменить все изображения на «Переместить и изменить размер вместе с ячейками» с помощью кода VBA

Автоматически изменить все изображения на «Переместить и изменить размер вместе с ячейками» с помощью кода VBA

Нижеприведенный код VBA поможет вам быстро изменить все свойства изображений на "Переместить и изменить размер вместе с ячейками" на рабочем листе. Пожалуйста, сделайте следующее.

1. Откройте рабочий лист, содержащий изображения, которые вы хотите изменить, перемещая и изменяя размер с помощью ячеек, затем откройте Microsoft Visual Basic для приложений окно, нажав другой + F11 ключи.

2. в Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Вставить > Модули. Затем скопируйте и вставьте код VBA в окно кода.

Код VBA: изменить все изображения на «Перемещать и изменять размер вместе с ячейками»

Sub MoveAndSizeWithCells()
    Dim xPic As Picture
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each xPic In ActiveSheet.Pictures
        xPic.Placement = xlMoveAndSize
    Next
    Application.ScreenUpdating = True
End Sub

3. нажмите F5 или нажмите кнопку «Выполнить», чтобы запустить код.

Для всех изображений на активном листе теперь автоматически устанавливается параметр «Перемещать и изменять размер вместе с ячейками».

Статьи по теме:

• Как центрировать изображение в ячейке Excel?
• Как проверить, есть ли в ячейке изображение в Excel?
• Как динамически вставлять изображение или изображение в ячейку на основе значения ячейки в Excel?
• Как увеличить изображение при нажатии на него в Excel?