補助線を引く： SetElement

ラベル:
グラフの補助線を引くには、SetElementプロパティを指定します。下の例では、ワークシート"sheet1"の"fig01"チャートで、縦と横の補助線を指定しています。このSetElementプロパティはとても便利で、グラフツール[レイアウト]タブの[ラベル]や[軸]などのグループで設定できるものは全て設定が可能です。

Sub test()
  Dim ws As Worksheet                         'ワークシート型変数の定義
  Dim fig As ChartObject                       'ChartObject型変数の定義

  Set ws = Worksheets("sheet1")            'ワークシート名を指定
  Set fig = ws.ChartObjects("fig01")      'グラフを指定

  fig.Chart.SetElement (msoElementPrimaryCategoryGridLinesMajor)  '縦軸
  fig.Chart.SetElement (msoElementPrimaryValueGridLinesMajor)       '横軸
End Sub

0 件のコメント:

コメントを投稿

登録: コメントの投稿 (Atom)