Visual Basic for Application, w skrócie VBA, jest formą Visual Basic 6 zintegrowaną z programami pakietu Microsoft Office. Dzięki kodowaniu VBA umożliwia automatyzację zadań w programach pakietu Office, w tym w programie Excel. W niektórych przypadkach możesz nawet dodawać nowe funkcje do programu Excel za pomocą języka VBA.

Chociaż musisz pracować z kodem, aby używać VBA, nie oznacza to, że VBA składa się wyłącznie z liter i cyfr. Za pomocą języka VBA w programie Excel możesz utworzyć makro, które umożliwia wstawianie obrazów do komórki lub zakresu komórek. Czytaj dalej, aby dowiedzieć się wszystkiego na ten temat!

Jak wstawić obraz do komórki za pomocą języka VBA w programie Excel

Aby utworzyć makro do wstawiania obrazów do komórek Excela za pomocą VBA, właściwie nie potrzebujesz zaawansowanej znajomości języka Visual Basic. Wszystko, co musisz zrobić, to włączyć Narzędzia programistyczne, utworzyć makro i wkleić odpowiedni kod.

Jeśli jednak chcesz nauczyć się języka VBA i pewnego dnia napisać własny kod, podzieliliśmy kod VBA w trzeciej sekcji. Oczywiście ty też możesz

instagram viewer
wstawiaj zdjęcia w Excelu bez użycia VBA. Ale ten artykuł dotyczy tego, jak to zrobić za pomocą VBA. Przejdźmy do interesów!

Aby korzystać z języka VBA w programie Excel, musisz włączyć Narzędzia programistyczne w programie Excel. Spowoduje to włączenie karty Deweloper na wstążce, która jest domyślnie wyłączona.

  1. Otwórz Excela.
  2. Idź do Plik menu.
  3. Kliknij Opcje u dołu ekranu. Spowoduje to otwarcie okna Opcje programu Excel.
  4. W opcjach programu Excel przejdź do Dostosuj wstążkę patka.
  5. Pod Zakładki główne, sprawdzać Deweloper.

Teraz dostępne są dla Ciebie narzędzia programistyczne, w tym dostęp do VBA. Nie musisz tego robić za każdym razem, gdy chcesz używać VBA w Excelu. Narzędzia dla programistów pozostaną włączone, dopóki ich nie wyłączysz.

2. Tworzenie makra i wstawianie kodu

Teraz czas zabrać się za tworzenie makra. Alternatywnie możesz też utwórz przycisk za pomocą VBA do tego zadania, ale będziemy trzymać się makr.

  1. W Excelu przejdź do Deweloper patka.
  2. w Kod sekcja, wybierz Makra.
  3. W nowym oknie wprowadź nazwę swojego makra w polu Nazwa makra. będziemy korzystać wstaw zdjęcieMakro.
  4. Kliknij Tworzyć.

Po kliknięciu Utwórz okno VBA otworzy się i wyświetli kod Twojego makra. W tej chwili kod będzie się składał z dwóch linii: A Pod aby zainicjować makro, oraz an Napis końcowy zakończyć to.

Dodajmy trochę kodu do tego makra. Dodaj następujący kod między dwoma wierszami:

Przyciemnij zdjęcieNameAndPath Jak Wariant
Słabe zdjęcie Jak Zdjęcie
photoNameAndPath = Aplikacja. GetOpenFilename (Tytuł: ="Wybierać Zdjęcie DoWstawić")
Jeśli zdjęcieNazwaIŚcieżka = FAŁSZ Następnie Wyjście Pod
Ustawić zdjęcie = aktywny arkusz. Kino. Wstaw (zdjęcieNazwaAndŚcieżka)
Z zdjęcie
 .Lewy = Aktywny arkusz. Zakres("A1").Lewy
 .Top = Aktywny arkusz. Zakres("A1").Szczyt
 .Width = ActiveArkusz. Zakres("A1").Szerokość
 .Wysokość = Arkusz aktywny. Zakres("A1").Wysokość
 .Miejsce = 1
KoniecZ

Twój końcowy kod powinien być podobny do poniższego:

Nie musisz się martwić o zapisywanie swoich postępów. Każda zmiana dokonana w VBA jest natychmiast zapisywana.

Teraz nadszedł czas, aby zobaczyć kod w pracy.

  1. Zamknij okno VBA.
  2. Idź do Deweloper zakładka w Excelu.
  3. Wybierać Makra od Kod Sekcja.
  4. Zaznacz właśnie utworzone makro.
  5. Kliknij Uruchomić.

Teraz pojawi się monit z prośbą o zlokalizowanie pliku obrazu, który chcesz wstawić. Wybierz swój obraz, a następnie kliknij otwarty. Teraz powinieneś zobaczyć swoje zdjęcie w komórce A1!

Zauważ, że wstawiony obraz został zmniejszony, aby zmieścił się w komórce A1. Możesz to zmienić, a także zmienić kod, aby wstawić obraz w innych komórkach lub nawet w zakresie komórek. W następnej sekcji podzielimy kod i wyjaśnimy parametry w działaniu.

3. Łamanie kodu

Aby ten kod VBA działał dla Ciebie tak, jak chcesz, musisz go zrozumieć. Gdy to zrobisz, możesz zmienić kod, aby wstawić zdjęcia w dowolnej komórce w dowolnym rozmiarze. Przeanalizujemy kod krok po kroku, aby ułatwić zrozumienie.

Sub insertPhotoMacro()
Przyciemnij zdjęcieNameAndPath Jak Wariant
Słabe zdjęcie Jak Zdjęcie
photoNameAndPath = Aplikacja. GetOpenFilename (Tytuł: ="Wybierać Zdjęcie DoWstawić")
Jeśli zdjęcieNazwaIŚcieżka = FAŁSZ Następnie Wyjście Pod
Ustawić zdjęcie = aktywny arkusz. Kino. Wstaw (zdjęcieNazwaAndŚcieżka)
Z zdjęcie
.Lewy = Aktywny arkusz. Zakres("A1").Lewy
.Top = Aktywny arkusz. Zakres("A1").Szczyt
.Width = ActiveArkusz. Zakres("A1").Szerokość
.Wysokość = Arkusz aktywny. Zakres("A1").Wysokość
.Miejsce = 1
KoniecZ
Koniec Pod

Po uruchomieniu kodu używamy Ciemny instrukcja określająca typ zmiennej. Mamy tutaj dwie zmienne: zdjęcieNazwaIŚcieżka I zdjęcie samo. Ten pierwszy określiliśmy jako a Wariant a ten ostatni jako Zdjęcie.

Stamtąd uruchamia się zmienna photoNameAndPath i otwiera aplikację, aby uzyskać informacje o lokalizacji pliku obrazu. Odbywa się to poprzez Aplikacja. Pobierz nazwę otwartego pliku. The Tytuł parametr jest opcjonalny, a jego zawartość jest wyświetlana jako nazwa okna.

Za pomocą Jeśli photoNameAndPath = False, to wyjdź z Sub, określamy, że w przypadku podania nieprawidłowego lub pustego adresu proces powinien zostać zakończony. Jeśli jednak podany zostanie właściwy plik, to Ustaw zdjęcie = ActiveSheet. Kino. Wstaw (zdjęcieNazwaAndŚcieżka) wskazuje, że obrazek powinien zostać ustawiony jako zmienna foto, którą zdefiniowaliśmy wcześniej i powinien zostać wstawiony do aktywnego arkusza kalkulacyjnego.

Wreszcie za pomocą Ze zdjęciem i pięć następujących po nim wierszy, omawiamy położenie obrazu. .Lewy I .Szczyt wskazać lokalizacje startowe, podczas gdy .Szerokość I .Wysokość wskazać miejsca końcowe. Jeśli chcesz wstawić obraz w innych komórkach lub w zakresie, to są to linie, które powinieneś zmienić.

.Umieszczenie wskazuje, czy obraz powinien być dostosowany do rozmiaru komórek, czy też wstawiony w dowolnej formie. Ustawienie na 1 dopasuje go do komórek.

Ostatecznie korzystamy Kończyć z i wtedy Napis końcowy aby zamknąć makro. Pamiętaj, że możesz zmienić zdjęcieNazwaIŚcieżka I zdjęcie zmienne na dowolną inną nazwę. Pamiętaj tylko, aby zachować spójność nazw w całym kodzie.

Zrób więcej w Excelu dzięki VBA

Excel jest rzeczywiście wspaniałym narzędziem do organizowania i analizowania danych, ale to nie znaczy, że Excel jest nieudolny, jeśli chodzi o grafikę. Chociaż zdjęcia i mapy bitowe nie są najmocniejszą stroną programu Excel, program Excel doskonale sobie z nimi radzi.

Chociaż możesz wstawiać obrazy w programie Excel za pomocą interfejsu, tak jak w innych aplikacjach pakietu Office, możesz to również robić za pomocą języka VBA. Dzięki VBA możesz zautomatyzować to zadanie, a nawet połączyć je z innymi zadaniami, aby były wykonywane jednocześnie. Możliwości VBA w Excelu są nieograniczone.