从access vba创建ppt时对齐文本框

从access创建ppt时，我正在尝试对齐文本框。对齐控件可从excel vba获得，但我很难在access中找到它

下面是从access vba在powerpoint中创建文本框的示例。我可以控制字体大小等，但我无法找到文本框的对齐方式

' Program data
Dim tb_ProgramData As Shape
Set tb_ProgramData = pptCurrentSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=68.399, Top:=51.12, Width:=187.2, Height:=18.72)
tb_ProgramData.TextFrame.TextRange.Text = rs.Fields(27) + " Program: " + rs.Fields(29)
tb_ProgramData.TextFrame.TextRange.Font.Size = 9
tb_ProgramData.TextFrame.TextRange.Font.Bold = msoTrue

唯一接近的是段落对齐，但它没有效果

tb_Title.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter

---

任何帮助都将不胜感激。。。问候，

好的悲痛。。我在文本效果下找到了它

tb_SystemClass.TextEffect.Alignment = msoTextEffectAlignmentRight

如果你想从形状列表中选择文本框，那么

pptCurrentSlide.Shapes.Range("tb_SystemClass").TextEffect.Alignment = msoTextEffectAlignmentRight

---

形状

可能不明确。尝试将tb\U ProgramData设置为Powerpoint.Shape或类似形状（我不知道ppt对象模型）。消除“对齐”歧义：您是否尝试将形状置于幻灯片的中心？如果是，垂直还是水平，或者两者都有？我希望控制文本框形状中文本的对齐方式。例如，我想在幻灯片的右侧放置一个文本框形状，然后将此文本框中的文本与文本框形状的右侧对齐，以便于格式化。