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.

Odblokuj magię Excela za pomocą Kutools AI

• Inteligentne wykonanie: Wykonuj operacje na komórkach, analizuj dane i twórz wykresy — a wszystko to za pomocą prostych poleceń.
• Formuły niestandardowe: Generuj dostosowane formuły, aby usprawnić przepływ pracy.
• Kodowanie VBA: Pisz i wdrażaj kod VBA bez wysiłku.
• Interpretacja formuły: Z łatwością zrozum złożone formuły.
• Tłumaczenie tekstu: Przełam bariery językowe w arkuszach kalkulacyjnych.

Zwiększ możliwości programu Excel dzięki narzędziom opartym na sztucznej inteligencji. Pobierz teraz i doświadcz wydajności jak nigdy dotąd!

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?