Relocate Object From One Page Layout To Another

// Relocates a page layout object from one layout to another.
// If destObjectName is different from sourceObjectName, renames the object during the relocation.
// In this case, it is up to you to make sure that destObjectName is valid and not in conflict.
Function RelocateLayoutObject(sourceLayoutName, sourceObjectName, destLayoutName, destObjectName)
	String sourceLayoutName, sourceObjectName
	String destLayoutName, destObjectName

	String sourceInfo = LayoutInfo(sourceLayoutName, sourceObjectName)
	
	RemoveLayoutObjects /W=$sourceLayoutName $sourceObjectName
	
	if (CmpStr(sourceObjectName,destObjectName) != 0)
		DoWindow /C /W=$sourceObjectName $destObjectName
	endif
	
	Variable fidelity = NumberByKey("FIDELITY", sourceInfo)
	Variable frame = NumberByKey("FRAME", sourceInfo)
	Variable trans = NumberByKey("TRANS", sourceInfo)
	Variable left = NumberByKey("LEFT", sourceInfo)
	Variable top = NumberByKey("TOP", sourceInfo)
	Variable width = NumberByKey("WIDTH", sourceInfo)
	Variable height = NumberByKey("HEIGHT", sourceInfo)
	Variable right = left + width
	Variable bottom = top + height
	String objectType = StringByKey("TYPE", sourceInfo)
	
	AppendLayoutObject /W=$destLayoutName /D=(fidelity) /F=(frame) /R=(left,top,right,bottom) /T=(trans) $objectType $destObjectName
End