エクセラのEXCEL
表計算ソフトEXCELでゲーム等を作っています。ゲーム等の作成状況を紹介。
バーコードフォント

EXCELの表からバーコードの印刷をしたいが、
PCのadministratorの権限が無いため、
アプリケーションのインストール等ができなかった。
”EXCELバーコード革命”が使えそうなので、使ってみたが、
フォントの登録ができず、これも断念。
考えまくった結果、バーコードだけお借りして、
フォント登録のAPIを毎回実行することで解決

Declare Function AddFontResource Lib "gdi32.dll" Alias "AddFontResourceA"
(ByVal lpszFileName As String) As Long

sub test()
    x = AddFontResource("BarCode39.ttf")
    If x = 0 Then
        MsgBox "フォントがインストールできませんでしたので終了します。"
        Exit Sub
    End If

  (省略)

end sub

スポンサーサイト

テーマ:プログラミング - ジャンル:コンピュータ

コメント
この記事へのコメント
コメントを投稿する
URL:
Comment:
Pass:
秘密: 管理者にだけ表示を許可する
 
トラックバック
この記事のトラックバックURL
この記事へのトラックバック
copyright © 2005 エクセラのEXCEL all rights reserved.
Powered by FC2ブログ.