RtFunction.CreateDynProperty

CreateDynProperty(bsPath As String) As Boolean

Parameters

bsPath As String

DynProperty as String to be created.

Remarks

A new Subitem of the Function (i.e. Filter settings) can be created.

Sample:

'Create Function for TREND - PICTURE
Sub TrendFunction()
Dim zFCT As RtFunction
Dim i As Integer

	'Get function
	Set zFCT = MyWorkspace.ActiveDocument.RtFunctions.Item("picTREND")
	'function settings...
	With zFCT
		'check amount of 'PictFilter' subitems (normaly 1)
		i = .DynProperties("PictFilter[-1]")
		'if 0 (not exists) then create it...
		If i = 0 Then .CreateDynProperty "PictFilter"
		'change some settings
		.DynProperties("PictFilter[0].RefreshRate") = 1
	
		'enum CURVES
		For i = 0 To CInt(.DynProperties("PictFilter[0].Curve[-1]")) - 1
			'print curve settings
			Debug.Print .DynProperties("PictFilter[0].Curve[" & i & "].GraphName")
			Debug.Print .DynProperties("PictFilter[0].Curve[" & i & "].VarInfo.VarName")
			Debug.Print .DynProperties("PictFilter[0].Curve[" & i & "].YAxe.Scale.ScaleTop")
			Debug.Print .DynProperties("PictFilter[0].Curve[" & i & "].YAxe.Scale.ScaleBotton")
		Next i
	End With
End Sub

See Also

RtFunction