パワポにテキストボックス作成

Question

環境とプログラムは

http://social.msdn.microsoft.com/Forums/vstudio/ja-JP/7e62c070-51e6-4301-baeb-1056d995d799/vbnet

の初めに記述しています。

Shapes.AddTextboxを使用してパワーポイント上にテキストボックスを作成します。

この時に、「ワードアートスタイル」の「文字の効果」の「変形」を反映させたいです。

プログラムに何を追加すれば実現可能でしょうか。

よろしくお願いします。

Answer 1

直接の回答ではありませんが…

質問を乱発するのではなく、やりたい操作をマクロに記録し、VBAでどのようなコードになるのか確認し、それと照らし合わせながらVBコードを書いてはどうでしょうか。

Answer 2

パワーポイント2007なのでマクロが思うように動きません。

ですので、リンク先に出来ているところまでのプログラムを載せています。

Answer 3

私は、記録しコードを確認するように勧めました。動かすとは書いていません。

Answer 4

こんな？

Option Strict Off
Module Module1
    Sub Main()
        Dim msoTrue = -1 'Microsoft.Office.Core.MsoTriState.msoTrue
        Dim msoFalse = 0 'Microsoft.Office.Core.MsoTriState.msoFalse
        Dim msoTextOrientationHorizontal = 1 'Microsoft.Office.Core.MsoTextOrientation.msoTextOrientationHorizontal
        Dim msoTextEffect23 = 22 'Microsoft.Office.Core.MsoPresetTextEffect.msoTextEffect23 = 22
        Dim msoTextEffectShapeArchDownCurve = 10 'Microsoft.Office.Core.MsoPresetTextEffectShape.msoTextEffectShapeArchDownCurve = 10
        Dim ppLayoutBlank = 12 ' Microsoft.Office.Interop.PowerPoint.PpSlideLayout.ppLayoutBlank=12

        Dim app = CreateObject("PowerPoint.Application") 'new Microsoft.Office.Interop.PowerPoint.Application()
        app.Visible = msoTrue
        Dim pre = app.Presentations.Add()
        Dim slides = pre.Slides
        Dim slide = slides.Add(1, ppLayoutBlank)
        Dim shapes = slide.Shapes

        Dim shape1 = shapes.AddTextbox(msoTextOrientationHorizontal, 10, 50, 100, 100)
        shape1.TextFrame.TextRange.Text = "ABCDEFG"
        shape1.TextEffect.PresetShape = msoTextEffectShapeArchDownCurve

        Dim shape2 = shapes.AddTextEffect(msoTextEffect23, "あいうえお", "MS Pゴシック", 30, msoTrue, msoFalse, 200, 100)
        shape2.Rotation = 45
        shape2.TextEffect.PresetShape = msoTextEffectShapeArchDownCurve
    End Sub
End Module

#PowerPoint2007でマクロを強制的に記録させても、ほとんどの機能は記録できないんだが...

---

個別に明示されていない限りgekkaがフォーラムに投稿したコードにはフォーラム使用条件に基づき「MICROSOFT LIMITED PUBLIC LICENSE」が適用されます。(かなり自由に使ってOK!)

Answer 5

zoro01 さん、こんにちは
フォーラム オペレーターの星 睦美です。

gekka さんからの返信が参考になりそうだと思いますので今回は私から[回答としてマーク] させていただきました。
引き続き質問を続けたい場合には遠慮なく[回答としてのマークの解除] をして返信できます。

それでは、これからもMSDN フォーラムをよろしくお願いします。

---

フォーラム オペレーター　星 睦美 - MSDN Community Support