Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Применяет указанный шаблон отчета к активному отчету.
Синтаксис
выражение.
ApplyReportLayoutTemplate
(TemplateId)
выражение: переменная, представляющая объект Application.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| TemplateId | Необязательный | PjReportLayoutTemplateId | Указывает тип отчета; может быть одной из следующих констант: pjReportLayoutComparison, pjReportLayoutTitleAndChart, pjReportLayoutTitleAndTable или pjReportLayoutTitleOnly. |
| TemplateId | Необязательный | PJREPORTLAYOUTTEMPLATEID |
Возвращаемое значение
Boolean
Примечания
Для существующего отчета метод ApplyReportLayoutTemplate добавляет указанные элементы отчета поверх других фигур в отчете. Например, если встроенный отчет "Обзор затрат задач" активен, ApplyReportLayoutTemplate pjReportLayoutTitleAndChart инструкция добавляет в отчет новое текстовое поле с заголовком отчета и новую диаграмму по умолчанию.
Пример
В следующем примере создается отчет, содержащий текстовое поле заголовка и базовую таблицу, а затем вертикально центрирует текст в ячейках таблицы.
Sub CreateTableReport()
Dim theReport As Report
Dim reportName As String
Dim shp As Shape
' Add a report.
reportName = "Table Report"
Set theReport = ActiveProject.Reports.Add(reportName)
ApplyReportLayoutTemplate TemplateId:=pjReportLayoutTitleAndTable
For Each shp In theReport.Shapes
If shp.HasTable Then
shp.Select
AlignTableCellVerticalCenter
End If
Next shp
End Sub
См. также
Перечисление объекта отчетаPjReportLayoutTemplateId
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.