在PowerPoint中使用VBA通过LeftIndent获取精确的数字(以英寸为单位

Sub GetLeftIndent()
    Dim slide As Slide
    Dim shape As Shape
    Dim textFrame As TextFrame
    Dim leftIndent As Single
    
    ' 获取当前活动幻灯片
    Set slide = ActiveWindow.View.Slide
    
    ' 遍历幻灯片上的所有形状
    For Each shape In slide.Shapes
        ' 检查形状是否为文本框
        If shape.HasTextFrame Then
            Set textFrame = shape.TextFrame
            ' 检查文本框是否有段落
            If textFrame.HasText Then
                ' 获取文本框中第一个段落的左缩进量
                leftIndent = textFrame.TextRange.Paragraphs(1).IndentLevel.Left
                ' 将左缩进量转换为英寸
                leftIndent = leftIndent / 72
                ' 输出左缩进量
                Debug.Print "Left Indent (inches): " & leftIndent
            End If
        End If
    Next shape
End Sub