Skip to main content

Conas na híomhánna go léir / iolracha a athrú i Word?

Nuair a dhéanaimid íomhánna a chóipeáil nó a iompórtáil ón Idirlíon nó ó chomhaid eile, d’fhéadfadh go mbeadh méid na n-íomhánna éagsúil. Tá a fhios ag gach duine conas pictiúir a athrú arís ceann ar cheann, ach más mian linn iad a athrú ar an méid céanna go léir ag an am céanna, conas is féidir linn a dhéanamh? Taispeánfaidh an rang teagaisc seo roinnt modhanna duit chun íomhánna a athrú.

Athraigh méid íomhánna de láimh i Word

Athraigh méid íomhánna le VBA

Athraigh méid íomhánna iolracha go léir ag an am céanna le Kutools for Word


Athraigh méid íomhánna de láimh i Word

1. Láimhseálacha méide an phictiúir a thaispeáint trí chliceáil ar an bpictiúr;

2. Cuir an cúrsóir ar cheann de láimhseálacha sizing an phictiúr.

3. Tarraing an láimhseáil sizing go dtí go mbeidh méid an phictiúir oiriúnach do do chuid riachtanas. Féach an pictiúr:

doc íomhánna a choigeartú 1

nótaí: Leis an modh seo, ní féidir leat iliomad pictiúr a athrú go léir ag an am céanna. Ní mór duit iad a athrú arís ceann ar cheann go dtí go ndéanfar méid na bpictiúr a athrú.


Athraigh méid íomhánna le VBA

Leis an gcód VBA seo a leanas, is féidir leat pictiúir a athrú go méid idéalach. Is féidir leat é a dhéanamh mar a leanas :

Sa sampla seo, athraímid méid an phictiúir go dtí airde 1.78 orlach agus leithead 3.17 orlach.

1. Roghnaigh pictiúr le do thoil ar mhaith leat an méid a athrú;

2. Brúigh Alt + F11 a oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog;

3. Cliceáil Modúil ó Ionsáigh cluaisín, cóipeáil agus greamaigh an cód VBA seo a leanas isteach sa Modúil fuinneog;

Cód VBA: Athraigh méid íomhá amháin go méid sonrach:

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. cliceáil Rith cnaipe nó F5 eochair chun an cód VBA a rith, agus athraíodh an íomhá roghnaithe de réir do mhéid riachtanas.

nótaí: Sa chód thuas,  In shp.Height = InchesToPoints (1.78) agus shp.Width = InchesToPoints (3.17) is airde agus leithead an phictiúr iad, is féidir leat an méid a athrú chun freastal ar do riachtanas.

Leis an gcód VBA seo, ní féidir leat pictiúr iomlán nó pictiúr iolrach a athrú ag an am céanna. Ní mór duit dul ar ais agus amach idir an Word doiciméad agus an Microsoft Visual Basic d’Fheidhmchláir fuinneog chun an pictiúr a roghnú agus an cód a chur i bhfeidhm. Tógann sé sin an iomarca ama.


Athraigh íomhánna le Kutools for Word

Le Kutools for Word's Athraigh Athraigh Íomhánna fóntais, is féidir leat fáil réidh leis na hoibríochtaí annoying agus Tógann am, agus gach íomhá a athrú ó do doiciméad go tapa.

Kutools for Word : le níos mó ná 100 handy Word breiseáin, saor chun triail a bhaint as gan aon teorainn i 60 lá. 

1. Cuir an fóntais seo i bhfeidhm trí chliceáil Kutools Níos mó > Athraigh méid. Féach an pictiúr:

2. Más mian leat na híomhánna go léir a athrú go céatadán áirithe dá méid bunaidh, roghnaigh ceann amháin de na sé chéatadán ón liosta anuas. Mar shampla, más mian leat na pictiúir go léir a athrú go 50% dá méid bunaidh, roghnaigh le do thoil 50%. Tar éis cliceáil 25%, feicfidh tú go bhfuil na pictiúir go léir meánmhéide go 50%. Féach an pictiúr:

doc íomhánna a choigeartú 3

Más mian leat gach íomhá a choigeartú ar an méid céanna le ceann séalaithe, roghnaigh pictiúr mar mhéid an mhúnla le do thoil, agus ansin cliceáil Kutools Níos mó > Athraigh méid > Athraigh Athraigh Íomhánna leis an Roghnú, agus déanfar gach íomhá a athrú méid an méid céanna bunaithe ar an gceann séalaithe, féach an scáileán:

doc íomhánna a choigeartú 4

Chun tuilleadh eolais a fháil faoi Kutools for Word'S Athraigh Athraigh Íomhánna fóntais, cliceáil le do thoil anseo.

Cliceáil chun íoslódáil Kutools for Word agus triail saor in aisce anois!


Taispeántas: Athraigh méid na n-íomhánna go léir ag an am céanna Word

Kutools for Word: le níos mó ná 100 handy Word breiseáin, saor chun triail a bhaint as gan aon teorainn i 60 lá. Íoslódáil agus triail saor in aisce anois!


molta Word Uirlisí Táirgiúlachta

 

Kutools For Word - Níos mó ná 100 Ardghnéithe Do Word, Sábháil Do Am 50%.

  • Is féidir oibríochtaí casta agus arís agus arís eile a dhéanamh próiseáil aon-uaire i soicindí.
  • Cuir isteach íomhánna iolracha trasna fillteáin isteach Word doiciméad láithreach.
  • Cumaisc agus cuir le chéile iolrach Word comhaid trasna fillteáin isteach i gceann le d'ordú inmhianaithe.
  • Roinn an doiciméad reatha i ndoiciméid ar leithligh de réir ceannteidil, briseadh ailt nó critéir eile.
  • Tiontaigh comhaid idir Doc agus Docx, Docx agus PDF, bailiú uirlisí le haghaidh comhshó agus roghnú coitianta, agus mar sin de ...
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I wasted a good 3 hrs or more trying to get these VBA macros to work. Gave up and tried Kutools which works great! Purchased it right away as it is well worth the $49!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Where i put this code?
This comment was minimized by the moderator on the site
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 Excellent!!! You saved my money and my time. Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations