RtFunction.Copy


Copy(pSource As RtFunction) As Boolean

Parameters

pSource As RtFunction: Existing function to be copied as object

ED	avaliable
RT	not used

Remarks

Copies the settings of an existing function to the function object.

Sample:


Sub CopyFunction()
Dim zFct As RtFunction
Dim zFctCopy As RtFunction
	'get existing function
	Set zFct = MyWorkspace.ActiveDocument.RtFunctions.Item("picSTART")
	'create new function
	Set zFctCopy = MyWorkspace.ActiveDocument.RtFunctions.Create("TESTING", tpPicture)
	'copy existing function settings to new one...
	Debug.Print zFctCopy.Copy(zFct)
End Sub

See Also