Word文書の画像に境界線を追加する3つの簡単な方法

この記事では、Word文書の画像に境界線を追加する3つの簡単な方法について説明します。

なぜ写真に境界線を適用するのですか？ 答えは明らかです。 一部の写真はメインコンテンツに非常に似ています。たとえば、単語のブロックのショットは、テキストと間違えやすい可能性があります。 したがって、画像を目立たせるために、テキストの内容は、以下の3つの方法の有用性を利用できます。

方法1：XNUMXつのドキュメントのXNUMXつの画像に境界線を追加する

1. まず、画像をクリックして選択します。
2. 次に、「画像ツール」の下の「フォーマット」タブをクリックします。
3. 次に、「画像の境界線」をクリックして、色を選択します。   

方法2：XNUMXつのドキュメント内のすべての画像に境界線を追加する

方法1に示すように、画像をXNUMXつずつ手動で変更することは実際には良い考えではありません。 労力を節約するために、マクロはあなたが取るべき方法です。

1. にtarで、「開発者」タブをクリックしてから「VisualBasic」をクリックしてVBAエディタを表示します。 「開発者」が利用できない場合は、代わりに「Alt + F11」を押してください。
2. 次に、「通常」をクリックします。
3. 次に、「挿入」タブをクリックし、メニューから「モジュール」を選択します。
4. 新しいモジュールをダブルクリックして、右側のコーディング領域を開きます。
5. 次に、次のマクロをそこに貼り付けます。

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. 最後になりましたが、「実行」ボタンをクリックするか、「F5」を押してください。

方法3：複数のドキュメントのすべての画像に境界線を追加する

ドキュメント内の画像を処理するマクロを作成できるため、複数のドキュメント内の画像を処理する方法もあります。

何よりもまず、すべてを整理する必要があります tar同じディレクトリの下でドキュメントを取得します。 次に、上記とまったく同じ手順に従ってマクロをインストールして実行しますが、次の手順に置き換えます。

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

Notes:

1. 「C：\ Users \ Public \ Documents \ New folder \このマクロの「」は、ドキュメントを保存するディレクトリパスを指します。 そして最後の「\"。
2. を変更することで境界線の色を変更できます RGB値.

バックアップについて考える時間

Most 私たちの多くは、バックアップで何ができるかについてよく知らされています。 それは持っている時にあなたの命の恩人になることができます 単語の損傷。 したがって、貴重なドキュメントをバックアップするのに数分かかることの影響を損なうことは決してありません。 そのため、彼のデータの安全性を保証することはできません。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したxlsx and pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com