如下的这三个对象或集合,均在VBA之PPT的环境下使用。
一、使用Borders集合
LineFormat 对象的集合,代表表格中某个单元格或单元格范围的边框和对角线。
每个 Cell 对象或 CellRange 集合在 Borders 集合中都具有六个元素。用户不能向 Borders 集合中添加对象。
使用 Borders(index) 返回单个 Border 对象,其中 index 标识单元格的边框线或对角线,Index 可以是任何 PPBorderType 常数。
PPBorderType 可以是下列 PPBorderType 类型常数之一。
ppBorderBottom
ppBorderLeft
ppBorderRight
ppBorderTop
ppBorderDiagonalDown
ppBorderDiagonalUp
使用 DashStyle 属性可将虚线样式应用于 Border 对象。本示例选择表格中的第二行,然后对下框线应用虚线样式。
ActiveWindow.Selection.ShapeRange.Table.Rows(2) .Cells.Borders(ppBorderBottom).DashStyle = msoLineDash
二、BulletFormat
代表项目符号的格式。
使用BulletFormat对象
使用 Bullet 属性返回 BulletFormat 对象。以下示例设置当前演示文稿第一张幻灯片第二个形状中段落的项目符号大小和颜色。
With ActivePresentation.Slides(1).Shapes(2)
With .TextFrame.TextRange.ParagraphFormat.Bullet
.Visible = True
.RelativeSize = 1.25
.Character = 169
With .Font
.Color.RGB = RGB(255, 255, 0)
.Name = "Symbol"
End With
End With
End With
三、CalloutFormat
包含应用于行标注的属性和方法。
使用CalloutFormat对象的方法:
使用 Callout 属性返回单个 CalloutFormat 对象。以下示例指定的 myDocument 中第三个形状(行标注)的属性如下:
标注中含有一个垂直的强调线,用于分隔文本和标注行。
标注行同标注文本框侧边所构成的角度为 30 度。
标注文本没有边框。
标注行将连接到标注文本框的顶部。
标注行中将包含两段。
要使本示例起作用,第三个形状必须是一个标注。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Callout
.Accent = True
.Angle = msoCalloutAngle30
.Border = False
.PresetDrop msoCalloutDropTop
.Type = msoCalloutThree
End With