| |
Access2002です。
VBAでフォントのインストールをしたいのですが、うまくいきません。
Fontsフォルダ内にコピーはされるのですが、フォントとしては使えません。
以下がコードです。コード外でWindowsDirectoryにてWindowsのパスを取得しています。
Sub sbSetFont() 'フォントセットアップ
Dim strCPth As String, strFDir As String, strFont As String
Dim objFS As Object
strFont = "AAAFont.ttf"
If pstrPth = "" Then pstrPth = CurrentProject.Path
strCPth = pstrPth & "\" & strFont
If Dir(strCPth) = "" Then Exit Sub
strFDir = WindowsDirectory
strFDir = strFDir & "\Fonts\" & strFont
If Dir(strFDir) <> "" Then
Kill strFDir
End If
Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.CopyFile strCPth, strFDir
Set objFS = Nothing
End Sub
アドバイスよろしくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
