Table of contents
TOC
Collapse the table of content
Expand the table of content

Application.AlignTableCellBottom Method (Project)

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Aligns text at the bottom of the cell, for selected cells in a report table.

Syntax

expression. AlignTableCellBottom

expression A variable that represents an Application object.

Return value

Boolean

Example

In the following example, the AlignTableCells macro aligns the text for all tables in the specified report.

Sub TestAlignReportTables()
    Dim reportName As String
    Dim alignment As String   ' The value can be "top", "center", or "bottom".

    reportName = "Align Table Cells Report"
    alignment = "top"

    AlignTableCells reportName, alignment
End Sub

' Align the text for all tables in a specified report.
Sub AlignTableCells(reportName As String, alignment As String)
    Dim theReport As Report
    Dim shp As Shape

    Set theReport = ActiveProject.Reports(reportName)

    ' Activate the report. If the report is already active,
    ' ignore the run-time error 1004 from the Apply method.
    On Error Resume Next
    theReport.Apply
    On Error GoTo 0

    For Each shp In theReport.Shapes
        Debug.Print "Shape: " &; shp.Type &; ", " &; shp.Name

        If shp.HasTable Then
            shp.Select

            Select Case alignment
                Case "top"
                    AlignTableCellTop
                Case "center"
                    AlignTableCellVerticalCenter
                Case "bottom"
                    AlignTableCellBottom
                Case Else
                    Debug.Print "AlignTableCells error: " &; vbCrLf _
                        &; "alignment must be top, center, or bottom."
                End Select
        End If
    Next shp
End Sub

See also

Concepts

Application Object

Other resources

Report ObjectAlignTableCellTop MethodAlignTableCellVerticalCenter Method

© 2018 Microsoft