VBA Formatting of A 3D Shape

[Ark68]

I am trying to create a 3d shape with VBA on my worksheet. I am having difficulty assigning the 3d properties. (I took a sample from a Google Search but I don't think I'm pursuing the right parameters). The line in red ius throwing the error "The specified value is out of range". I assume msoRelaxedBVevel is inappropriate?

I have a rounded rectangle base shape. From the 3d properties, my 3d shape takes on these characteristics:
Top Bevel Type = Relaxed Bevel (second row, second in from left in the menu)
Top Bevel Width = 6.5 pt
Top Bevel Height = 5 pt

Here is my code

Set sh1u = .Shapes.AddShape(msoShapeRoundedRectangle, 8.5, 8.5, 76.5, 28.5)
        sh1u.Name = "Up"
        With sh1u
        .Line.Visible = False
        With .TextFrame.Characters
            .Text = "RESET"
            With .Font
                .Name = "Calibri"
                .FontStyle = "Bold"
                .Size = 11
                .Color = RGB(255, 255, 255)
            End With
        End With
        With .ThreeD
            .BevelTopType = msoRelaxedBevel
            .BevelTopInset = 6.5
            .BevelTopDepth = 5
        End With
        .OnAction = "gui_reset"

Is anyone able to correct me on how to properly code the 3d propertires of this shape?

 

[shg]

msoRelaxedInset

 

[Fluff]

Or maybe .BevelTopType = msoBevelRelaxedInset

 

[Ark68]

Thank you. That worked, but now I wish to change it the simply round. I replaced msoBevelRelaxedInset with msoBevelRound and I have that error again. Where can I find reference to the different BevelTopTypes? The microsoft page I found for "MsoBevelType enumeration does not show msoBevelRelaxedInset let alone what I am looking for simply round.

 

[Fluff]

Use the macro recorder, that's what I did.

 

[Ark68]

Yeah ... an often overlooked resource. Thanks. Who would have guessed a rounded rectangles is a msoBevelCircle?

 

[Fluff]

You're welcome & thanks for the feedback.

PS, I hope this has nothing to do with your thread on Excel Forum.

 

[Ark68]

Same buttons, different issues.