Dzwebs.Net

撰写电脑技术杂文十余年

Borders、BulletFormat、CalloutFormat范例

Admin | 2012-9-13 6:33:43 | 被阅次数 | 6122

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  如下的这三个对象或集合,均在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


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231