Как вставить картинку в текстовое поле?
По умолчанию мы можем вставить картинку или изображение на лист так же быстро, используя функцию «Вставить», но эта функция не применяется к вставке изображения в текстовое поле. В этой статье я могу помочь вам вставить картинку в текстовое поле по мере необходимости.
Вставьте картинку или изображение в текстовое поле с кодом VBA
Вставьте картинку или изображение в текстовое поле с кодом VBA
Чтобы вставить изображение в текстовое поле, вам может помочь следующий код VBA, сделайте следующее:
1. Вставьте текстовое поле, нажав Вставить > текст Box, а затем нарисуйте текстовое поле, см. снимок экрана:
2. Затем удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
3. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код 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 for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!