How to add 3d bevel (Cool Slant) shape effect to Oval shape

Hi,

Attached is the code I use to add a shape to a temp worksheet, can anyone please advise me how to add a 3d bevel effect to it? In particular I wanted to use the shape effect bevel called 'Cool Slant'?

Or point me in the direction of another thread on this subject, as I couldn't find anything.

Sub Insert_Cancel_Form_Button()
    
    Dim sh As Object
    Set sh = ActiveSheet.Shapes.AddShape(msoShapeOval, 300, 200, 198.5, 119)
    sh.Name = "Cancel Form Button"
    ActiveSheet.Shapes("Cancel Form Button").Select
    Selection.ShapeRange.Line.Visible = False
    Selection.Characters.Text = "Click Here to Exit & Return to the Home Page"
    With Selection.Characters.Font
        .Name = "Calibri"
        .FontStyle = "Bold"
        .Size = 20
        .Color = RGB(0, 0, 0)
    End With
    Selection.OnAction = "Home_From_Fault_Check_Cancel"
    
End Sub

Edit: Im using Excel 2007 ifit makes any difference...

Thanks
Steve