Si të futni fotografi të shumta në grup në dokumentin tuaj Word

Në këtë artikull, ne do të dëshironim t'ju ofrojmë mënyrën për të futur në grup fotografi të shumta në dokumentin tuaj Word.

Mund të ndiheni rehat kur punoni me fotografi në Word. Pasi të futni një fotografi në dokument, mund t'ju duhet ta ndryshoni madhësinë manualisht ose të vendosni emrin e saj përreth. Po të përdorni një makro për të kryer automatikisht detyrën?

Makroja që do t'ju paraqesim është në gjendje të kryejë funksionet e mëposhtme:

1. Së pari, ai fut numrin e saktë të fotografive që specifikoni në secilën faqe.
2. Së dyti, fut emrin poshtë çdo fotografie.
3. Së treti, ai ndryshon përmasat e fotografive sipas numrave të madhësisë që futni.

Tani le të shohim se si ta bëjmë atë të funksionojë.

Futja e shumëfishtë e fotografive në dokument

1. Para së gjithash, rregulloni të gjitha fotot që të futen në të njëjtën dosje.
2. Pastaj shtypni "Alt+ F11" për të thirrur redaktorin VBA në Word.
3. Pastaj klikoni në projektin "Normal".
4. Pastaj në shiritin e menusë, klikoni "Fut".
5. Dhe në menunë rënëse, zgjidhni "Modul".
6. Hapni modulin duke klikuar dy herë dhe ngjitni kodet e mëposhtme:

Sub InsertSpecificNumberOfPictureForEachPage()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim objInlineShape As InlineShape
  Dim nResponse As Integer
  Dim strPictureNumber As Integer
  Dim strPictureSize As String
  Dim n As Integer  

  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
  
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox ("No Folder is selected!")
      Exit Sub
    End If
  End With

  strFile = Dir(StrFolder & "*.*", vbNormal)
  strPictureNumber = InputBox("Input the number of the picture for each page", "Picture Number", "For exemple: 1")
  n = 1  

  While strFile <> ""
    Selection.InlineShapes.AddPicture FileName:=StrFolder & strFile, LinkToFile:=False, SaveWithDocument:=True
    Selection.TypeParagraph
    Selection.Collapse Direction:=wdCollapsEnd
    Selection.TypeText Text:=Left(strFile, InStrRev(strFile, ".") - 1)
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    If ActiveDocument.InlineShapes.Count = strPictureNumber * n Then
      Selection.InsertNewPage
      Selection.TypeBackspace
      n = n + 1
    End If
    Selection.TypeParagraph
    strFile = Dir()
  Wend

  For Each objInlineShape In ActiveDocument.InlineShapes
    objInlineShape.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next objInlineShape

  nResponse = MsgBox("Do you want to resize all pictures?", 4, "Resize Picture")
  If nResponse = 6 Then
    strPictureSize = InputBox("Input the height and width of the picture, seperated by comma", "Height and Width", "For exemple:500,500")
    For Each objInlineShape In ActiveDocument.InlineShapes
      objInlineShape.Height = Split(strPictureSize, ",")(0)
      objInlineShape.Width = Split(strPictureSize, ",")(1)
    Next objInlineShape
  End If
End Sub

7. Pastaj klikoni "Run" ose shtypni "F5".
8. Gjatë ekzekutimit të makros, dritarja "Shfleto" do të shfaqet. Thjesht zgjidhni dosjen që mbani fotografitë në hapin 1 dhe klikoni "OK".
9. Më pas në kutinë "Numri i figurës", vendosni një numër që përfaqëson numrin total të fotografive që dëshironi në një faqe të vetme. Dhe klikoni "OK" për të vazhduar.
10. Në kutinë "Ndrysho madhësinë e figurës", kliko "Po" për të ndryshuar madhësinë e të gjitha fotove dhe "Jo" për ta anuluar atë.
11. Tani në kutinë "Lartësia dhe Gjerësia", vendosni vlerat dhe përdorni presje për t'u ndarë. Mos harroni të vendosni së pari lartësinë dhe më pas gjerësinë. Nuk ka hapësirë ​​pas presjes.
12. Në mënyrë të ngjashme, klikoni "OK" për të vazhduar.

Tani ka 2 fotografi në një faqe dhe secila ka emrin e saj poshtë saj. Këtu është rezultati:

Mbani një sy në integritetin e të dhënave

Ekziston gjithmonë rreziku për të humbur të dhënat ose për t'u komprometuar disi. Kjo do të thotë që ne duhet të kontrollojmë rregullisht integritetin e të dhënave. Dhe sapo të gjejmë ndonjë shenjë të Dëmtimi i fjalës, mënyra më e mirë për të rikuperuar të dhënat është të merrni një mjet riparimi.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë Rimëkëmbja e Excel pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com