使用TableProperties设置表的镶边和缩放

【e800编译】此示例演示了在Microsoft PowerPoint 2010演示文稿中如何设置表的镶边以及缩放等。

此代码段是Office 2010的101项VBA代码示例中的一部分。与其它示例一样，这些将可以直接写入您的代码中。

每块示例代码包含约5至50行的代码，分别演示了一个独特的功能或功能集，在VBA 或VB以及C＃中（在Visual Studio 2010中创建）。每个示例之中都会包含代码以及相应注释，这样您就可以直接运行获取预期的结果，或者是根据代码注释提示来调整环境，运行示例代码。

Microsoft Office 2010提供了你所需要的工具来创建功能强大的应用程序。Microsoft Visual Basic Application（VBA）代码示例可以帮助你创建自己的应用程序，以执行特定功能或者以此为出发点实现更为复杂的功能。

实例代码

将此代码复制到一个新的演示文稿中的一个模块。并列放置VBA与PowerPoint窗口，将光标放在TableProperties，并按下F8键（然后按Shift + F8）单步执行下列代码。

Sub TableProperties()

Dim pres As Presentation

Set pres=ActivePresentation

Dim sld As Slide

Set sld=pres.Slides.Add(2,ppLayoutTable)

sld.Select

Dim tbl As Table

Set tbl=sld.Shapes.AddTable(4,4).Table

FillTabletbl

' Variables to maintain the state:

Dim savedFirstRow As Boolean

Dim savedFirstCol As Boolean

Dim savedHorizBanding As Boolean

Dim savedLastCol As Boolean

Dim savedLastRow As Boolean

' Store the current state:

savedFirstRow=tbl.FirstRow

savedFirstCol=tbl.FirstCol

savedHorizBanding=tbl.HorizBanding

savedLastCol=https://www.360docs.net/doc/e613888922.html,stCol

savedLastRow=https://www.360docs.net/doc/e613888922.html,stRow

savedVertBanding=tbl.VertBanding

' Alter all settings:

tbl.HorizBanding=Not savedHorizBanding

tbl.VertBanding=Not savedVertBanding

tbl.FirstRow=Not savedFirstRow

tbl.FirstCol=Not savedFirstCol

https://www.360docs.net/doc/e613888922.html,stCol=Not savedLastCol

https://www.360docs.net/doc/e613888922.html,stRow=Not savedLastRow

' Scale the table to half size:

tbl.ScaleProportionally0.5

' Put it back the way it was (twice as big as it is currently): tbl.ScaleProportionally2

' Put things back the way they were:

tbl.HorizBanding=savedHorizBanding

tbl.VertBanding=savedVertBanding

tbl.FirstRow=savedFirstRow

https://www.360docs.net/doc/e613888922.html,stCol=savedLastCol

https://www.360docs.net/doc/e613888922.html,stRow=savedLastRow

EndSub

Sub FillTable(tbl As Table)

' Fill a table with sample data.

Dim row As Integer

Dim col As Integer

For col=1To tbl.Columns.Count

tbl.Cell(1,col).Shape.TextFrame.TextRange.Text="Heading "&col

Next col

For row=2To tbl.Rows.Count

For col=1To tbl.Columns.Count

tbl.Cell(row,col).Shape.TextFrame.TextRange.Text="Cell "&row&", "&col Next col

Next row

EndSub