Як вставити малюнок у текстове поле?
За замовчуванням ми можемо швидко вставити малюнок або зображення на аркуш за допомогою функції Вставити, але ця функція не застосовується для вставки зображення в текстове поле. За допомогою цієї статті я можу допомогти вам вставити малюнок у текстове поле, як вам потрібно.
Вставте малюнок або зображення в текстове поле з кодом VBA
Вставте малюнок або зображення в текстове поле з кодом VBA
Щоб вставити малюнок у текстове поле, вам може допомогти такий код VBA, зробіть так:
1. Вставте текстове поле, клацнувши Insert > Текстове поле, а потім намалюйте текстове поле, див. знімок екрана:
2. Потім утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
3. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: Вставте зображення в текстове поле:
Sub ShapePicture()
Dim xSh As Shape
Dim xPic As IPictureDisp
Dim xFileName As String
xFileName = "C:\Users\DT168\Desktop\pictures\Apple.JPG"
Set xPic = LoadPicture(xFileName)
Set xSh = Sheets("Sheet4").Shapes(1)
xSh.Height = xPic.Height / xPic.Width * xSh.Width
Set xPic = LoadPicture("")
Set xPic = Nothing
xSh.Fill.UserPicture xFileName
End Sub
примітки: У наведеному вище коді, Sheet4 - назва аркуша, що містить текстове поле, до якого потрібно вставити малюнок, та C: \ Users \ DT168 \ Desktop \ pictures \ Apple.JPG це шлях до зображення, який ви хочете вставити, ви повинні змінити їх відповідно до своїх потреб.
4. А потім натисніть F5 клавішу для запуску цього коду, конкретне зображення буде відразу вставлено в текстове поле, і ви можете редагувати текстове поле, як вам потрібно, див.
Статті по темі:
Як встановити значення за замовчуванням у текстовому полі?
Як дозволити вводити в текстове поле лише цифри?
Як застосувати перевірку правопису в текстовому полі?
Як змінити колір текстового поля на основі значення в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!