如何通过 VBA 更改 PowerPoint 中现有的 Tabstop？答案

【问题标题】：How to change an existing Tabstop in PowerPoint by VBA?如何通过 VBA 更改 PowerPoint 中现有的 Tabstop？
【发布时间】：2017-11-20 23:53:03
【问题描述】：

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

有更新 TabStop 大小的想法吗？

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

TextBox Example

Shape.textframe.ruler.tabstops.count 始终为 0，如果我仅通过 For-Each-Loop “采用”形状。如果我手动选择它，它在段落菜单的子菜单 TabStops 中也是 0。如果我在形状内部单击（闪烁的光标）并再次打开 TabStops 菜单，我会看到一个 TabStopPosition。

如何通过 VBA 访问这些信息？

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

谢谢！

萌

【问题讨论】：

pptfaq.com/FAQ00794_Working_with_Tab_settings_in_text.htm
@TimWilliams 感谢您的回答。我从您的链接中尝试了 VBA 代码，但它确实找到了任何 TabStop。出于这个原因，我添加了一个示例屏幕截图。有什么想法吗？
我有这种情况。如果我只选择形状，我在设置中看不到任何 TabStopPositions 并且 shp.textframe.ruler.tabstops.count 为 0。如果我在第一行的形状内部单击，我会在第一行看到一个 TabStopPositions。如果我为整个 Shape 设置 TabStopPositions，则计数器（shp.textframe.ruler.tabstops.count）变为 1。然后我可以使用以下命令更改大小：shp.textframe.ruler.tabstops.item(1).position跨度>

标签： vba character powerpoint tabstop textrange

【解决方案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

【讨论】：

太棒了！谢谢您的帮助！ .LeftIndent 始终为 0。但我只需要 .Position 来放大或缩小它。