MS Access Tips/Sample and VBA and Blog customize etc...

AutoFontSize関数をAccess97にも対応させる

AutoFontSize関数をAccess97で使いたいのですが、動作しません。なんとか方法はないでしょうか。

AutoFontSize関数を垂直文字配置の指定ができるよう改良

上記で紹介した AutoFontSize関数は、TextWidthメソッド、TextHeightメソッドを利用してますが、これはAccess2000以降に実装されたものなので、Access97以前では使えません。

TextWidthメソッド、TextHeightメソッドの代わりにAPIを利用して文字幅、文字高を取得する関数を作成すればAccess97でも可能です。

今回は、Access97にも対応させる方法を紹介します。

難易度:

標準モジュールを新規作成してそこに、下記のコードを記述します(コピーして貼り付けてもOK)。

モジュール名は Mdl_TextWidth とでもしておいてください。(たまに関数と同じ名前をつけて動かないと言ってくる人がいますので)

後は、上記の参照先の AutoFontSize 関数の

.TextWidth(Str) 
MyTextWidth(Ctr, Str)
.TextHeight(Str) 
MyTextHeight(Ctr, Str)
に置換すればOKです。

ただし、現在、当方にはAccess97環境がないので動作確認はしていません。自己責任でご利用ください。(以前、AC97でこの方法を利用していたので大丈夫だとは思いますが。)

拍手する

Leave a reply






Trackbacks

trackback URL
http://hatenachips.blog34.fc2.com/tb.php/260-1e20211d
該当の記事は見つかりませんでした。