如何使用VBA纠正Powerpoint中的艺术字

我正在制作PowerPoint 2007。我想用VBA纠正艺术字。纠正措施可能涉及对齐、调整大小等

请建议我如何做到这一点。

以下是一个示例：

With ActivePresentation.Slides(1).Shapes(1)
    .ScaleWidth 1.38, msoFalse, msoScaleFromBottomRight
    .TextEffect.Text = "Your Text Here again"
    .IncrementRotation -15#
End With

以上假设您的艺术字是幻灯片1上的唯一形状

有关更多信息，请尝试录制宏并查看生成的代码