vba - VBA 中 msoTextOrientationHorizo​​ntal 的常量值是多少？

Question

深夜的简单问题......就像标题所说的那样，什么是 msoTextOrientationHorizo​​ntal？

我希望后期绑定用于在 VBA 中控制 MS PowerPoint 的代码，但似乎无法从 PowerPoint 11.0 库中找到 msoTextOrientationHorizo​​ntal 的常量值。

Dim objPPTApp As Object
Dim oPPSlide As Object
Dim oPPShape As Object
Const ppLayoutBlank = 12

Set objPPTApp = CreateObject("Powerpoint.Application")
Set oPPSlide = objPPTApp.ActivePresentation.Slides.Add(1, ppLayoutBlank)
Set oPPShape = oPPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 256, 28)

类似于

Dim objPPTApp As Object
Dim oPPSlide As Object
Dim oPPShape As Object
Const ppLayoutBlank = 12
Const msoTextOrientationHorizontal= 0 '## Value needed 

Set objPPTApp = CreateObject("Powerpoint.Application")
Set oPPSlide = objPPTApp.ActivePresentation.Slides.Add(1, 12)
Set oPPShape = oPPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 256, 28)

感谢您的支持！

Answer 1

来自“Microsoft Office 14.0 对象库”：

typedef enum {
    msoTextOrientationMixed = 0xfffffffe, // -2
    msoTextOrientationHorizontal = 1, // <<-- This is the one you need
    msoTextOrientationUpward = 2,
    msoTextOrientationDownward = 3,
    msoTextOrientationVerticalFarEast = 4,
    msoTextOrientationVertical = 5,
    msoTextOrientationHorizontalRotatedFarEast = 6
} MsoTextOrientation;

Answer 2

更一般地说，您了解对象浏览器吗？打开要自动化的应用程序（或设置对其的引用），然后在 IDE 中按 F2。您将能够搜索您所追求的常量并在最底部的窗格中找到它的值。