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

Ինչպե՞ս վերափոխել 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- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (6)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
խնայեք ձեր գումարը և գործարկեք այս մակրո. Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 Ավարտել Հաջորդով i Ավարտել With Վերջ Ենթ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
խնայեք ձեր գումարը և գործարկեք այս մակրո. 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 Վերջ հաջորդ i End-ով End Sub Գերազանց!!! Դու խնայեցիր իմ փողն ու ժամանակը։ Շատ շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որտե՞ղ եմ տեղադրել այս կոդը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որևէ մեկը գիտի՞, արդյոք Windows 365-ում հասանելի է պատկերի տեղապահ/թողարկիչ/ավտոմատ չափման գործառույթ: Չկա պատկերացում, թե որտեղ փնտրել կամ գտնել օգնություն այս հարցում, քանի որ Microsoft-ի զրույցի օգնությունն այնքան անօգնական էր: Ցանկացած խորհուրդ մեծապես կգնահատվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես պետք է փոխեմ բոլոր պատկերների չափերը word փաստաթղթում նույն լայնությամբ, բայց չդեֆորմացնեմ պատկերները: այնպես որ դրանք չափեք նույն լայնությամբ: Սա հնարավո՞ր է մակրոյի միջոցով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​ձեր փաստաթուղթը պահեք որպես .docx, ապա դուք կկարողանաք այն բացել որպես zip-archive: Կլինի մեդիա թղթապանակ բոլոր պատկերներով (իմը ուներ PNG պատկերներ): Այնուհետև կարող եք օգտագործել այնպիսի ծրագրեր, ինչպիսիք են IrfanView, XnViewMP, FastStone Viewer, խմբաքանակի փոխակերպումներ իրականացնելու համար, ինչպիսիք են չափափոխումը, գույնի խորությունը նվազեցնելը և այլն: Ձեր պատկերները նորից փաթեթավորեք zip-ի մեջ և վերանվանեք այն docx: Օրինակ, սքրինշոթներով լի իմ docx-ում ես պետք է կրճատեի գույների թիվը մինչև 8, ինչը բավարար է փաստաթղթավորման նպատակով: Իմ 10 ՄԲ փաստաթուղթը մշակելուց հետո դարձավ 1.8 ՄԲ փաստաթուղթ, ուստի խնայողությունները կարող են զգալի լինել: Միշտ պահեք ձեր բնօրինակ docx-ը, եթե ցանկանում եք վերականգնել նկարները չափազանց մեծ դեգրադացիան/մշակումից և այլն:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր