円弧を伸ばしたり縮めたりしてみた

ふと思いついて、円弧を伸ばしたり縮めたりしてみた。

Sub Test()
    Dim Arc As Excel.Shape
    Set Arc = ActiveSheet.Shapes.AddShape(msoShapeArc, 200, 100, 80, 80)
    Dim i As Long
        For i = 0 To 1800
            Arc.Adjustments.Item(2) = -i * 2
            Application.Wait [Now() + "00:00:00.01"]
        Next
End Sub

f:id:Infoment:20191219220100g:plain

何度目かの「お絵かきシリーズ」に発展するかも。
※あくまで「かも」です。

参考まで。