Метод 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 и обратная связь.