VBA 6.3 从PowerPoint解组的Excel图表Y轴获取极值与轴长问题

识别失败的核心原因是Excel图表解组后生成的刻度文本容器为矩形形状，不属于标准msoTextBox类型，编号378是Office针对图表解组生成的自定义形状枚举值，无公开对应说明，无需关注该编号，直接通过「是否包含文本内容」判断即可。

实现思路 #

• 选中解组后所有Y轴相关的形状（轴线+所有刻度文本）
• 遍历选中的形状，分别识别垂直轴线（msoLine类型，枚举值为9）和带数值的文本容器
• 提取轴线长度、刻度数值的最大最小值，计算目标比例

完整实现代码 #

Sub CalculateYAxisScale()
    Dim selectedShps As ShapeRange
    Dim shp As Shape
    Dim yAxisLength As Single
    Dim axisValues As Collection
    Dim minVal As Double, maxVal As Double
    Dim scale As Double
    Dim i As Integer
    
    ' 初始化集合存储刻度数值
    Set axisValues = New Collection
    
    ' 校验选中内容是否为形状集合
    If ActiveWindow.Selection.Type <> ppSelectionShapes Then
        MsgBox "请先选中Y轴相关的所有形状"
        Exit Sub
    End If
    Set selectedShps = ActiveWindow.Selection.ShapeRange
    
    ' 遍历所有选中的形状
    For Each shp In selectedShps
        ' 识别Y轴线（垂直直线）
        If shp.Type = msoLine Then
            ' 垂直轴线长度直接取高度属性
            yAxisLength = shp.Height
        ' 识别带文本的形状
        ElseIf shp.TextFrame.HasText Then
            ' 判断文本是否为数值，过滤非刻度的文本内容
            If IsNumeric(shp.TextFrame.TextRange.Text) Then
                axisValues.Add CDbl(shp.TextFrame.TextRange.Text)
            End If
        End If
    Next shp
    
    ' 校验数据有效性
    If yAxisLength = 0 Or axisValues.Count < 2 Then
        MsgBox "未识别到有效Y轴线或刻度数值，请检查选中内容"
        Exit Sub
    End If
    
    ' 计算刻度的最大最小值
    minVal = axisValues(1)
    maxVal = axisValues(1)
    For i = 1 To axisValues.Count
        If axisValues(i) < minVal Then minVal = axisValues(i)
        If axisValues(i) > maxVal Then maxVal = axisValues(i)
    Next i
    
    ' 计算目标比例
    If maxVal = minVal Then
        MsgBox "刻度最大值和最小值相等，无法计算比例"
        Exit Sub
    End If
    scale = yAxisLength / (maxVal - minVal)
    
    ' 输出结果
    MsgBox "Y轴刻度最小值：" & minVal & vbCrLf & _
           "Y轴刻度最大值：" & maxVal & vbCrLf & _
           "Y轴线长度：" & yAxisLength & " 磅" & vbCrLf & _
           "计算所得比例：" & scale
End Sub

注意事项 #

• 如果存在逆序刻度（Y轴从下往上数值减小），可根据需求调整比例的正负逻辑
• 如果选中内容包含X轴刻度或其他无关文本，可额外添加位置判断（比如刻度文本都在轴线左侧，判断shp.Left < 轴线.Left即可过滤）
• 代码默认Y轴为垂直直线，如果是倾斜轴线可通过Sqr((shp.Width ^ 2) + (shp.Height ^ 2))计算斜边长度

内容的提问来源于stack exchange，提问作者John Boe