Bryan은 사무실에서 공유되는 Excel 통합 문서를 가지고 있습니다. 그는 통합 문서를 만들고 기본 글꼴을 설정했지만 누군가 글꼴을 변경하고 있습니다.

Bryan은 통합 문서를 닫을 때 글꼴을 원하는 글꼴로 강제 적용 할 수 있는지 궁금합니다.

이렇게하는 쉬운 방법은 통합 문서에 대해 BeforeClose 이벤트 처리기를 사용하는 것입니다. 핸들러가 각 워크 시트를 단계별로 실행하고 다음과 같은 방식으로 모든 셀의 글꼴을 설정할 수 있습니다.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim s As Worksheet

For Each s In ActiveWorkbook.Sheets         s.Cells.Font.Name = "Calibri"

Next End Sub

이렇게하면 글꼴이 Calibri로 설정되지만 필요에 따라 글꼴 이름을 변경할 수 있습니다. 다른 글꼴 특성을 변경해야하는 경우 이벤트 처리기를 수정하여 그렇게 할 수 있습니다.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim s As Worksheet

For Each s In ActiveWorkbook.Sheets         With s.Cells.Font             .Name = "Calibri"

.Size = 10         End With     Next End Sub

하지만 너무 많은 글꼴 특성을 변경하면 굵게 또는 기울임 꼴과 같이 유지하려는 일부 특성이 제거 될 수 있으므로주의해야합니다.

이러한 매크로는 Visual Basic Editor의 ThisWorkbook 개체에 추가되어야합니다.

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (4801)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.