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

 Conas pictiúir iolracha leis an méid céanna a chur isteach i ndoiciméad Word?

De ghnáth, is féidir leat iliomad íomhánna a chur isteach i ndoiciméad Word ag a bhfuil a méid bunaidh. Uaireanta, ní mór duit na híomhánna seo a shocrú ar an méid céanna agus iad á gcur isteach. An t-alt seo, labhróidh mé faoi conas pictiúir iolracha a chur isteach leis an méid céanna i ndoiciméad Word.

Cuir isteach pictiúir iolracha leis an méid céanna i ndoiciméad Word le cód VBA

Athraigh méid gach pictiúr ar an méid céanna bunaithe ar íomhá ar leith le Kutools for Word


Cuir isteach pictiúir iolracha leis an méid céanna i ndoiciméad Word le cód VBA

Is féidir leis an gcód vba seo a leanas cabhrú leat iliomad pictiúr a chur isteach agus iad a athrú go dtí do mhéid sonraithe ag an am céanna, déan mar seo é le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.

Cód VBA: cuir isteach iliomad pictiúr leis an méid céanna:

Sub InsertSpecificNumberOfPictureForEachPage()
    Dim xDlg As FileDialog
    Dim xFilePath As String
    Dim xFileName As String
    Dim xMsbBoxRtn As Long
    Dim xPicSize As String
    Dim xShape As InlineShape
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFilePath = xDlg.SelectedItems(1) & "\"
    Else
        Exit Sub
    End If
    xFileName = Dir(xFilePath & "*.*", vbNormal)
    While xFileName <> ""
        If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
        Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
            GoTo LblCtn
        End If
        With Selection
            .InlineShapes.AddPicture xFilePath & xFileName, False, True
            .TypeParagraph
            .Collapse wdCollapsEnd
            .TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .TypeParagraph
        End With
LblCtn:
        xFileName = Dir()
    Wend
    ActiveDocument.InlineShapes(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
    If xMsbBoxRtn = 6 Then
        xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
    End If
    For Each xShape In ActiveDocument.InlineShapes
      xShape.Height = Split(xPicSize, ",")(0)
      xShape.Width = Split(xPicSize, ",")(1)
    Next xShape
End Sub

3. Agus ansin, brúigh F5 eochair chun an cód seo a rith, a Brabhsáil taispeántar an fhuinneog, roghnaigh an fillteán ina bhfuil na híomhánna a theastaíonn uait a chur isteach, féach ar an scáileán:

cuir isteach íomhánna leis an méid céanna 1

4. Ansin cliceáil OK cnaipe, agus tá bosca pras popped amach chun a mheabhrú duit más mian leat na pictiúir a athrú méid, féach an scáileán:

cuir isteach íomhánna leis an méid céanna 2

5. Cliceáil Is ea, agus clóscríobh uimhreacha méide an airde agus an leithead atá scartha le camóg sa bhosca téacs, féach an scáileán:

cuir isteach íomhánna leis an méid céanna 3

6. Agus ansin cliceáil OK, atheagraíodh na híomhánna uile a cuireadh isteach mar an méid céanna, féach an scáileán:

cuir isteach íomhánna leis an méid céanna 4

nótaí: tá méid an aonaid lochán i gcód VBA.


Athraigh méid gach pictiúr ar an méid céanna bunaithe ar íomhá ar leith le Kutools for Word

Má tá pictiúir iolracha ann i do dhoiciméad Word, le Kutools le haghaidh Word'S Athraigh Athraigh Íomhánna fóntais, is féidir leat gach íomhá a athrú go tapa mar an gcéanna leis an gceann sonrach.

Kutools le haghaidh Word : le níos mó ná 100 breiseán áisiúil Word, saor in aisce le triail gan aon teorannú i gceann 60 lá. 

Tar éis a shuiteáil Kutools le haghaidh Word, déan mar seo le do thoil:

1. Coigeartaigh pictiúr amháin ar an méid atá uait, agus ansin roghnaigh é, ansin cliceáil Kutools Plus > Athraigh méid > Athraigh Athraigh Íomhánna leis an Roghnú, féach ar an scáileán:

2. Agus athraíodh gach íomhá sa doiciméad focal seo mar an gcéanna leis an gceann a roghnaíodh láithreach, féach an scáileán:

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


Uirlisí Táirgeachta Focal Molta

 

Kutools For Word - Níos mó ná 100 Gné Ardteist le haghaidh Word, Sábháil Do 50% Am

  • 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 iomadúla thar fhillteáin i ndoiciméad Word ag an am céanna.
  • Cumaisc agus comhcheangail comhaid Word iolracha thar fhillteáin i gceann amháin leis an ord atá uait.
  • 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 ...
Sórtáil tuairimí de réir
Comments (4)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Dia duit
Is mise Soda, táim anseo chun é sin a rá, foghlaimím go leor i ndáiríre le do shuíomh Gréasáin agus leis an eolas a thugann tú.
Go raibh maith agat as sin :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh maith agat as cabhair ... tá sé an-suimiúil ... post mór ... ádh mór
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Molto bello agus úsáideach! Nach bhfuil tú ag déanamh ach aon duine amháin, an Cód VBA a bhfuil an criterio aumento/diminuisco le dimensioni delle immagini? Céatadán/tuarascáil? picteilín? cm?
GRAZIE!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Greaselli
Is é an méid aonaid lochán sa chód VBA thuas.
Go raibh maith agat!
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL