缩放工作表后，Excel在VBA中返回错误的图表高度

在VBA中，当你缩放工作表后，Excel会返回错误的图表高度。这是因为Excel在缩放工作表时，并不会自动更新图表对象的高度属性。因此，当你尝试通过VBA代码获取图表的高度时，得到的值将会是错误的。

要解决这个问题，你可以通过以下方法来获取正确的图表高度：

1. 使用ChartObject.Height属性：这个属性可以直接获取图表对象的当前高度，而不受工作表缩放的影响。可以使用以下代码来获取图表的高度：

Dim chartObj As ChartObject
Dim chartHeight As Double

Set chartObj = Worksheets("Sheet1").ChartObjects("Chart1")
chartHeight = chartObj.Height

1. 使用Shape.Height属性：图表对象实际上是一个形状（Shape），所以你也可以使用Shape.Height属性来获取正确的图表高度。可以使用以下代码来获取图表的高度：

Dim chartShape As Shape
Dim chartHeight As Double

Set chartShape = Worksheets("Sheet1").Shapes("Chart1")
chartHeight = chartShape.Height

无论是使用ChartObject.Height还是Shape.Height属性，都能够获取到正确的图表高度，而不受工作表缩放的影响。

在应用场景方面，这个问题通常在需要自动调整或计算图表高度的VBA代码中会遇到。例如，你可能需要根据图表的高度来自动调整其他元素的位置或大小，或者将图表插入到其他应用程序中时需要准确的高度值。

推荐的腾讯云相关产品是腾讯文档，腾讯文档是一款在线协作文档工具，支持团队实时编辑、评论、版本管理等功能。腾讯文档可以用于编写文档、制作演示文稿、记录会议笔记等场景，也可以插入Excel表格和图表进行数据展示和分析。腾讯文档的产品介绍和链接地址如下：

产品名称：腾讯文档 产品介绍链接：https://docs.qq.com/