项目) (形状对象

表示 Project 报表中的对象，例如图表、报表表、文本框、任意多边形绘图或图片。

备注

Shape 对象是 Shapes 集合的成员，该集合包括报表中的所有形状。

注意

未实现 Shape 对象的宏录制。 也就是说，在 Project 中录制宏并手动添加形状或编辑形状元素时，不会记录用于添加和操作形状的步骤。

有三个对象表示形状： Shapes 集合，表示文档上的所有形状; ShapeRange 对象，表示文档上形状的指定子集 (例如， ShapeRange 对象可以代表文档上的第一个形状和第四个形状，也可以表示文档) 上所有选定的形状;和 Shape 对象，表示文档中的单个形状。 如果您需要同时处理几个形状，或处理选定区域中的多个形状，请使用 ShapeRange 集合。

使用 Shapes(Index)，其中 Index 是形状名称或索引号，以返回单个 Shape 对象。

示例

在以下示例中， TestTextShape 宏创建文本框形状，添加一些文本，并更改形状样式、填充、线条、阴影和反射属性。 FlipShape 宏从上到下翻转形状。

Sub TestTextShape()
    Dim theReport As Report
    Dim textShape As Shape
    Dim reportName As String
    
    reportName = "Simple scalar chart"
    
    Set theReport = ActiveProject.Reports(reportName)
    Set textShape = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 30, 300, 100)
    textShape.Name = "TestTextBox"
    
    textShape.TextFrame2.TextRange.Characters.Text = "This is a test. It's only a test. " _
        & "If it had been real information, there would be some real text here."
    textShape.TextFrame2.TextRange.Characters(1, 15).ParagraphFormat.FirstLineIndent = 0
    
    ' Set the font for the first 15 characters to dark blue bold.
    With textShape.TextFrame2.TextRange.Characters(1, 15).Font
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent5
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 14
        .Bold = msoTrue
    End With
    
    textShape.ShapeStyle = msoShapeStylePreset42
    
    With textShape.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        '.Solid
    End With
   
    With textShape.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
    End With

    textShape.Shadow.Type = msoShadow22
    textShape.Reflection.Type = msoReflectionType3
End Sub

Sub FlipShape()
    Dim theReport As Report
    Dim theShape As Shape
    Dim reportName As String
    Dim shapeName As String
    
    reportName = "Simple scalar chart"
    shapeName = "TestTextBox"
    
    Set theShape = ActiveProject.Reports(reportName).Shapes(shapeName)

    theShape.Flip msoFlipVertical
    theShape.Select
End Sub

图 1 显示了结果，其中选择了形状以使“绘图工具”下的“功能区格式”选项卡可用，但活动选项卡是“报表工具”下的“设计”。 如果未选择形状，则 “绘图工具” 和“ 格式 ”选项卡将不可见。

图 1. 测试形状对象模型

方法

名称
Apply
Copy
Cut
删除
Duplicate
Flip
IncrementLeft
IncrementRotation
IncrementTop
PickUp
RerouteConnections
ScaleHeight
ScaleWidth
Select
SetShapesDefaultProperties
Ungroup
ZOrder

属性

名称
Adjustments
AlternativeText
应用程序
AutoShapeType
BackgroundStyle
BlackWhiteMode
Callout
Chart
Child
ConnectionSiteCount
Connector
ConnectorFormat
Fill
Glow
GroupItems
HasChart
HasTable
Height
HorizontalFlip
ID
Left
Line
LockAspectRatio
名称
Nodes
Parent
ParentGroup
Reflection
Rotation
Shadow
ShapeStyle
SoftEdge
Table
TextEffect
TextFrame
TextFrame2
ThreeD
标题
Top
类型
VerticalFlip
Vertices
Visible
Width
ZOrderPosition

另请参阅

报表对象图表对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。