Jak wstawić obrazek do pola tekstowego?
Domyślnie możemy wstawić obraz lub obraz do arkusza tak szybko, używając funkcji Wstaw, ale ta funkcja nie jest stosowana do wstawiania obrazu do pola tekstowego. W tym artykule pomogę Ci wstawić obrazek do pola tekstowego według potrzeb.
Wstaw obraz lub obraz do pola tekstowego z kodem VBA
Wstaw obraz lub obraz do pola tekstowego z kodem VBA
Aby wstawić obraz do pola tekstowego, następujący kod VBA może ci pomóc, wykonaj następujące czynności:
1. Wstaw pole tekstowe, klikając wstawka > Pole tekstowe, a następnie narysuj pole tekstowe, zobacz zrzut ekranu:
2. Następnie przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
3. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Wstaw obraz do pola tekstowego:
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
Note: W powyższym kodzie, Sheet4 to nazwa arkusza zawierająca pole tekstowe, do którego chcesz wstawić obraz, a C: \ Users \ DT168 \ Desktop \ pictures \ Apple.JPG to ścieżka do obrazu, który chcesz wstawić, należy je zmienić według potrzeb.
4. A następnie naciśnij F5 klucz do uruchomienia tego kodu, konkretny obraz zostanie wstawiony do pola tekstowego od razu i możesz edytować pole tekstowe, jak potrzebujesz, patrz zrzut ekranu:
Podobne artykuły:
Jak ustawić domyślną wartość w polu tekstowym?
Jak zezwolić tylko na wprowadzanie liczb w polu tekstowym?
Jak sprawdzić pisownię w polu tekstowym?
Jak zmienić kolor pola tekstowego na podstawie wartości w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!