「ふりがな」を付けたいです

質問

本日は皆さんのお力をお借りしたく、質問させていただきました。

早速質問ですが、現在、VB6で帳票出力のプログラムを作成してます。
DBはSQLServerを使用し、帳票はVBReportを使用しています。

プログラム自体は簡単もので、あるゲームを行い、その結果をExcel上に定義した変数に出力するといったものですが、１つ問題が発生してしまいました。
普通に帳票出力はできるのですが、出力した帳票のメッセージの漢字の上部に小さい字で「ふりがな」をつけて出力したいのですが、上手くいかず困っています。
普通のExcelでは「書式」→「ふりがな」→「表示/非表示」で、漢字の上部にふりがなが出力されますが、プログラムを通して出力すると、ふりがなは表示できないようなのです。

私的には、最悪はメッセージを画像にして帳票出力するか？など考えましたが、何とかふりがなを振る方法で何か良い方法はないでしょうか？
マクロなので予め指定セル内にはふりがなを付けて出力などはできるのでしょうか？

回答No.1

noname#101556

ワークシート関数　PHONETIC( )　というものがありますが、試されましたか。分類は「情報」です。ふりがなの文字列を返します。設計上　ふりがなを別セルとする/編集して出力する　など工夫を要するかもしれませんが、有用であれば試してみてください。

補記です：「セルの書式によってEXCELが内部的に発生させるふりがなを利用する」とのねらいと理解しました。試されたかもしれませんが、例えばセル１に書式で「ふりがな」を指定して内容は「セル２への参照」とし、セル２に「日本」と入れても、セル１にはふりがな無しで「日本」と出ますね。試しにセル２にも書式で「ふりがな」を指定しても、セル１は同じでした。仕様は見ておらず、またマクロでも試していませんが、とりあえず上記関数が有効かと思い、お知らせする次第です。