tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Excel の グラフタイトルの1文字づつのフォント変更
投稿日: 2009/10/02(Fri) 14:59
投稿者ハルク
Excel2007のグラフのタイトルをある部分のみ下付き文字にしたいのですが、
どうしてもできません。手動での変更は可能です。

オートシェイプではできたのですが、
グラフのタイトルはオートシェイプとは異なるみたいです。

今回は、VBAで実験していますが、最終的にはVB.NETで行います。

オートシェイプにて変更可能のVBAは以下です。
ActiveSheet.Shapes("正方形/長方形 1").TextFrame2.TextRange.Text = "H2O"
Call ActiveSheet.Shapes("正方形/長方形 1").TextFrame2.TextRange.Characters(2).InsertSymbol("Arial", AscW("2"))
ActiveSheet.Shapes("正方形/長方形 1").TextFrame2.TextRange.Runs(2).Font.BaselineOffset = -0.25

グラフタイトルのVBAは以下です。
シンボルが追加されないようです。
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "H2O^"
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Format.TextFrame2.TextRange.Characters(2).InsertSymbol "Arial", AscW("2")
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Format.TextFrame2.TextRange.Runs(2).Font.BaselineOffset = 0.1

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。