Sub Test() Dim s As Shape Set s = ActiveLayer.CreateEllipse(0, 0, 2, 2) s.Properties("Width", 0) = s.SizeWidth s.Properties("Height", 0) = s.SizeHeight MsgBox s.Properties.Index("Height", 0)End Sub