タイトル : Re^6: Excel の グラフタイトルの1文字づつのフォント変更 投稿日 : 2009/10/13(Tue) 12:09 投稿者 : ハルク
> ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Characters(2, 1).Font.Subscript = True 一番初めに実行しましたが、できませんでしたので、 原因を調査してみた結果、フォントの一部のみ変更する処理が必要なようです。 一部の文字でフォントが変更された場合、 ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Format.TextFrame2.TextRange.Runs.Count が、1ではなくなることからの予想です。 その結果、フォントを追加する方法を検索した所、 InsertSymbolで追加できるようでしたので、 行ってみましたが、追加されませんでした。 オートシェイプの場合は追加できるようですが。。。 |