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

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

Зазвичай ми можемо швидко вставити малюнок на аркуш за допомогою функції Вставити в Excel, але чи намагалися коли-небудь вставити одне і те ж зображення на всі аркуші вашої книги? У цій статті я запропоную вам корисний метод вирішення цієї роботи.

Вставте однакове зображення на всі аркуші книги з кодом VBA


Вставте однакове зображення на всі аркуші книги з кодом VBA

Наступний код VBA може допомогти вам легко вставити зображення на всі аркуші, будь-ласка, зробіть це так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Вставте одне і те ж зображення на всі аркуші:

Sub InsertLogo()
    Dim I As Long
    Dim xPath As String
    Dim xShape As Shape
    Dim xRg As Range
    xPath = "C:\Users\DT168\Desktop\pic\logo.png"
    If Dir(xPath) = "" Then
        MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    For I = 1 To ActiveWorkbook.Sheets.Count
        Set xRg = Sheets(I).Range("A1")
        Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
    Next
End Sub

примітки: У наведеному вище коді, C:\Users\DT168\Desktop\pic\logo.png - шлях та назва вашого зображення, і A1 in Range("A1") це комірка, куди ви хочете вставити малюнок, будь ласка, змініть їх на власні.

3. Потім натисніть F5 клавішу для запуску цього коду, а потім конкретне зображення було вставлено в кожну клітинку А1 усього робочого аркуша одночасно. Дивіться знімок екрана:

doc вставити зображення на всі аркуші 1

примітки: Вставлене зображення буде налаштовано відповідно до розміру комірки.

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

🤖 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
me sale un mensaje "no se puede mostrar la imagen."
This comment was minimized by the moderator on the site
How can you add the photo to all sheets and assign a macro to it without going into each sheet individually and clicking the photo and assigning it?
This comment was minimized by the moderator on the site
Hola, Se puede hacer que la imagen no sea de una ruta del equipo si no que sea del mismo libro?
This comment was minimized by the moderator on the site
tem como exceutar a macro para adicionar imagem fora da celula em uma localizaçao especifica?
This comment was minimized by the moderator on the site
preciso adiconar imagens nas planilhas que ficam sobre as celulas a1, b1 e c1. Tem um modo de fazer isso?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations