エクセルで使用しているフォント名を抜き取りたい。

質問

エクセルファイル（xlsx）から使用しているフォントを抜き取るプログラムを作っています。
シート部分のフォントは取れたのですが、テキストボックス部分を抜き取る方法が分かりません。

「Microsoft Office Open XML SDK 2.0」で見たときに深い階層にある「LatinFont」「EastAsianFont」にあたる部分です。
xlsxファイルの拡張子をzipにして中のファイルを読み込んで・・・、と言うのではなくxlsxファイルから抜き取りたいです。

GetPartsOfType()を使用するらしいということを小耳に挟んだのですが、こちらも使い方が分からず、日本語ページも見つけられずで困っています。

どうかよろしくお願いします。

回答No.1

watabe007 · ベストアンサー

こんにちは

>テキストボックス部分を抜き取る方法が分かりません。
MsgBox ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Font.Name
または
MsgBox ActiveSheet.Shapes("Text Box 1").DrawingObject.Font.Name

では

お礼

回答ありがとうございます。

一応解決はしたのですが、教えていただいたやり方と全然違います・・・。
教えていただいた方法も試してみたいと思います。