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

 Sut i fewnosod lluniau lluosog gyda'r un maint yn nogfen Word?

Fel rheol, gallwch fewnosod sawl delwedd ar unwaith mewn dogfen Word gyda'u maint gwreiddiol. Weithiau, mae angen i chi drefnu'r delweddau hyn i'r un maint wrth eu mewnosod. Yr erthygl hon, byddaf yn siarad am sut i fewnosod lluniau lluosog gyda'r un maint mewn dogfen Word.

Mewnosodwch luniau lluosog gyda'r un maint yn nogfen Word gyda chod VBA

Newid maint yr holl luniau i'r un maint yn seiliedig ar ddelwedd benodol gyda Kutools for Word


Mewnosodwch luniau lluosog gyda'r un maint yn nogfen Word gyda chod VBA

Gall y cod vba canlynol eich helpu i fewnosod sawl llun a'u hailfeintio i'ch maint penodol ar unwaith, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: mewnosodwch luniau lluosog gyda'r un maint:

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. Ac yna, pwyswch F5 allwedd i redeg y cod hwn, a Pori ffenestr yn cael ei harddangos, dewiswch y ffolder sy'n cynnwys y delweddau rydych chi am eu mewnosod, gweler y screenshot:

mewnosod doc delweddau gyda'r un maint 1

4. Yna cliciwch OK botwm, ac mae blwch prydlon wedi'i popio allan i'ch atgoffa os ydych chi am newid maint y lluniau, gweler y screenshot:

mewnosod doc delweddau gyda'r un maint 2

5. Cliciwch Oes, a theipiwch rifau maint yr uchder a'r lled sy'n cael eu gwahanu gan goma i'r blwch testun, gweler y screenshot:

mewnosod doc delweddau gyda'r un maint 3

6. Ac yna cliciwch OK, mae'r holl ddelweddau a fewnosodwyd wedi'u haildrefnu fel yr un maint, gweler y screenshot:

mewnosod doc delweddau gyda'r un maint 4

Nodyn: mae maint yr uned yn bwll yng nghod VBA.


Newid maint yr holl luniau i'r un maint yn seiliedig ar ddelwedd benodol gyda Kutools for Word

Os oes lluniau lluosog yn bodoli yn eich dogfen Word, gyda Kutools am Word'S Newid maint Delweddau cyfleustodau, gallwch newid maint yr holl ddelweddau yn gyflym yr un fath â'r un penodol.

Kutools am Word : gyda mwy na 100 o ychwanegiadau Word defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 60 diwrnod. 

Ar ôl gosod Kutools am Word, gwnewch fel hyn:

1. Addaswch un llun i'r maint rydych chi ei eisiau, ac yna ei ddewis, yna cliciwch Kutools Byd Gwaith > Newid maint > Newid Maint Delweddau gyda Dewis, gweler y screenshot:

2. Ac mae'r holl ddelweddau yn y ddogfen eiriau hon wedi'u newid maint yr un peth â'r un a ddewiswyd ar unwaith, gweler y screenshot:

Cliciwch i lawrlwytho Kutools for Word a threial am ddim nawr!


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (4)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, helo
Soda ydw i, rydw i yma i ddweud hynny, rydw i wir yn dysgu llawer gyda'ch gwefan a'r wybodaeth rydych chi'n ei rhoi.
Diolch am hynny :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch am help ... mae'n ddiddorol iawn ... job fawr ... pob lwc
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Canran/cymhareb? picsel? cm?
GRAZIE!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, grasselli
Mae maint yr uned yn bwll yn y cod VBA uchod.
Diolch yn fawr!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir