如何在VBA中使用LeftIndent？代码报错：textRange对象无该属性

PPT的VBA对象模型中，ParagraphFormat确实没有LeftIndent属性——这个属性是Word VBA专属的，PPT里并不支持。要实现段落缩进，你可以用以下两种方式：

1. 设置首行缩进 #

如果需要让段落首行向右缩进指定磅数，直接使用FirstLineIndent属性（单位为磅）：

.FirstLineIndent = 3

2. 设置整体段落缩进 #

如果希望整个段落（包括所有行）统一向右偏移，同样可以用FirstLineIndent，PPT默认会让所有行跟随首行的缩进设置；或者你也可以通过调整IndentLevel来使用预设的缩进级别（1到5级，对应不同的默认缩进量）：

.IndentLevel = 2 ' 设为第2级缩进

修改后的完整代码 #

Sub Puce_2nd_level()
    Dim slide As slide
    Dim shape As shape
    Dim textRange As textRange

    If Not ActiveWindow.Selection.textRange Is Nothing Then
        Set textRange = ActiveWindow.Selection.textRange

        With textRange.ParagraphFormat
            .FirstLineIndent = 3   ' 替换原LeftIndent，实现缩进效果
            .SpaceAfter = 3
            .Alignment = ppAlignLeft
        End With
    Else
        MsgBox "请选择要设置格式的文本。", vbExclamation
    End If
End Sub

如果需要实现悬挂缩进（首行不缩进，其余行缩进），只需将FirstLineIndent设为负数：

.FirstLineIndent = -3

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