Przejdź do głównej zawartości

Jak kliknąć, aby powiększyć lub rozwinąć obraz w dokumencie programu Word?

W tym artykule jest mowa o tym, jak powiększyć lub rozwinąć obrazy w dokumencie programu Word jednym kliknięciem myszy.

Kliknij, aby powiększyć lub rozwinąć obraz z kodem VBA

Zmień rozmiar obrazów za pomocą Kutools for Word


Kliknij, aby powiększyć lub rozwinąć obraz z kodem VBA

Poniższy kod VBA może pomóc powiększyć obrazy w dokumencie programu Word jednym kliknięciem. Wykonaj następujące czynności.

1. W dokumencie zawierającym obrazy, które powiększysz jednym kliknięciem, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł klasy. Następnie skopiuj poniższy kod VBA do okna klasy.

Kod VBA 1: Kliknij, aby powiększyć obrazy

Public WithEvents GApp As Word.Application
'Updated by ExtendOffice 20181129
Private Sub GApp_WindowSelectionChange(ByVal Sel As Selection)
    Dim xShape As InlineShape
    On Error Resume Next
    Set xShape = Sel.InlineShapes(1)
    xShape.Height = 200
    xShape.Width = 200
End Sub

Note: W kodzie liczba 200 to określona wysokość i szerokość powiększonych obrazów. W razie potrzeby możesz zmienić wysokość i szerokość.

3. kliknij wstawka > Moduł, skopiuj poniższy kod do okna modułu.

Kod VBA 2: Kliknij, aby powiększyć obrazy

Dim cls As New Class1
'Updated by ExtendOffice 20181129
Sub register_Event_Handler()
    Set cls.GApp = Word.Application
End Sub

4. wciśnij F5 klucz, aby uruchomić kod i zamknąć plik Microsoft Visual Basic for Applications okno.

Teraz, po kliknięciu obrazu w tym pliku, obraz zostanie powiększony do określonego rozmiaru, jak chcesz.


Zmień rozmiar obrazów za pomocą Kutools for Word

Połączenia Zmień rozmiar obrazów użyteczność Kutools dla Worda może pomóc w zmianie rozmiaru wszystkich obrazów o określony procent lub wybrany obraz. Proszę, spróbuj.

Kutools dla Worda : Ponad 100 przydatnych dodatków do Worda, za darmo spróbować bez ograniczeń w 60 dni.

Kliknij Kutools Plus > Resizewybierz wartość procentową z listy rozwijanej. Zobacz zrzut ekranu:

Następnie wszystkie obrazy w bieżącym dokumencie są zmieniane na podstawie tej określonej wartości procentowej.

Aby zmienić rozmiar wszystkich obrazów w oparciu o rozmiar wybranego obrazu, musisz najpierw wybrać obraz, a następnie kliknąć Kutools Plus > Resize > Zmień rozmiar obrazów za pomocą zaznaczenia. Zobacz zrzut ekranu:

Następnie wszystkie obrazy w bieżącym dokumencie są zmieniane na podstawie wybranego.

Jeśli chcesz skorzystać z bezpłatnej wersji próbnej tego narzędzia, przejdź do bezpłatnie pobrać oprogramowanie najpierw, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Karta Office - Przeglądanie w kartach, edycja i zarządzanie wieloma dokumentami w programie Word:

Karta Office przenosi interfejs z zakładkami, jak widać w przeglądarkach internetowych, takich jak Google Chrome, nowe wersje Internet Explorer i Firefox do Microsoft Word. To będzie być narzędziem oszczędzającym czas i niezastąpionym w Twojej pracy. Zobacz poniżej demo:

Kliknij, aby uzyskać bezpłatną wersję próbną karty Office!

Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

Zapoznaj się z wyróżnionymi funkcjami poniżej lub kliknij tutaj, aby poznać pełną moc Kutools for Word.

📘 Znajomość dokumentów: Podziel strony  /  Scal dokumenty  /  Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/XLSX)  /  Wsadowa konwersja do formatu PDF  /  Eksportuj strony jako obrazy  /  Drukuj wiele plików jednocześnie ...

Edycja treści: Znajdź i zamień partii w wielu plikach   /  Zmień rozmiar wszystkich zdjęć   /  Transponuj wiersze i kolumny tabeli  /  Konwertuj tabelę na tekst ...

🧹 Łatwe czyszczenieWymieć Dodatkowe przestrzenie  /  Podziały sekcji  /   Wszystkie nagłówki  /  Pola tekstowe  /  Hiperłącza  /  Aby uzyskać więcej narzędzi do usuwania, przejdź do naszej grupy usuwania

Kreatywne wstawki: wstawka Tysiące separatorów  /  Pola wyboru  /  Przyciski Radio  /  Kod QR  /  kod kreskowy  /  Tabela linii ukośnych  /  Podpis równania  /  Tytuł Zdjęcia  /  Podpis tabeli  /  Wiele zdjęć  /  Odkryj więcej w naszej grupie wkładek

🔍 Precyzyjne wybory: Wskaż konkretne strony  /  stoły  /  kształty  /  nagłówki akapitów  /  Nawiguj z łatwością, korzystając z naszej grupy Select

Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji  /  automatyczne wstawianie powtarzającego się tekstu  /  płynnie przełączaj się pomiędzy oknami dokumentów  /  11 Narzędzia konwersji ...

Przekształć swoje zadania Worda za pomocą Kutools. 👉 Pobierz teraz z 30-dniową wersją próbną .

 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Yeah nice try, but it should really put the enlarged image in a temporary popup, instead of literally resizing the image!
This comment was minimized by the moderator on the site
OK...after clicking to expand, how do you get it to restore back to default size or click to default size?
This comment was minimized by the moderator on the site
It work in older world file, saved as .doc, but opened in MS 365.
This comment was minimized by the moderator on the site
Hi

The macro doesn't work as should. On MS Office 365 the resizing appear only for few mili sec.
This comment was minimized by the moderator on the site
Hi Thanks for the tip. I'm following the instructions on how to enlarge by using Macro, however I'm getting a error message "The type that was defined by user was ot defined" Any idea?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations