create a star shape - script

Have you tried recording a macro?

Sub Macro2()
' Recorded 9. 9. 2024
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim s1 As Shape
Set s1 = ActiveLayer.CreatePolygon2(6.612091, 1.884906, 1.655169, 5)
s1.Fill.ApplyNoFill
s1.Outline.SetPropertiesEx 0.007874, OutlineStyles(0), CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=5#, Justification:=cdrOutlineJustificationMiddle
End Sub