excel - Excel保持圆形居中

Question

我现在已经用谷歌搜索死了。

我在 Excel 中有 2 个圆圈居中（居中对齐）（居中对齐）我编写了我的 VB 代码以引用单元格 A1 以获得大小。圆 1 比圆 2 大 30%。我从 A2 得到的圆形 2 尺寸。

每次我更改 A1 中的值时，A2 都会更改“A1*1.3”。我的问题是，当圆圈改变大小时，它们不再在中心/中间对齐。

有没有办法锁定中心，这样当形状大小发生变化时它们就不会移动。

代码

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.Shapes.Range(Array("Circle1"))
    .Width = Range("A1").Value * 30
    .Height = Range("A1").Value * 30

End With
    With ActiveSheet.Shapes.Range(Array("Circle2"))
    .Width = Range("A2").Value * 30
    .Height = Range("A2").Value * 30
End With
    

结束子

标签： excelalignmentshapes