Macro - create a shadowed 3D effect, cannot seem to control outline and order

I am making a "cheatsheet" for Arduino. 

I start with a selected rectangle of the correct size and position for that particular text.

Each group of text is(should be) in a frame (white) with a copy of this frame with the outline removed and the color fill a 40% gray behind the white frame.  Kind of a 3D effect.   BTW I would have thought there would be a Coreldraw tool for this but I cannot find one.
I can't seem to control the outline property to delete the outline for the copy and I can't seem to get the order to execute.  I am new at this {but not VBA}.   I carefully recorded the below macro but cannot quite get the object.property to change the above.
Any suggestions or perhaps a link to a similar sample macro?
Thanks
John

Sub Macro2()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    OrigSelection.ApplyUniformFill CreateCMYKColor(0, 0, 0, 0)
    OrigSelection.Fillet 0.12, True
    Dim dup1 As ShapeRange
    Set dup1 = OrigSelection.StepAndRepeat(1, 0.031496, -0.031496)
    dup1.SetOutlineProperties
End Sub

  • Similar samples

    Sub Macro3() 'Create Shadow for single shape
        Dim eff1 As Effect, s As Shape

        ActiveDocument.Unit = cdrMillimeter

        Set s = ActiveShape

        s.Fill.UniformColor.CMYKAssign 0, 0, 0, 0
        s.Fillet 12, True
        Set eff1 = s.CreateDropShadow(0, 50, 15, 20, 25, CreateCMYKColor(0, 50, 50, 0), 4, 0, MergeMode:=9)

    End Sub
    Sub Macro4() 'Create Shadow for list of shapes
        Dim eff1 As Effect, s As Shape, SR As ShapeRange

        ActiveDocument.Unit = cdrMillimeter

        Set SR = ActiveSelectionRange

        SR.ApplyUniformFill CreateCMYKColor(0, 0, 0, 0)
        SR.Fillet 12, True

        For Each s In SR
            Set eff1 = s.CreateDropShadow(0, 50, 15, 20, 25, CreateCMYKColor(0, 50, 50, 0), 4, 0, MergeMode:=9)
        Next s

    End Sub

    Regards
    Taras