VBA PowerPoint: Retrieve Scale % of an object

[Chris Macro]

I am trying to set a variable equal to the ScaleHeight percentage number and am running into problems. Here is what I have so far but am getting errors when I try to access the ScaleHeight

With ActiveWindow.Selection    
        If .Type = ppSelectionShapes Then
            .ShapeRange.LockAspectRatio = msoCTrue
            SpinButton.Value = .ShapeRange.ScaleHeight
            PercentSize.Value = .ShapeRange.ScaleHeight
            
        Else
            MsgBox "You have not selected an OBJECT in PowerPoint to scale."
            Exit Sub
        End If
    End With