VBA 中 msoTextOrientationHorizontal 的常量值是多少？答案

【问题标题】：What is constant value of msoTextOrientationHorizontal in VBA?VBA 中 msoTextOrientationHorizontal 的常量值是多少？
【发布时间】：2012-08-27 05:18:46
【问题描述】：

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

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

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)

感谢大家的支持！

【问题讨论】：

标签： vba com constants powerpoint late-binding

【解决方案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;

【讨论】：

【解决方案2】：

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

【讨论】：