Как да вмъкна картина в текстово поле?
По подразбиране можем да вмъкнем картина или изображение в работен лист толкова бързо, като използваме функцията Вмъкване, но тази функция не се прилага за вмъкване на картина в текстово поле. С тази статия мога да ви помогна да вмъкнете картина в текстово поле, както ви е необходимо.
Вмъкнете картина или изображение в текстово поле с VBA код
Вмъкнете картина или изображение в текстово поле с VBA код
За да вмъкнете картина в текстово поле, следният VBA код може да ви помогне, моля, направете следното:
1. Вмъкнете текстово поле, като щракнете Поставете > Text Boxи след това нарисувайте текстово поле, вижте екранната снимка:
2. След това задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
3. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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% и намалява стотици кликвания на мишката за вас всеки ден!