Метод Shapes.AddTable (Project)

Добавляет таблицу в отчет и возвращает объект Shape , который представляет таблицу.

Синтаксис

выражение. AddTable(NumRows, NumColumns, Left, Top, Width, Height)

выражение: переменная, представляющая объект Shapes.

Параметры

Имя Обязательный или необязательный Тип данных Описание
NumRows Обязательный Long Количество строк в таблице. При создании таблицы NumRows игнорируется.
NumColumns Обязательный Long Количество столбцов в таблице. При создании таблицы NumColumns игнорируется.
Left Обязательный Single Левый край (в точках) таблицы по отношению к левой стороне области отчета.
Top Обязательный Single Верхний край (в точках) таблицы по отношению к верхней части области отчетов.
Width Обязательный Single Ширина таблицы в точках.
Height Обязательный Single Высота таблицы в точках.
NumRows Обязательный INT
NumColumns Обязательный INT
Left Обязательный FLOAT
Top Обязательный FLOAT
Width Обязательный FLOAT
Height Обязательный FLOAT
Имя Обязательный или необязательный Тип данных Описание

Возвращаемое значение

Shape

Примечания

Project NumRows и NumColumns при создании таблицы методом AddTable. Когда таблица создается, она имеет одну строку и один столбец, который содержит текст Используйте таблицу данных для создания таблицы (см. рис. 1). При выборе таблицы Project области задач для задач таблицы с именем Field List с заданиями, выбранными по умолчанию. С помощью области задач списка полей можно вручную добавлять поля в отчет.

Рис. 1. Метод AddTable создает таблицу с одной строкой и одним столбцом

Использование метода AddTable

Пример

Макрос TestReportTable создает таблицу, показанную на рисунке 1, а затем выбирает таблицу для отображения области задач таблицы данных.

Sub TestReportTable()
    Dim theReport As Report
    Dim tableShape As shape
    Dim theReportTable As ReportTable
    Dim reportName As String
    Dim tableName As String
    Dim rows As Integer
    Dim columns As Integer
    Dim left As Integer
    Dim top As Integer
    Dim width As Integer
    Dim height As Integer
    
    reportName = "Table Report"
    Set theReport = ActiveProject.Reports.Add(reportName)
    
     ' Add the table.
    tableName = "Task information"
    rows = 0
    columns = 0
    left = 0
    top = 30
    width = 110
    height = 20
       
    ' Project ignores the NumRows and NumColumns parameters when
    ' creating a ReportTable.
    Set tableShape = theReport.Shapes.AddTable(rows, columns, _
                        left, top, width, height)
    
    tableShape.Name = tableName
    tableShape.Select
    Set theReportTable = tableShape.Table
    
    With theReportTable
        Debug.Print "Rows: " & .RowsCount
        Debug.Print "Columns: " & .ColumnsCount
        Debug.Print "Cell 1,1 contents:" & vbCrLf & vbTab; .GetCellText(1, 1)
    End With
End Sub

Чтобы указать поля для таблицы, используйте метод UpdateTableData . Добавьте следующий код после строки Set theReportTable = tableShape.Table в предыдущем макросе. Параметр OutlineLevel указывает задачи уровня 1 и отфильтровывает задачу сводки проекта.

    ' Set fields for the table.
    Dim fieldArray(1 To 6) As PjField
        
    fieldArray(1) = pjTaskName
    fieldArray(2) = pjTaskStart
    fieldArray(3) = pjTaskFinish
    fieldArray(4) = pjTaskPercentComplete
    fieldArray(5) = pjTaskActualCost
    fieldArray(6) = pjTaskRemainingCost
        
    theReportTable.UpdateTableData Task:=True, OutlineLevel:=1, SafeArrayOfPjField:=fieldArray

Запустите измененный макрос TestReportTable в проекте с четырьмя задачами с различными значениями для процента полных и затрат ресурсов. Рисунок 2 — пример результатов таблицы.

Рис. 2. Метод UpdateTableData может добавлять поля в таблицу

Обновление таблицы с помощью метода UpdateTableData

См. также

Объект Shapes Объект Shape Метод Application.Table

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

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