Метод 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 создает таблицу с одной строкой и одним столбцом

Пример

Макрос 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 может добавлять поля в таблицу

См. также

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

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

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