LineAttributes プロパティ

オブジェクト：Axis

• Read Only
  As Object
  
• 構文: Axis object.LineAttributes

指定した Axis オブジェクトから各軸に関する Line オブジェクトのコレクションを返します。特定の Line オブジェクトを取得するには、以下に示すコレクションインデックスを使用します。

なお、軸ラインの属性の多くは、Axis オブジェクトの SetAttribute メソッドで Axis オブジェクトの各種属性値を使って設定します。

Example

• 横軸のラインを青に変更し、縦軸のラインを赤に変更します。両軸のグリッド線は、グレーの点線に設定します。また、いずれかの軸に中断 (break) がある場合は、その中断は色が黒、向きは斜め、線種は点線であらわされる二本の平行線になります。

  Dim SPHoriz,SPVert
  Set SPHoriz = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Axes(0).LineAttributes(1)
  Set SPVert = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Axes(1).LineAttributes(1)
  SPHoriz.Color(RGB_BLUE)
  SPVert.Color(RGB_RED)
  Set SPHoriz = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Axes(0).LineAttributes(4)
  Set SPVert = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Axes(1).LineAttributes(4)
  SPHoriz.SetAttribute(SEA_LINETYPE,6)
  SPVert.SetAttribute(SEA_LINETYPE,6)
  SPHoriz.Color(RGB_GRAY)
  SPVert.Color(RGB_GRAY)
  Dim i,breakstatus,brkparam(2)
  For i=0 To 1
  Set SPHoriz = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Axes(i)
  breakstatus=SPHoriz.GetAttribute(SAA_BREAKON,brkparam(i))
  If breakstatus=1 Then
  SPHoriz.LineAttributes(6).Color(RGB_BLACK)
  SPHoriz.SetAttribute(SAA_BREAKTYPE,2)
  SPHoriz.LineAttributes(6).SetAttribute(SEA_LINETYPE,6)
  End If
  Next i