如何通过VBA更改PowerPoint中的现有制表符

Question

我有一个VBA代码来调整PowerPoint中对象的大小，包括字体大小，边距和其他所有内容。但是我还没有找到更新/更改现有TapStop的解决方案。有一个具有不同级别和默认值的标尺对象。我还仔细检查了带有字符的文本范围对象。

有什么想法可以更新 TabStop 大小吗？

这是一个文本框的示例，我想调整大小：

文本框示例

Shape.textframe.ruler.tabstops.count 始终为 0，如果我只通过 For-Each-Loop "获取"形状。如果我手动选择它，它在子菜单段落的制表符停止处也是 0。如果我在形状内部单击(闪烁光标(并再次打开 TabStop 菜单，我会看到一个 TabStopPosition。

如何通过 VBA 访问此信息？

我已经通过Line.Selection尝试过了，但没有任何效果。

谢谢！

教育部

Answer 1

PowerPoint 过去只允许每个文本框架(即每个形状(一组段落设置。这种情况在PPT2007年发生了变化;现在，每个段落都可以有自己的选项卡和其他设置。试一试：

Sub ShowMeTabs()
Dim X As Long
Dim lTabCount As Long
    With ActiveWindow.Selection.ShapeRange(1).TextFrame2.TextRange
        For X = 1 To .Paragraphs.Count
            Debug.Print X
            With .Paragraphs(X).ParagraphFormat
                For lTabCount = 1 To .TabStops.Count
                    Debug.Print .TabStops(lTabCount).Position
                Next    ' Tab
                Debug.Print "Level:" & .IndentLevel & " Position:" & .LeftIndent 'etc
            End With
        Next    ' paragraph x
    End With
End Sub