Μπορείτε να δείτε με μια ματιά ποιες γραμματοσειρές είναι διαθέσιμες στο Excel
Μπορείτε εύκολα να επιλέξετε τη γραμματοσειρά για ένα κελί. Αλλά η λίστα με τις εγκατεστημένες γραμματοσειρές είναι μεγάλη. Αν ψάχνετε για τη σωστή γραμματοσειρά για μια οθόνη ή αν θέλετε να πειραματιστείτε λίγο με γραμματοσειρές, μια μακροεντολή θα σας βοηθήσει.
Χρησιμοποιήστε την ακόλουθη μακροεντολή εάν θέλετε να παραθέσετε όλες τις διαθέσιμες γραμματοσειρές στη στήλη Α ενός νέου βιβλίου εργασίας:
Υπο γραμματοσειρές Εισαγάγετε ()
Λίστα γραμματοσειρών Dim ως CommandBarControl, μετρητής ως ακέραιος
Application.ScreenUpdating = Λάθος
Τετράδια εργασίας. Προσθήκη
Ορισμός λίστας γραμματοσειρών = Application.CommandBars.FindControl (ID: = 1728)
Για μετρητή = 1 Στη λίστα γραμματοσειρών. ListCount
Με κελιά (μετρητής, 1)
.Αξία = Λίστα γραμματοσειρών. Λίστα (μετρητής)
.Font.Name = Λίστα γραμματοσειρών. Λίστα (μετρητής)
Τέλος με
Επόμενος πάγκος
Στήλες (1) .AutoFit
Application.ScreenUpdating = True
Τέλος υπο
Το Excel εισάγει το όνομα κάθε γραμματοσειράς στα κελιά και διαμορφώνει αμέσως το κελί με την κατάλληλη γραμματοσειρά. Η παρακάτω εικόνα δείχνει πώς μπορεί να μοιάζει: