PowerPoint程序设计:标尺边距的缩进不正常

Question

最近我们升级了一个PowerPoint插件以支持2007和2010。我们能够毫无问题地移植大部分项目。我们遇到的一个问题是，当使用插件创建表格或形状时，缩进不起作用。

例如:相同的表在2003年以适当的缩进被删除，但当添加到使用2007时，相同的东西不会缩进。

下面是允许缩进的代码片段:

With PropertyValues.ObjShape.Table.Cell(row, col).Shape.TextFrame.Ruler
               For rulerCount = 0 To 5
                    .Levels(rulerCount).FirstMargin = rulerFirstMargin(rulerCount) '.LeftMargin = rulerLeftMargin
                    .Levels(rulerCount).LeftMargin = rulerLeftMargin(rulerCount) 'Left indent marker
                Next rulerCount
        End With

知道为什么不工作吗?

我也读了下面的线程，但没有帮助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

更新代码:

 PropertyValues.ObjShape.Table.Cell(row, col).Shape.TextFrame.TextRange.Text = "N/A"
            With PropertyValues.ObjShape.Table.Cell(row, col).Shape.TextFrame
                'Dim rulerCount As Short
                For rulerCount = 1 To 5
                    .Ruler.Levels(rulerCount).FirstMargin = 10 * rulerCount 'rulerFirstMargin(rulerCount) '.LeftMargin = rulerLeftMargin
                    .Ruler.Levels(rulerCount).LeftMargin = 20 * rulerCount 'rulerLeftMargin(rulerCount) 'Left indent marker
                Next rulerCount
            End With
            PropertyValues.ObjShape.Table.Cell(row, col).Shape.TextFrame.TextRange.Text = text

Answer 1

FWIW，在2007年及以后，你现在可以有多达9个标尺水平，而不是像在早期版本的5。但是你的代码应该按原样工作。下面是一个简化的版本，它可以在表的任意单元格(2,2)上工作:

Dim oSh As Shape
Dim x As Long
Set oSh = ActiveWindow.Selection.ShapeRange(1)
With oSh.Table.Cell(2, 2).Shape.TextFrame
    For x = 1 To 9
    .Ruler.Levels(x).LeftMargin = x * 10
    .Ruler.Levels(x).FirstMargin = x * 20
    Next
End With

你可能会遇到的另一件事是，你可以应用某些类型的格式(包括标尺设置)所有你喜欢的;如果在你要应用的层次上没有文本，那么PPT就不会吠叫。它会忽略你。您的设置将不起作用。有时您需要检查文本，如果没有文本则提供一些(在现实世界中非常不可能)，然后删除所有不可能的文本实例。

丑陋。是的。

这里我们在尝试格式化每个缩进级别之前添加文本并设置缩进级别:

Sub test()
Dim oSh As Shape
Set oSh = ActiveWindow.Selection.ShapeRange(1)
Dim RulerCount As Long
Dim sTemp As String
sTemp = "@#$%"  ' dummy text
With oSh.Table.Cell(2, 3).Shape.TextFrame
    For RulerCount = 1 To 5
        .TextRange.Paragraphs(RulerCount).Text = sTemp & vbCrLf
        .TextRange.Paragraphs(RulerCount).IndentLevel = RulerCount
    Next
    For RulerCount = 1 To 5
        .Ruler.Levels(RulerCount).FirstMargin = 10 * RulerCount 'rulerFirstMargin(rulerCount) '.LeftMargin = rulerLeftMargin
        .Ruler.Levels(RulerCount).LeftMargin = 20 * RulerCount 'rulerLeftMargin(rulerCount) 'Left indent marker
    Next RulerCount
End With

End Sub