How to register a font with VBA or MS 2007 installer 1

[stevedemo]

I have a Access Solution that I have created, a few of the fonts are non standard. Is there a way to register the fonts with VBA ? Or the 2007 Devloper extensions ?

Thanks,

Steve

All I want is the chance to prove money won't make me happy.

 

[TheAceMan1]

How are ya stevedemo . . .

Be aware, this is a windows question, not Access!

Typically its [blue]Control Panel[/blue] - [blue]Fonts[/blue] - [blue]File[/blue] - [blue]Install New Font[/blue].

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[Remou]

Apparently it is possible to use Wsshell:

From:

http://groups.google.com/group/microsoft.public.scripting.wsh/msg/69ae89d4061bc6f1

If not fso.FileExists(windir&"\Fonts\myfont.Ttf") then 
    fso.copyfile LDrive&"\Patches\myfont.Ttf",windir&"\Fonts\myfont.Ttf" 
End If 
If Inwin=1 Then 
    Reg="Windows NT" 
Else 
      Reg="Windows" 
End If 
Result = WshShell.Regread 
("HKLM\Software\Microsoft\"&Reg&"\Currentversion\Fonts","Font entry") 
If Result <> "myfont.ttf" Then 
    Wshshell.RegWrite 
("HKLM\Software\Microsoft\"&Reg&"\Currentversion\Fonts\Font Entry", 
"myfont.TTF","REG_SZ") 
End If

 

[stevedemo]

Thanks Remou,

Looks like that may work, I will test it later.

Here is some info to help with WshShell

Set WshShell = CreateObject("WScript.Shell")

orginal thread:

http://www.pcreview.co.uk/forums/thread-947405.php