Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Rejestruję się  \/ 
x

or

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

Uwagi: 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

Pandemia 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, bezpłatnie wypróbować bez ograniczeń w ciągu 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!


Zalecane narzędzia zwiększające produktywność programu Word

 

Kutools For Word - więcej niż zaawansowane funkcje 100 dla programu Word, zaoszczędź 50% czasu

  • Skomplikowane i powtarzalne operacje można wykonać jednorazowo w ciągu kilku sekund.
  • Wstaw wiele obrazów w folderach do dokumentu programu Word jednocześnie.
  • Scalaj i łącz wiele plików programu Word w folderach w jeden z żądaną kolejnością.
  • Podziel bieżący dokument na oddzielne dokumenty według nagłówka, podziału sekcji lub innych kryteriów.
  • Konwertuj pliki między Doc i Docx, Docx i PDF, zbiór narzędzi do typowych konwersji i zaznaczania, i tak dalej ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Yink · 1 months ago
    OK...after clicking to expand, how do you get it to restore back to default size or click to default size?
  • To post as a guest, your comment is unpublished.
    darek · 1 years ago
    It work in older world file, saved as .doc, but opened in MS 365.
  • To post as a guest, your comment is unpublished.
    darek · 1 years ago
    Hi

    The macro doesn't work as should. On MS Office 365 the resizing appear only for few mili sec.

  • To post as a guest, your comment is unpublished.
    Ricardo · 2 years ago
    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?