ふと思いついて、円弧を伸ばしたり縮めたりしてみた。 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 [No…