楕円を書く　 次の文書

Sub Macro1()
'楕円　a=左からの位置、b=上からの位置、c=楕円の幅、d=楕円の高さ
i = 10
Do Until i > 100
a = i: b = i: c = i: d = i:
ActiveSheet.Shapes.AddShape(msoShapeOval, a, b, c, d).Select
i = i + 10
Loop
End Sub

　



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)