У Брайана есть рабочая тетрадь Excel, которая находится в его офисе. Он создал книгу и установил шрифт по умолчанию, но кто-то меняет шрифт.

Брайан задается вопросом, сможет ли он установить желаемый шрифт при закрытии книги.

Легкий способ сделать это — использовать обработчик событий 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

Тем не менее, вы должны быть осторожны, изменяя слишком много характеристик шрифта, так как вы можете в конечном итоге избавиться от некоторых, которые хотите сохранить, например, полужирного или курсивного.

Помните, что эти макросы следует добавить к объекту ThisWorkbook в редакторе Visual Basic.

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (4801) применим к Microsoft Excel 2007, 2010, 2013 и 2016.