excel表格同心圆怎么画

1.EXCEL如何把一列数据画成同心圆图形

灵活使用Excel的气泡图可以实现将一列数据画成同心圆图形，思路如下：气泡图的每一个泡泡由三个数据确定：气泡的x坐标、气泡的y坐标、气泡的大小，所以将这列数据的位置都设置在原点（0, 0），大小设置为这列数据，就得到了同心圆。

以Excel 2010为例，演示如下：1、将原先的一列数据扩充为气泡图数据，如下图所示：2、选中气泡图数据区域，依次点击：插入→其他图表→气泡图，如下图所示：3、此时得到的是一团聚在一起的圆，如下图所示：4、为了显示出同心圆，需要做两个设置：选中气泡→右键菜单→设置数据系列格式，在弹出菜单中：① 放大气泡的显示倍数② 取消气泡的填充：此时已经基本实现同心圆的效果，如下图所示：5、最后可以作一些坐标轴区间、网格线样式等方面的设置，以调整显示效果，最终示例如下：。

2.求教Excel Vba 画同心圆的问题

Excel的Shape.ScaleWidth和 Shape.ScaleHeight方法虽然有个msoScaleFromMiddle参数，但是实际上并没法从圆心开始放大，因此你干脆就在原来圆的基础上重心画圆。

下列代码只是在你代码的基础上修改的，主要只是如何确定其它圆左上角的位置。但一次只能画一个圆。

如果你需要很多这样的同心圆，则需要你修改一下代码，将新的放大比率赋值给数组变量，然后用一个简单的循环去读取数组。Sub txy()Const r1 = 25Const startpos = 10Dim r2 As SingleDim ratio As SingleSet myShe = Application.ActiveSheet '设置对象变量'Set myJh = New Collection '设置新集合变量myleft = Application.ActiveCell.Left + startpos '获得激活单元格的左边距mytop = Application.ActiveCell.Top + startpos '获得激活单元格的上边距With myShe.Shapes.AddShape(msoShapeOval, myleft, mytop, r1 * 2, r1 * 2) '添加园 msoShapeOval椭圆形 .Fill.Transparency = 1 '设置形状为透明 .Line.Weight = myXt + 0.75 '设置线条宽度 .Line.ForeColor.RGB = myRGB '设置前景色End Withratio = 0.8 '设置放大比例r2 = r1 * ratiomyleft = Application.ActiveCell.Left - (r2 - (startpos + r1)） '获得激活单元格的左边距mytop = Application.ActiveCell.Top - (r2 - (startpos + r1)） '获得激活单元格的上边距With myShe.Shapes.AddShape(msoShapeOval, myleft, mytop, r2 * 2, r2 * 2) '添加园 msoShapeOval椭圆形 .Fill.Transparency = 1 '设置形状为透明 .Line.Weight = myXt + 0.75 '设置线条宽度 .Line.ForeColor.RGB = RGB(255, 0, 0) '设置前景色，如果完全复制可以设回原来的myRGBEnd WithEnd Sub myleft, mytop是圆的左上点，确切地说，是圆的外切正方形的左上角点的坐标位置，以磅为单位；50,50是圆的直径，实际上excel里面没有单独的画圆命令，这个命令是用来画椭圆的，两个参数分别为宽度和高度，相等的话就是画圆，不等就是椭圆。

使用AddShape方法添加的图形，都具有五个参数，画什么形状主要取决于第一个type参数。