프로그래밍을 일상 생활속으로

아래 매크로를 사용하여 텍스트의 폰트를 일괄 수정할 수 있습니다. Font No는 특정 텍스트 파일(C:\Temp\ChgFnt.dat)에 입력하였습니다. '-------------------------------------------------------------'' main - Entry point' '-------------------------------------------------------------Sub main Dim element as New MbeElement Dim filePos as Long Dim S$,FontNo as Integer 'read fence data from file Index = 0 Open "C:\Temp\ChgFnt.dat" For Input As 1 Do While Not Eof(1) Input #1,S FontNo = Val(S) Loop Close 'up to here ' read the first element filePos = element.fromFile (0) Do While filePos >= 0 If element.type = MBE_Text Then element.font = FontNo stat = element.rewrite(filePos, 0, 0) End If filePos = element.fromFile (filePos + element.fileSize) Loop End Sub

앞서 생성한 Sample1 프로젝트에 매크로 기록하는 것을 알아보겠습니다. 이 부분은 솔직히 설명할 것도 없습니다. 먼저 Sample1 프로젝트를 선택하시고, Start Record 버튼을 누릅니다. 예제로 선,사각형,원을 그려보겠습니다. 그리고 모두 선택한후 Ctrl+G를 눌러 Cell로 만들어 보겠습니다. 일련의 행동을 마쳤으면, Stop Record 버튼을 눌러 레코딩을 종료합니다. 이로써 하나의 매크로를 생성하였습니다. 생성한 매크로를 실행할려면, Macros 버튼을 눌러 생성한 매크로를 실행시키면 됩니다. 아래에 우리가 생성한 Macro1이라는 매크로가 보이죠? Run 버튼을 눌러 실행시키면 됩니다.