Erzwingen einer gewünschten Schriftart (Microsoft Excel)
Bryan hat eine Excel-Arbeitsmappe, die in seinem Büro freigegeben wird. Er hat die Arbeitsmappe erstellt und die Standardschriftart festgelegt, aber jemand ändert die Schriftart.
Bryan fragt sich, ob er die Schriftart auf die gewünschte Schriftart zwingen kann, wenn die Arbeitsmappe geschlossen wird.
Eine einfache Möglichkeit hierfür ist die Verwendung des BeforeClose-Ereignishandlers für die Arbeitsmappe. Sie können den Handler durch jedes Arbeitsblatt führen lassen und die Schriftart für alle Zellen auf folgende Weise festlegen:
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
Dadurch wird die Schriftart auf Calibri gesetzt, Sie können jedoch den Schriftartnamen nach Bedarf ändern. Wenn Sie andere Schriftmerkmale ändern müssen, können Sie den Ereignishandler folgendermaßen ändern:
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
Sie sollten jedoch vorsichtig sein, wenn Sie zu viele Schriftmerkmale ändern, da Sie möglicherweise einige entfernen, die Sie behalten möchten, z. B. Fett oder Kursiv.
Denken Sie daran, dass diese Makros dem ThisWorkbook-Objekt im Visual Basic-Editor hinzugefügt werden sollten.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (4801) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.