小编use*_*557的帖子

如何根据单元格宽度更改形状的大小

例如，我的单元格 B1 的宽度为：14:00（103 像素），C1 的宽度为：16:00（117 像素）。放置在 Rage 内的形状应将其大小更改为 220 像素。

而且每当宽度发生变化时，它都应该根据其大小进行调整！所以应该有一个方法来查找单元格宽度。

我拥有的代码将帮助我将其居中

Sub Set_shape()

ActiveSheet.Shapes("Rectangle 1").Select 'get the object
With Selection
    .Left = Range("B1:C1").Left + (Range("B1:C1").Width - Selection.Width) / 2
    .Top = Range("B1:C1").Top + (Range("B1:C1").Height - Selection.Height) / 2
End With

End Sub

是否可以？如果是的话请帮我修改这段代码？

提前致谢