Note: The other languages of the website are Google-translated. Back to English

 Як збільшити або зменшити зображення одним клацанням миші в Excel?

Припустимо, що на аркуші є кілька зображень, які мають різні розміри. Чи є у вас способи збільшити або зменшити ці фотографії одним розміром одним клацанням миші? Для його вирішення немає вбудованої функції, але в цій статті я представляю код VBA, щоб одним кліком збільшити або зменшити всі зображення на аркуші.

Збільшуйте та зменшуйте зображення одним клацанням VBA


стрілка синя права міхур Збільшуйте та зменшуйте зображення одним клацанням VBA

Виконайте дії, описані нижче, щоб збільшити або зменшити зображення одним клацанням миші.

1. Клацніть правою кнопкою миші на вкладці аркуша, де потрібно змінити розмір малюнків, і виберіть Переглянути код з контекстного меню.
doc збільшити зображення одним клацанням 1

2. У вискакуванні Microsoft Visual Basic для програмиs і вставте код нижче в порожній сценарій.

VBA: Збільшуйте та стискайте картинки одним клацанням миші

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
    Application.ScreenUpdating = False
    Dim xRg As Range, sPic As Shape
      For Each sPic In ActiveSheet.Shapes
        If Target.Column > 1 Then
            Set xRg = Target.Offset(, -1)
            With sPic
              If TypeName(.OLEFormat.Object) = "Picture" Then
                  If .TopLeftCell.Address = xRg.Address Then
                      .Height = 350
                      .Width = 250
                  End If
              End If
            End With
        ElseIf Target.Column = 1 Then
            With sPic
                If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
                End If
            End With
        End If
      Next sPic
    Application.ScreenUpdating = True
End Sub
doc збільшити зображення одним клацанням 2

 

3. Збережіть код і закрийте вікно. І якщо натиснути будь-яку клітинку стовпця А, усі зображення будуть зменшені. Дивіться знімок екрана:
doc збільшити зображення одним клацанням 3

4. І коли ви натискаєте клітинку в правій верхній частині зображення, відносна картинка буде збільшена. Дивіться знімок екрана:
doc збільшити зображення одним клацанням 4

Порада.Якщо ви хочете швидко вставити водяний знак на аркуші, спробуйте скористатися Kutools для Excel Вставте водяний знак як показано на наступному скріншоті. Це повноцінна функція без обмежень 30 днів, будь ласка, завантажте та отримайте безкоштовну пробну версію зараз.

doc вставити водяний знак

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (5)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Чи не працює
Цей коментар був мінімізований модератором на сайті
На жаль, я не знав, чому це не працює у вашому випадку, але перед тим, як виконувати цей посібник, я перевірив його кілька разів.
Цей коментар був мінімізований модератором на сайті
Коли я зберігаю як книгу з підтримкою макросів, закриваю, а потім знову відкриваю, цілісність зображення було втрачено.
Цей коментар був мінімізований модератором на сайті
Я перевірив це, щоб зберегти книгу як книгу з увімкненням макросів, знову відкрийте книгу з увімкненням макросів, зображення все ще там, і код також може працювати. Можливо, спробуйте зберегти книгу, перш ніж зберігати її як робочу книгу з підтримкою макросів.
Цей коментар був мінімізований модератором на сайті
Дякую.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL