Yet another alternative is to install fonts 'temporary', just for current user session. Set objFolderItem = objFolder.ParseName('Myriad Pro.ttf') Set objFolder = objShell.Namespace('C:\Windows\Font') Set objFolderItem = objFolder.ParseName('')Įxample: Set objShell = CreateObject('Shell.Application')
Set objShell = CreateObject('Shell.Application') Reg add 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts' /v 'FontName (TrueType)' /t REG_SZ /d FontName.ttf /fĪlternatively you can the following lines of code to suit your needs save it as a.
Copying alone won't install the font: you also need to register the font, e.g. It's possible but you have to write a Windows shell script to do that.
