نصب فونت از طریق vba

[elam]

ممنون از لطفتون
یه سوال دیگه چه جوری میشه به اکسل فهموند که اگه روی یه سیستم یه فونت خاص نبود اون فونت را تو پوشه فونت ببره و کپی کنه به شرطی که فونت کنار فایل اکسل موجود باشه

[~M*E*H*D*I~]

ممنون از لطفتون
یه سوال دیگه چه جوری میشه به اکسل فهموند که اگه روی یه سیستم یه فونت خاص نبود اون فونت را تو پوشه فونت ببره و کپی کنه به شرطی که فونت کنار فایل اکسل موجود باشه

از دو لینک زیر کمک بگیرید

http://www.vb-helper.com/howto_install_font.html

Installing and registering a font through VBA

[~M*E*H*D*I~]

از دو لینک زیر کمک بگیرید

http://www.vb-helper.com/howto_install_font.html

Installing and registering a font through VBA

کد زیر مشکل رو حل میکنه رویداد رو میتونید به Auto_Open تغییر بدید تا به محض باز شدن فایل اجرا بشه .

Private Const HWND_BROADCAST = &HFFFF&
Private Const WM_FONTCHANGE = &H1D
Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Sub AddFont()
Dim res As Long

res = AddFontResource("C:\Fonts\irannaskh.ttf")
If res > 0 Then

SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
MsgBox res & " fonts were added!"
End If
End Sub 

مسیر فونت رو قبل از اجرا به مسیر دلخواه تغییر بدید

[elam]

اضافه کردن فونت به سیستم کامپیوتر با اکسل

تو لینک زیر یه سوالی مطرح کردم ولی ظاهرا دیگه نمیشه سوال پرسید بسته شده

http://forum.exceliran.com/showthread.php/6247-%D9%86%D8%B5%D8%A8-%D9%81%D9%88%D9%86%D8%AA-%D8%A7%D8%B2-%D8%B7%D8%B1%DB%8C%D9%82-vba?p=32260#post32260

مجبورم باقی سوالاما اینجا بپرسم شرمنده
ببینید من یه فایل دارم که یه فونت خاص توش استفاده شده و رو سیستم خودم کار میکنه مشکلی نیست
اما
اگه رو سیستم دیگه بخوام ببرم شاید این فونت اونجا نباشه و کار به مشکل می خوره حالا می خوام جوری باشه به محض اینکه فایل باز میشه اول بررسی کنه ببینه اگه فونت مورد نظر موجود بود و تو پوشه فونت بود که هیچی اگه نه پیغام بده فونت مورد نظر نیست باید کپی بشه و با زدن دکمه ای فونت تو پوشه فونت ها کپی بشه
ممنون از لطفتون