更改形状时更新Excel工作表

我试图让一个单元格在形状高度变化时显示形状的高度，当拖动形状手柄。 我可以用一个事件处理程序成功地做到这一点，但是这需要取消select形状。 是否可以显示形状的新高度而不取消select形状？ 提前致谢。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim heightVar As Integer heightVar = Sheets("Sheet1").Shapes.Range(Array("boxbox1")).Height Sheets("Sheet1").Range("B1") = heightVar End Sub 

Answer 1

我在我的工作表上放置一个TextBox。 我确定单元格A1和A2是空的。 我运行下面的macros：

 Sub dural() Dim s As Shape Set s = ActiveSheet.Shapes("TextBox 1") While Range("A1") = "" Range("A2") = s.Height DoEvents Wend End Sub 

如果您select形状并更改其高度，单元格A2将响应。

要停止macros循环，只要把一些东西放在单元格A1中 。