Объект Shape (Project)

Представляет объект в отчете Project, например диаграмму, таблицу отчетов, текстовое поле, рисунок freeform или рисунок.

Примечания

Объект 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 показан результат, в котором выбрана фигура для того, чтобы сделать вкладку FORMAT ленты в DRAWING TOOLS доступной, хотя активная вкладка ЯВЛЯЕТСЯ DESIGN в REPORT TOOLS. Если фигура не выбрана, ИНСТРУМЕНТЫ РИСОВАНИЯ и вкладка FORMAT не будут видны.

Рис. 1. Тестирование объектной модели Shape

Тестирование объектной модели фигур

Методы

Имя
Apply
Copy
Cut
Delete
Duplicate
Flip
IncrementLeft
IncrementRotation
IncrementTop
PickUp
RerouteConnections
ScaleHeight
ScaleWidth
Select
SetShapesDefaultProperties
Ungroup
ZOrder

Свойства

Имя
Adjustments
AlternativeText
Application
AutoShapeType
BackgroundStyle
BlackWhiteMode
Callout
Chart
Child
ConnectionSiteCount
Connector
ConnectorFormat
Fill
Glow
GroupItems
HasChart
HasTable
Height
HorizontalFlip
ID
Left
Line
LockAspectRatio
Name
Nodes
Parent
ParentGroup
Reflection
Rotation
Shadow
ShapeStyle
SoftEdge
Table
TextEffect
TextFrame
TextFrame2
ThreeD
Title
Top
Type
VerticalFlip
Vertices
Visible
Width
ZOrderPosition

См. также

Объект Report Объект Chart

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.