3 rychlé metody pro přidání okrajů k obrázkům v dokumentu Word

V tomto článku bychom chtěli diskutovat o 3 rychlých metodách přidávání okrajů k obrázkům v dokumentech Word.

Proč bychom na obrázky aplikovali ohraničení? Odpověď je zřejmá. Některé obrázky se příliš podobají hlavnímu obsahu, řekněme výstřel bloku slov, který bychom si mohli snadno zaměnit za texty. Proto, aby obrázky vynikly, textový obsah využívá užitečnost následujících 3 metod, které vám ukážeme.

Metoda 1: Přidat ohraničení k jednomu obrázku v jednom dokumentu

1. Nejprve klikněte na obrázek, který chcete vybrat.
2. Dále klikněte na záložku „Format“ pod „Picture Tool“.
3. Poté klikněte na „Okraj obrázku“ a vyberte barvu.   

Metoda 2: Přidat ohraničení ke všem obrázkům v jednom dokumentu

Jak je ukázáno v metodě 1, ruční změna obrázku po jednom opravdu není skvělý nápad. Chcete-li ušetřit úsilí, měli byste použít makro.

1. Nejprve klikněte na kartu „Vývojář“ a poté na „Visual Basic“, čímž zobrazíte editor VBA. Pokud možnost „Vývojář“ není k dispozici, stiskněte klávesy „Alt+F11“.
2. Poté klikněte na „Normální“.
3. Dále klikněte na záložku „Vložit“ a v její nabídce zvolte „Modul“.
4. Dvojitým kliknutím na nový modul otevřete oblast kódování na pravé straně.
5. Nyní tam vložte následující makro:

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 neposlední řadě klikněte na tlačítko „Spustit“ nebo stiskněte „F5“.

Metoda 3: Přidání ohraničení ke všem obrázkům ve více dokumentech

Protože můžeme psát makro pro práci s obrázky v dokumentu, existuje způsob, jak také zpracovat obrázky ve více dokumentech.

Nejprve je třeba uspořádat všechny cílové dokumenty do stejného adresáře. Poté postupujte podle stejných kroků, které jsou uvedeny výše, k instalaci a spuštění makra, ale nahraďte ho následujícím:

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

Poznámky:

1. "C: \ Users \ Public \ Documents \ New folder \„V tomto makru označuje cestu k adresáři, kam ukládáte dokumenty. A nikdy nezapomeňte přidat poslední “\".
2. Barvu ohraničení můžete změnit změnou Hodnota RGB.

Je čas přemýšlet o zálohování

Většina z nás je dobře informována o tom, co záloha dokáže. Může vám zachránit život v dobách, kdy máte… Poškození slov. Nikdy tedy neoslabíme účinek minutování zálohování cenných dokumentů. Jeden jako takový nemůže zaručit bezpečnost svých údajů.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený xlsx a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com