Note: The other languages of the website are Google-translated. Back to English

 Jak powiększyć lub zmniejszyć obraz jednym kliknięciem w programie Excel?

Przypuśćmy, że w arkuszu znajduje się wiele zdjęć o różnych rozmiarach. Czy są jakieś sposoby, aby jednym kliknięciem powiększyć lub pomniejszyć te zdjęcia w jednym rozmiarze? Nie ma wbudowanej funkcji do rozwiązania tego problemu, ale w tym artykule wprowadzam kod VBA, aby jednym kliknięciem powiększyć lub pomniejszyć wszystkie obrazy w arkuszu.

Powiększaj i zmniejszaj obrazy jednym kliknięciem dzięki VBA


strzałka niebieski prawy bąbelek Powiększaj i zmniejszaj obrazy jednym kliknięciem dzięki VBA

Wykonaj poniższe czynności, aby powiększyć lub pomniejszyć zdjęcia jednym kliknięciem.

1. Kliknij prawym przyciskiem myszy kartę arkusza, w której chcesz zmienić rozmiar obrazów, i wybierz Wyświetl kod z menu kontekstowego.
doc powiększ zdjęcie jednym kliknięciem 1

2. W poppingu Microsoft Visual Basic dla aplikacjis i wklej poniższy kod do pustego skryptu.

VBA: powiększaj i zmniejszaj obrazy jednym kliknięciem

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
    Application.ScreenUpdating = False
    Dim xRg As Range, sPic As Shape
      For Each sPic In ActiveSheet.Shapes
        If Target.Column > 1 Then
            Set xRg = Target.Offset(, -1)
            With sPic
              If TypeName(.OLEFormat.Object) = "Picture" Then
                  If .TopLeftCell.Address = xRg.Address Then
                      .Height = 350
                      .Width = 250
                  End If
              End If
            End With
        ElseIf Target.Column = 1 Then
            With sPic
                If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
                End If
            End With
        End If
      Next sPic
    Application.ScreenUpdating = True
End Sub
doc powiększ zdjęcie jednym kliknięciem 2

 

3. Zapisz kod i zamknij okno. Po kliknięciu dowolnej komórki w kolumnie A wszystkie obrazy zostaną zmniejszone. Zobacz zrzut ekranu:
doc powiększ zdjęcie jednym kliknięciem 3

4. A kiedy klikniesz na komórkę, która w prawym górnym rogu obrazu, obraz względny zostanie powiększony. Zobacz zrzut ekranu:
doc powiększ zdjęcie jednym kliknięciem 4

Wskazówka.Jeśli chcesz szybko wstawić znak wodny do arkusza, spróbuj użyć Kutools dla programu Excel Wstaw znak wodny jak pokazano na poniższym zrzucie ekranu. To pełna funkcja bez ograniczeń 30 dni, pobierz i wypróbuj teraz bezpłatną wersję próbną.

doc wstaw znak wodny

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (5)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Nie działa
Ten komentarz został zminimalizowany przez moderatora na stronie
Przepraszam, nie wiedziałem, dlaczego to nie działa w twoim przypadku, ale przed wykonaniem tego samouczka testowałem go kilka razy.
Ten komentarz został zminimalizowany przez moderatora na stronie
Gdy zapisuję jako skoroszyt z obsługą makr, zamykam, a następnie otwieram ponownie, integralność obrazu została utracona.
Ten komentarz został zminimalizowany przez moderatora na stronie
Przetestowałem to, aby zapisać skoroszyt jako skoroszyt z obsługą makr, ponownie otworzyć skoroszyt z obsługą makr, obraz nadal tam jest, a kod może również działać. Może spróbuj zapisać skoroszyt, zanim zapiszesz go jako skoroszyt z obsługą makr.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję Ci.
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL