Word 문서의 그림에 테두리를 추가하는 3 가지 빠른 방법

이 기사에서는 Word 문서의 그림에 테두리를 추가하는 3 가지 빠른 방법에 대해 설명합니다.

그림에 테두리를 적용하는 이유는 무엇입니까? 대답은 분명합니다. 일부 그림은 본문과 너무 흡사합니다. 예를 들어 단어 블록의 샷처럼 텍스트로 쉽게 착각 할 수 있습니다. 따라서 텍스트 내용을 돋보이게하기 위해 다음 3 가지 방법의 유용성을 보여 드릴 것입니다.

방법 1 : 한 문서의 한 그림에 테두리 추가

1. 먼저 선택할 사진을 클릭합니다.
2. 다음으로 "그림 도구"에서 "포맷"탭을 클릭합니다.
3. 그런 다음 "그림 테두리"를 클릭하고 색상을 선택합니다.   

방법 2 : 한 문서의 모든 그림에 테두리 추가

방법 1에서 볼 수 있듯이 사진을 하나씩 수동으로 변경하는 것은 좋은 생각이 아닙니다. 노력을 절약하기 위해 매크로는 당신이 취해야 할 방법입니다.

1. 에tar으로 "개발자"탭을 클릭 한 다음 "Visual Basic"을 클릭하여 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

노트:

1. "C : \ Users \ Public \ Documents \ New 폴더 \”는 문서를 저장하는 디렉토리 경로를 나타냅니다. 마지막 "\".
2. 테두리 색상을 변경하여 변경할 수 있습니다. RGB 값.

백업에 대해 생각할 시간

Most 우리 중 백업이 무엇을 할 수 있는지 잘 알고 있습니다. 당신의 생명의 은인이 될 수 있습니다. 단어 손상. 따라서 귀중한 문서를 백업하는 데 몇 분이 걸리는 효과를 결코 훼손하지 않습니다. 따라서 데이터의 안전을 보장 할 수 없습니다.

저자 소개 :

Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 손상된 xlsx pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM