How to draw wedge shape with outline in Excel VBA?

Question

I want to draw a sector of a circle (i.e. a wedge shape) using VBA in Excel (the desktop version from Office 365 ProPlus). The code below gives me the right shape, but only