SmartObjectLayer = psApp.ActiveDocument.ArtLayers("StarMap") SmartObjectLayer.Kind = 17 psApp.Open(SmartObjectLayer)