3 gyors módszer a Word-dokumentumban lévő képek szegélyeinek hozzáadására

Ebben a cikkben 3 gyors módszert szeretnénk megvitatni, hogyan lehet szegélyeket adni a Word-dokumentumokban lévő képekhez.

Miért alkalmazzunk szegélyeket a képeken? A válasz nyilvánvaló. Egyes képek túlságosan is hasonlítanak a fő tartalomhoz, mondjuk egy szóblokk felvételére, amit könnyen összetéveszthetünk szövegekkel. Ezért, hogy a képek kiemelkedjenek, a szöveges tartalom az alábbi 3 módszert használja, amelyet bemutatunk.

1. módszer: Szegélyek hozzáadása egy képhez egy dokumentumban

1. Először kattintson a képre a kiválasztáshoz.
2. Ezután kattintson a „Formátum” fülre a „Kép eszköz” alatt.
3. Ezután kattintson a „Képszegély” elemre, és válasszon színt.   

2. módszer: Szegélyek hozzáadása az összes képhez egy dokumentumban

Ahogy az 1. módszerben látható, a kép manuális, egyesével történő módosítása valóban nem jó ötlet. Az erőfeszítések megtakarítása érdekében a makró használata a megfelelő módszer.

1. Először kattintson a „Fejlesztő” fülre, majd a „Visual Basic”-re a VBA szerkesztő megjelenítéséhez. Ha a „Fejlesztő” nem érhető el, egyszerűen nyomja meg az „Alt+F11” billentyűkombinációt.
2. Ezután kattintson a „Normál” gombra.
3. Ezután kattintson a „Beszúrás” fülre, és válassza ki a „Modul” menüt.
4. Kattintson duplán az új modulra, hogy megnyissa a kódolási területet a jobb oldalon.
5. Most illessze be oda az alábbi makrót:

Sub AddPictureBorders()
  Dim objShape As Shape
  Dim objInLineShape As InlineShape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objInLineShape In .InlineShapes
      With objInLineShape.Line
        .Style = msoLineSingle
        .ForeColor.RGB = RGB(0, 0, 0)
      End With
    Next
    For Each objShape In .Shapes
      objShape.Fill.Solid
      With objShape.Line
        .Style = msoLineSingle
        .ForeColor.RGB = RGB(0, 0, 0)
      End With
    Next
  End With
End Sub

6. Végül, de nem utolsósorban kattintson a „Futtatás” gombra, vagy nyomja meg az „F5” gombot.

3. módszer: Szegélyek hozzáadása több dokumentum összes képéhez

Mivel makrót írhatunk egy dokumentum képeinek kezelésére, így több dokumentumban is lehet képeket feldolgozni.

Először is, az összes céldokumentumot ugyanabba a könyvtárba kell rendezni. Ezután kövesse a fent bemutatott lépéseket a makró telepítéséhez és futtatásához, de cserélje le a következőre:

Sub AddPictureBordersInMultiDoc()
  Dim objShape As Shape
  Dim objInLineShape As InlineShape
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
 
  Set objDoc = ActiveDocument
  strFolder = "C:\Users\Public\Documents\New folder\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    With objDoc
      For Each objInLineShape In .InlineShapes
        With objInLineShape.Line
          .Style = msoLineSingle
          .ForeColor.RGB = RGB(0, 0, 0)
        End With
      Next
      For Each objShape In .Shapes
        objShape.Fill.Solid
        With objShape.Line
          .Style = msoLineSingle
          .ForeColor.RGB = RGB(0, 0, 0)
        End With
      Next
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

Megjegyzések:

1. AzC:\Felhasználók\Nyilvános\Dokumentumok\Új mappa\” ebben a makróban a könyvtár elérési útjára utal, ahol a dokumentumokat tárolja. És soha ne felejtsd el hozzáadni az utolsót\".
2. A szegély színét a gomb megváltoztatásával módosíthatja RGB érték.

Ideje gondolkodni a biztonsági mentésen

Legtöbben jól tudjuk, mire képes egy biztonsági mentés. Életmentő lehet, ha baj van. Szókárosodás. Így soha nem ássa alá annak hatását, ha jegyzőkönyvet veszünk fel az értékes dokumentumok biztonsági mentésére. Emiatt senki nem tudja garantálni adatainak biztonságát.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült xlsx és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com