Excelとワードで同じVBAを流してみたんですが、挙動が異なる。 これってバグ？ https://i.imgur.com/oKs1K0l.jpg office2013です。 Set myDocument = ActiveDocument 'Set myDocument = ActiveSheet x = 110: y = 10: r = 100: h = 100 a = 0.3 Set shp = myDocument.Shapes.AddShape(msoShapeArc, x, y + r * (1 - a), r, r * a) With shp .Adjustments.Item(1) = -180 .Adjustments.Item(2) = 180 .Line.DashStyle = msoLineDash .Line.Weight = 2 End With Set shp = myDocument.Shapes.AddShape(msoShapeArc, x, y, r, r) With shp .Adjustments.Item(1) = -180 .Adjustments.Item(2) = 180 .Line.DashStyle = msoLineSolid .Line.Weight = 2 End With
