https://www.clien.net/service/board/lecture/17592659CLIEN
위에 소개한 것이 이어서 그림도 사용할수 있는 방법을 알려드리겠습니다.
아래처럼 그림에 있는 내용을 외우고 싶을때는
사진을 찍거나 캡쳐해서 word에 붙입니다. 그리고
1)투명하고 빨간색 외각선 사각형으로 외우고 싶은 부분을 덮습니다.
(VBA코드 보시면 꼭 빨란색이라 되는 것은 아니지만 확실히 표시하기 위해)
2) 그리고 아래의 VBA Macro를 실행합니다,
그럼 짠! 아래와 같이 사각형부분만 하얗게 변합니다.
이걸 인쇄하여서 복습용 자료로 사용합니다.
이전에 말씀드린 것처럼 자동으로 새문서 만들어 변환하면 좋겠지만
그건 다음분께 맡기겠습니다.
VBA 코드는 아래와 같습니다. 참 쉽죠?
Sub Relpacing()
Dim sShapes As Shape
For Each sShapes In ActiveDocument.Shapes
Select Case True
Case InStr(sShapes.Name, "Rectangle")
sShapes.Fill.ForeColor.RGB = RGB(255, 255, 255)
Case Else
End Select
Next sShapes
End Sub
제가 최근에 올린 매크로를 다 넣어서 버튼으로 쉽게 실행할수 있는 워드 화일을 만들어 3편으로 올려보겠습니다.
그럼 그 문서에 공부내용을 그림과 글로 정리 후 빈칸 문제지를 쉽게 만들수 있습니다.