如何用vba在excel工作表中插入同心不同半径的圆或者半圆?





如下图所示:

如果要在工作表中插入两个同心半圆或者圆,根据 如何用vba在excel工作表中插入圆?如何用vba在excel工作表中插入半圆? 中介绍的。

当用vba在工作表中插入圆或者半圆时,AddShape需要提供4个参数,分别为图形的左上角的X、Y坐标值,以及图形的宽、高值。

当宽、高值相等时,为圆形。

如果要插入同心圆,需要计算圆心的坐标,然后根据圆心的坐标折算另一个方形的左上角的X、Y坐标值。

根据以上的知识,可以用如下的代码在excel中插入同心的两个半圆或者圆:

 

打赏
       

发表评论