Перейти до основного матеріалу

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

Автор: нд Остання зміна: 2020-10-09

Припустимо, що на аркуші є кілька зображень, які мають різні розміри. Чи є у вас способи збільшити або зменшити ці фотографії одним розміром одним клацанням миші? Для його вирішення немає вбудованої функції, але в цій статті я представляю код 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 AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you.
This comment was minimized by the moderator on the site
When I save as a Macro-Enabled workbook, close and then re-open, the image integrity has been lost.
This comment was minimized by the moderator on the site
I have tested that to save the workbook as macro-enable workbook, reopen the macro-enable workbook, the image is still there, and the code can work as well. Maybe try to save the workbook before you saving it as macro-enable workbook.
This comment was minimized by the moderator on the site
Doesn't work
This comment was minimized by the moderator on the site
Sorry, I did not know why it does not work in your case, but before carrying out this tutorial, I have tested it several times.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations