Shapes-Objekt (Project)Shapes object (Project)

Stellt eine Auflistung von Shape -Objekten in einem benutzerdefinierten Bericht dar.Represents a collection of Shape objects in a custom report.

BeispielExample

Verwenden Sie die Report. Shapes -Eigenschaft, um das Shapes -Auflistungsobjekt abzurufen.Use the Report.Shapes property to get the Shapes collection object. Im folgenden Beispiel muss der Bericht die aktive Ansicht sein, um die Shapes -Auflistung abzurufen. Andernfalls erhalten Sie in der For Each oShape In oReport.Shapes Anweisung einen Laufzeitfehler 424 (Objekt erforderlich).In the following example, 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 = "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

MethodenMethods

NameName
AddCalloutAddCallout
AddChartAddChart
AddConnectorAddConnector
AddCurveAddCurve
AddLabelAddLabel
AddLineAddLine
AddPolylineAddPolyline
AddShapeAddShape
AddTableAddTable
AddTextboxAddTextbox
AddTextEffectAddTextEffect
BuildFreeformBuildFreeform
ElementItem
RangeRange
SelectAllSelectAll

EigenschaftenProperties

NameName
HintergrundBackground
CountCount
DefaultDefault
ParentParent
WertValue

Siehe auchSee also

Shape-Objekt -Berichtsobjekt -ShapeRange-ObjektShape Object Report Object ShapeRange Object

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.