Jak skopiować obraz z arkusza do formularza użytkownika w programie Excel?
W tym artykule zostaną przedstawione metody kopiowania obrazu z aktywnego arkusza do Userform w programie Excel.
Skopiuj obraz z arkusza do Userform z kopiowaniem i wklejaniem
Skopiuj obraz z arkusza do Userform za pomocą kodu VBA
Skopiuj obraz z arkusza do Userform z kopiowaniem i wklejaniem
Wykonaj następujące czynności, aby skopiować obraz z arkusza do Userform.
1. Przejdź do arkusza roboczego zawierającego obraz, który chcesz skopiować do Userform, a następnie naciśnij inny + F11 klucze razem, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications kliknij wstawka > Formularz użytkownika. Zobacz zrzut ekranu:
3. Teraz proszę wstawić Image Control do UserForm. Proszę kliknąć Obraz przycisk w Toolbox okno dialogowe, a następnie narysuj kontrolkę obrazu do pliku UserForm ręcznie. Zobacz zrzut ekranu:
4. Prawym przyciskiem myszy kliknij wstawioną kontrolkę Obraz i kliknij Właściwości z menu kontekstowego, jak pokazano na poniższym zrzucie ekranu:
5. Następnie możesz zobaczyć plik Właściwości okienko jest wyświetlane po lewej stronie Microsoft Visual Basic for Applications okno.
6. Wróć do arkusza roboczego i wybierz obraz, który chcesz wyświetlić w formularzu użytkownika, a następnie skopiuj obraz, naciskając Ctrl + C klawiatura.
7. Wejdź do Microsoft Visual Basic for Applications ponownie przewiń w dół, aby kliknąć Obrazek a następnie wklej skopiowaną nazwę obrazu do niego na karcie Alfabetycznie.
Teraz obraz w arkuszu jest kopiowany do formularza użytkownika.
Skopiuj obraz z arkusza do Userform za pomocą kodu VBA
W tej sekcji zostanie pokazane obejście umożliwiające skopiowanie wielu obrazów z arkusza do formularza użytkownika, a następnie wyświetlenie odpowiedniego obrazu w formularzu użytkownika, wybierając nazwę obrazu z pola Combo. Wykonaj następujące czynności.
1. Wykonaj powyższe kroki 1 i 2 o wstawienie formularza użytkownika do arkusza.
2. Następnie włóż Kontrola ramek do UserFrom, jak pokazano na poniższym zrzucie ekranu:
3. Kliknij prawym przyciskiem myszy wstawioną ramkę i wybierz Właściwości z menu kontekstowego. Po lewej Właściwości wybierz okienko Fałszywy z Statystyki pole. Zobacz zrzut ekranu:
4. Wstaw wiele kontrolek obrazu do ramki, jak pokazano poniżej.
5. Wróć do arkusza roboczego i wybierz obraz, który chcesz wyświetlić w formularzu użytkownika, i naciśnij Ctrl + C klucze do kopiowania.
6. Wejdź do Microsoft Visual Basic for Applications kliknij prawym przyciskiem myszy pierwszą kontrolkę obrazu i wybierz Właściwości z menu po kliknięciu prawym przyciskiem myszy. Zobacz pokazany zrzut ekranu.
7. w Właściwości okienku, kliknij Obrazek a następnie naciśnij Ctrl + V klawisze, aby wkleić obraz skopiowany w kroku 5, a następnie wybierz 1 - fmPictureSizeModeStrtch z Tryb rozmiaru obrazu rozwijana lista, jak pokazano poniżej.
8. Powtórz kroki 5 - 7, aby wkleić inne obrazy z arkusza do lewej kontrolki obrazu w formularzu użytkownika. Wynik zostanie wyświetlony, jak pokazano poniżej.
9. Przenieś Rama control do rogu UserForm, a następnie wstaw nowy Obraz kontrola i a Combo Box control do UserForm. Zobacz zrzut ekranu:
10. Kliknij prawym przyciskiem myszy plik UserForm, A następnie kliknij Wyświetl kod. Następnie skopiuj i wklej poniższy kod VBA, aby zastąpić oryginalny kod w oknie kodu.
VBA code1: Skopiuj obraz z arkusza do Userform
Private Sub ComboBox1_Change()
UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
Dim xImg As Control
On Error Resume Next
For Each xImg In UserForm1.Controls
If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
UserForm1.ComboBox1.AddItem xImg.Name
End If
Next
End Sub
Note: W kodzie Formularz użytkownika1 to nazwa wstawionego UserForm, Image4 to nazwa kontrolki Obraz, w której będziesz wyświetlać obrazy. I Obraz reprezentuje wszystkie kontrolki obrazu, które zawierają obrazy skopiowane z arkusza. Pole kombi1 to nazwa comboboxu, którą wstawiłeś do formularza użytkownika. Zmień je na własne.
11. Zamknij Microsoft Visual Basic for Applications okno.
12. Wstaw przycisk Polecenie do arkusza klikając Deweloper > wstawka > Przycisk polecenia (formant ActiveX).
13. Kliknij prawym przyciskiem myszy przycisk polecenia i wybierz Wyświetl kod z menu kontekstowego. A następnie skopiuj i wklej poniższy kod VBA do okna Kod. I w końcu zamknij okno.
VBA code2: Skopiuj obraz z arkusza do Userform
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15. kliknij Deweloper > Tryb projektowania , aby wyłączyć tryb projektowania.
Od tego momentu po kliknięciu przycisku polecenia pojawi się formularz UserForm. Możesz wyświetlić obraz, wybierając nazwę obrazu z pola kombi. Zobacz zrzut ekranu:
Wybierz różne nazwy z pola kombi, aby wyświetlić różne obrazy w formularzu użytkownika.
Podobne artykuły:
- Jak wyśrodkować zdjęcie w komórce programu Excel?
- Jak sprawdzić, czy komórka zawiera obraz w programie Excel?
- Jak dynamicznie wstawiać obraz lub obraz do komórki na podstawie wartości komórki w programie Excel?
- Jak powiększyć obraz po kliknięciu go 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!