【簡単VBAプログラミング】Excelマクロで円を描く

Excel

Excelを使っていて、どうしてもマクロを使って円を描きたかったので作ってみました。

ほかのことにも応用はできると思いますので、参考にしてください。

Excelでセルの中心に円を描く

Sub main()
Dim x As Integer
Dim y As Integer

x = ActiveCell.left
y = ActiveCell.top

ActiveSheet.Shapes.AddShape(msoShapeOval, x, y, 2, 2).Select
'「r」は円の半径で、違う数字にすると楕円になります。
End Sub

コメント

タイトルとURLをコピーしました