ممکن است زمان هایی در ماکروهای شما پیش بیاید که باید تعداد فونت های موجود برای استفاده را تعیین کنید. برای این کار از ویژگی Count شی FontNames به صورت زیر استفاده کنید:
x = FontNames.Count
پس از اتمام، x شامل تعداد فونت های نصب شده و در دسترس برای استفاده خواهد بود.
