Свойство Report. Shapes (Project)Report.Shapes property (Project)

Получает коллекцию объектов Shape в отчете.Gets the collection of Shape objects in the report. Фигурытолько для чтения.Read-only Shapes.

СинтаксисSyntax

Expression. Shapes (фигуры )expression.Shapes

Expression (выражение ) Переменная, представляющая объект "Report".expression A variable that represents a 'Report' object.

ПримерExample

В приведенном ниже примере показано, как отобразить фигуры в настраиваемом отчете.The following example lists the shapes in a custom report. Чтобы получить коллекцию Shapes , отчет должен быть активным представлением; в противном случае в For Each oShape In oReport.Shapes операторе выдается ошибка времени выполнения 424 (необходимый объект).The report must be the active view to get the Shapes collection; otherwise, you get a run-time error 424 (Object required) in the For Each oShape In oReport.Shapes statement.

Sub ListShapesInReport()
    Dim oReports As Reports
    Dim oReport As Report
    Dim oShape As shape
    Dim reportName As String
    Dim msg As String
    Dim msgBoxTitle As String
    Dim numShapes As Integer
    
    numShapes = 0
    msg = ""
    reportName = "New Table Tests"
    Set oReports = ActiveProject.Reports
    
    If oReports.IsPresent(reportName) Then
        ' Make the report the active view.
        oReports(reportName).Apply
        
        Set oReport = oReports(reportName)
        msgBoxTitle = "Shapes in report: '" & oReport.Name & "'"
    
        For Each oShape In oReport.Shapes
            numShapes = numShapes + 1
            msg = msg & numShapes & ". Shape type: " & CStr(oShape.Type) _
                & ", '" & oShape.Name & "'" & vbCrLf
        Next oShape
        
        If numShapes > 0 Then
            MsgBox Prompt:=msg, Title:=msgBoxTitle
        Else
            MsgBox Prompt:="This report contains no shapes.", _
                Title:=msgBoxTitle
        End If
    Else
         MsgBox Prompt:="The requested report, '" & reportName _
            & "', does not exist.", Title:="Report error"
    End If
End Sub

Значение свойстваProperty value

ФИГУРSHAPES

См. такжеSee also

Report Object Объект фигур объекта ReportReport Object Shapes Object

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.