Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս վերափոխել Word- ում բոլոր / բազմաթիվ պատկերները:

Երբ մենք պատկերներ ենք պատճենում կամ ներմուծում ինտերնետից կամ այլ ֆայլերից, պատկերների չափը կարող է բազմազան լինել: Բոլորն էլ գիտեն, թե ինչպես նկարները մեկ առ մեկ չափափոխել, բայց եթե ուզում ենք դրանք միանգամից նույն չափի չափ դարձնել, ինչպե՞ս կարող ենք դա անել: Այս ձեռնարկը ցույց կտա ձեզ պատկերների չափափոխման մի քանի մեթոդներ:

Պատկերները ձեռքով չափափոխեք Word- ով

Պատկերները չափափոխել VBA- ով

Kutools- ի համար Word- ով միանգամից չափափոխեք բազմաթիվ պատկերներ


Պատկերները ձեռքով չափափոխեք Word- ով

1, Showուցադրել նկարի չափի բռնակները ՝ կտտացնելով նկարի վրա;

2, Կուրսորը դրեք նկարի չափիչ բռնակներից մեկի վրա:

3, Քաշեք չափի բռնիչը մինչև նկարի չափը հարմար լինի ձեր կարիքների համար: Տեսեք,

doc կարգավորել պատկերներ 1

ՆշումԱյս մեթոդով դուք չեք կարող միանգամից մի քանի նկար փոխել: Անհրաժեշտ է դրանք մեկ առ մեկ չափափոխել, քանի դեռ բոլոր նկարները չեն չափափոխվել:


Պատկերները չափափոխել VBA- ով

Հետևյալ VBA կոդով դուք կարող եք նկարները չափափոխել ձեր իդեալական չափի: Դուք կարող եք դա անել, ինչպես հետևել

Այս օրինակում մենք նկարի չափը չափափոխում ենք 1.78 դյույմ բարձրության և 3.17 դյույմ լայնության:

1, Խնդրում ենք ընտրել նկար, որը ցանկանում եք չափը փոխել;

2. Մամուլ Alt + F11 բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան;

3: Սեղմեք Մոդուլներ - ից Տեղադրել ներդիրը, պատճենեք և տեղադրեք հետևյալ VBA կոդը ՝ Մոդուլներ պատուհան;

VBA կոդ. Մեկ պատկեր փոխել որոշակի չափի.

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
Set ishp = Word.Selection.Range.InlineShapes(1)
ishp.LockAspectRatio = False
ishp.Height = InchesToPoints(1.78)
ishp.Width = InchesToPoints(3.17)
Else
If Word.Selection.Type = wdSelectionShape Then
Set shp = Word.Selection.ShapeRange(1)
shp.LockAspectRatio = False
shp.Height = InchesToPoints(1.78)
shp.Width = InchesToPoints(3.17)
End If
End If
End Sub

4. Սեղմել Վազում կոճակը կամ F5 VBA կոդի գործարկման ստեղնը, և ընտրված նկարը վերափոխվել է ՝ ըստ ձեր կարիքի չափի:

ՆշումՎերոհիշյալ ծածկագրում  In shp. Բարձրություն = InchesToPoints (1.78) և shp. Լայնություն = InchesToPoints (3.17) նկարի բարձրությունն ու լայնությունն են, կարող եք փոխել չափը ՝ ձեր կարիքը բավարարելու համար:

Այս VBA կոդով դուք նաև չեք կարող միանգամից չափափոխել բոլորը կամ մի քանի նկար: Դուք պետք է առաջ և առաջ գնաք Word փաստաթղթի և փաստաթղթի միջև Microsoft Visual Basic հավելվածների համար պատուհանը նկարն ընտրելու և կոդը կիրառելու համար: Դա չափազանց ժամանակատար է:


Փոխեք պատկերները Kutools- ի համար Word- ի համար

հետ Խոհարարական բառեր 's Պատկերները չափափոխել օգտակար, դուք կարող եք ազատվել այդ նյարդայնացնող և ժամանակատար գործողություններից և արագորեն չափափոխել ձեր փաստաթղթի բոլոր պատկերները:

Kutools բառի համար : ավելի քան 100 հարմար Word հավելվածներով, 60 օրվա ընթացքում առանց սահմանափակումների անվճար փորձեք. 

1, Խնդրում ենք կիրառել այս օգտակար ծրագիրը ՝ կտտացնելով Kutools Plus > Փոփոխել, Տեսեք,

2, Եթե ​​ցանկանում եք բոլոր պատկերները չափափոխել դրանց սկզբնական չափի որոշակի տոկոսի, բացվող ցուցակից ընտրեք վեց տոկոսներից մեկը: Օրինակ, եթե ցանկանում եք բոլոր նկարները չափափոխել մինչև իրենց սկզբնական չափի 50% -ը, ընտրեք 50%, Սեղմելուց հետո 25%, կտեսնեք, որ բոլոր նկարները չափվել են 50% -ի: Տեսեք,

doc կարգավորել պատկերներ 3

Եթե ​​ցանկանում եք բոլոր պատկերները նույն չափի հետ ընտրվածով հարմարեցնել, ընտրեք նկարը որպես մոդելի չափս և այնուհետև կտտացրեք Kutools Plus > Փոփոխել > Պատկերները չափափոխեք ընտրությամբ, և բոլոր պատկերները կփոխվեն նույն չափի ՝ ընտրվածի հիման վրա, տես նկարի նկարը.

doc կարգավորել պատկերներ 4

Մասին ավելի մանրամասն տեղեկություններ ստանալու համար Kutools բառի համար'S Պատկերները չափափոխել օգտակար, խնդրում ենք կտտացնել այստեղ.

Կտտացրեք Kutools- ի Word- ի և անվճար փորձարկման համար ներբեռնելու համար:


Դեմո. Word- ում միանգամից չափափոխեք բոլոր պատկերները

Kutools բառի համարավելի քան 100 հարմար Word հավելվածներով, 60 օրվա ընթացքում առանց սահմանափակումների անվճար փորձեք: Ներբեռնեք և անվճար փորձեք հիմա:



Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...

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.
    bravomail · 4 years ago
    If you save your document as .docx, then you will be able to open it as zip-archive. There will be media folder with all images (mine had PNG images). You can then use programs like IrfanView, XnViewMP, FastStone Viewer to perform batch transformations like resize, reduce color depth, etc. Pack your images back into zip and rename it to docx.

    For example, in my docx full of screenshots I needed to reduce number of colors to 8, which is enough for documentation purposes. After processing my 10MB doc became 1.8MB doc, so savings can be significant. Always save your original docx in case you want to restore pictures after too much degradation/processing etc.
  • To post as a guest, your comment is unpublished.
    Michael · 5 years ago
    I need to resize all images in a word document to the same width but not deform the images. so scale them to the same width. Is this possible through a macro?
  • To post as a guest, your comment is unpublished.
    Nik · 5 years ago
    Does anyone know if an image placeholder/dropper/automatic sizing feature is available in Windows 365? No idea where to look or find assistance on this since the Microsoft chat help was SO unhelpful. Any tips would be greatly appreciated.
  • To post as a guest, your comment is unpublished.
    E · 5 years ago
    save your money and run this macro: Credit to Dave

    Sub resizeimages()
    Dim i As Long
    With ActiveDocument
    For i = 1 To .InlineShapes.Count
    With .InlineShapes(i)
    .ScaleHeight = 60
    .ScaleWidth = 60
    End With
    Next i
    End With
    End Sub
    • To post as a guest, your comment is unpublished.
      Luiz · 1 years ago
      Where i put this code?
    • To post as a guest, your comment is unpublished.
      Rosa · 4 years ago
      [i]save your money and run this macro: Credit to Dave

      Sub resizeimages()
      Dim i As Long
      With ActiveDocument
      For i = 1 To .InlineShapes.C ount
      With .InlineShapes(i )
      .ScaleHeight = 60
      .ScaleWidth = 60
      End With
      Next i
      End With
      End Sub
      [/i]
      Excellent!!! You saved my money and my time. Thank you very much!