PowerPoint 编程:尝试访问标尺边距时出现问题

Question

我正在尝试访问各种项目符号列表项的缩进级别。所以我创建了一个简单的函数：

private float[] findIndentSpacing(TextRange t, int level) {
    if(level == 1) {
            RulerLevel rl = t.Parent.Ruler.Levels(2);
            //bullet must start at 0 on the first level for now
            return new float[2] { 0, rl.LeftMargin * Settings.Scaler() };
        } else {
            RulerLevel rl = t.Parent.Ruler.Levels[level];
            return new float[2] { rl.FirstMargin * Settings.Scaler(), rl.LeftMargin * Settings.Scaler() };
        }
    }

因此，第一个if语句是一种解决方法。由于某种原因，第一级 LeftMargin 始终返回：-2.14748365E+9。我试图在第一个之后抓取水平，它们返回实际值。话虽如此，在访问一个级别后，所有其他级别都会发生变化并变得相等。例如，如果我尝试访问：t.Parent.Ruler.Levels[2].FirstMargin，那么由于某种原因t.Parent.Ruler.Levels[3].FirstMargin变得相同，依此类推。左边距也会更改。

我尝试以不同的方式访问标尺对象：通过选择、形状、文本以及我认为尝试结果的每种方式都是一样的。

想法？

更多信息：我阅读了以下线程，但它们更多的是关于写作而不是阅读，但我觉得问题很相似： PowerPoint 编程：标尺边距级别的缩进不起作用？http://answers.microsoft.com/en-us/office/forum/office_2007-customize/why-shapetextframerulerlevelsi-cant-set-the-bullet/9eac3e46-b13b-433e-b588-216ead1d9c1a?tab=AllReplies#tabs我做了这个：http://answers.microsoft.com/en-us/office/forum/office_2010-customize/find-bullet-spacing-information-in-an-automated/4525b6b8-6331-4f33-8127-789ea3641589?page=1&tm=1336535132591

Answer 1

在 2007 年和 2010 年，我认为您需要使用 TextRange2 和 TextFrame2 对象。

在 PPT 2003 及更早版本中，文本框架可以有 5 个缩进级别，并且给定缩进级别的所有段落共享相同的左边距和第一边距。

从 2007 年起，TextFrame 最多可以有 9 个缩进级别，并且每个段落可以有自己的左/首边距，与在同一缩进级别的其他段落上设置的边距无关。

在PPT的VBA IDE中尝试一下。 然后选择您正在查看的文本：

Sub Levels()
  Dim oSh as Shape
  Dim x As Long
  Set oSh = ActiveWindow.Selection.ShapeRange(1)
  With oSh.TextFrame2.Ruler
    For x = 1 to .Count
      Debug.Print .Levels(x).FirstMargin
      Debug.Print .Levels(x).LeftMargin
    Next
  End With
End Sub