vba - Publisher VBA Vertical Text Alignment プロパティが適用されない

Question

テーブルを作成し、テキストを垂直方向の中央に配置しようとしています。表を作成するときは、セルにテキストを入力し、配置を適用します。

Dim pg As Page
Dim tbl As Shape

Set pg = ActiveDocument.ActiveView.ActivePage

Set tbl = pg.Shapes.AddTable(1, 1, InchesToPoints(3), InchesToPoints(5), InchesToPoints(2), InchesToPoints(1))

With tbl.Table.Rows(1).Cells(1)
    .TextRange.Text = "Hello, World!"
    .VerticalTextAlignment = pbVerticalTextAlignmentCenter
End With

ただし、テキストは垂直方向に正しく配置されません。「テーブルの書式設定」の下の「セルのプロパティ」タブを見ると、すでに「中央」の垂直方向の配置に設定されていることがわかりますが、これは「OK」を押すと適用されます (キャンセルを押しても何も変わりません)。

配置が適用される前または後にテキストを変更しても問題ありません。なぜこれが起こっているのか、誰にもアイデアがありますか?