DIAdem Reportの軸線の色をプログラム的に指定する方法

更新しました Mar 22, 2023

使用製品

ソフトウェア

  • DIAdem

問題

  • DIAdem Report の軸線の色をプログラム的に変更するにはどうすればよいですか?
  • SystemLink でReportを作成すると、軸線の一部の色が DIAdem Reportと異なります。

解決策

DIAdem Report の軸線の色を制御するには、次のスクリプトを実行する必要があります。
 
Option Explicit

Dim oMy2DAxisSystem, oMyPosition, oMy2DCurve, oMyXAxisLine, oMyYAxisLine
Call Report.NewLayout()
Set oMy2DAxisSystem = Report.ActiveSheet.Objects.Add(eReportObject2DAxisSystem, "My2DAxisSystem")
Set oMyPosition = oMy2DAxisSystem.Position.ByCoordinate
oMyPosition.X1 = 20
oMyPosition.X2 = 80
oMyPosition.Y1 = 20
oMyPosition.Y2 = 80
Set oMy2DCurve = oMy2DaxisSystem.Curves2D.Add(e2DShapeLine, "MyNew2DCurve1")
oMy2DCurve.Shape.XChannel.Reference = "[1]/[1]"
oMy2DCurve.Shape.YChannel.Reference = "[1]/[2]"
Call oMy2DCurve.Shape.Settings.Line.Color.SetPredefinedColor(eColorIndexblack)
oMy2DAxisSystem.Settings.UseIndividualAxisStyle = True

Set oMyXAxisLine = oMy2DAxisSystem.XAxis.Line
oMyXAxisLine.UseCurveColor = False
Call oMyXAxisLine.Color.SetPredefinedColor(eColorIndexBlue)

Set oMyYAxisLine = oMy2DAxisSystem.YAxis.Line
oMyYAxisLine.UseCurveColor = False
Call oMyYAxisLine.Color.SetPredefinedColor(eColorIndexRed)

Call Report.Refresh()

上記のVBScript は、次のように軸線と曲線の色を制御します。
 
ScriptandColor.png