2

深夜の簡単な質問...ヘッダーにあるように、msoTextOrientationHorizo​​ntalとは何ですか?

VBAでMSPowerPointを制御するためのコードをレイトバインドしたいのですが、PowerPoint11.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)

たくさんのご支援ありがとうございます!

4

2 に答える 2

3

「MicrosoftOffice14.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;
于 2012-09-02T14:40:31.390 に答える
2

そしてもっと一般的に、あなたはオブジェクトブラウザについて知っていますか?自動化するアプリを開き(またはアプリへの参照を設定し)、IDEでF2キーを押します。探している定数を検索して、一番下のペインでその値を見つけることができます。

于 2012-09-02T16:30:18.350 に答える