Как бързо да вмъкнете едно и също изображение в няколко работни листа?
Обикновено можем бързо да вмъкнем картина в работен лист, като използваме функцията Insert в Excel, но опитвали ли сте някога да вмъкнете една и съща картина във всички работни листове на вашата работна книга? Тази статия ще ви представя полезен метод за решаване на тази задача.
Вмъкнете едно и също изображение във всички работни листове на работната книга с VBA код
Вмъкнете едно и също изображение във всички работни листове на работната книга с VBA код
Следният VBA код може да ви помогне да вмъкнете изображение във всички работни листове с лекота, моля, направете следното:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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 за изпълнение на този код и след това конкретната картина е била вмъкната във всяка клетка A1 на целия работен лист наведнъж. Вижте екранна снимка:
Забележка: Вмъкнатата картина ще бъде коригирана, за да пасне на размера на клетката.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!