[[20151009104330]]　『ワードアートの図番号』（ナンバー）　ページの最後に飛ぶ

『ワードアートの図番号』（ナンバー）

 ワードアートの図番号て言って正しいかわかりませんが・・・
 VBAでワードアートを作成するときにコードにワードアートの番号を入れるにあたって
 縦書きのワードアートの番号を知りたいのです。
 どうやったら分かりますか？
 いろいろ探したのですが分からなくて・・・どこかに一覧とかあるのでしょうか？

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

適当にワードアートをクリックすると書式タブが追加されるので
配置の中のオブジェクトの選択と表示で一覧番号が出ます。

あぁ、そういうことか…
読解力がなくてすみません。
（ななしのごんべえ） 2015/10/09(金) 11:27

 縦書きかどうかを調べたい、ということでいいんですよね？
    Option Explicit
    Sub test()
        Dim sp As Shape
        For Each sp In ActiveSheet.Shapes
            Debug.Print sp.TextFrame.Orientation '多分これであってる。
            Debug.Print sp.Name
        Next sp
    End Sub

（稲葉） 2015/10/09(金) 11:51

 ななしのごんべえさん、稲葉さん

 ご回答ありがとうございます。

 大変申し訳ありません＾＾；
 説明が悪かったです・・・
 んと・・・msoTextEffect25←単純にここの番号です。
 25だと横書きのワードアートなので縦書きのワードアートの番号て何番～何番なのかな？
 という質問だったのです＾＾；

（ナンバー） 2015/10/09(金) 12:12

 それは規定のスタイルの番号ですよね？
     Sub test2()
        Dim i As Long
        For i = 0 To 29
            ActiveSheet.Shapes.AddTextEffect i, i + 1 & "つ目", "ＭＳゴシック", 20, msoTrue, msoTrue, 10, i * 50 + 1
        Next i
    End Sub
 実行していただければ分かりますが、規定で縦書きのスタイルは無かったと思います。
 オブジェクトブラウザでMsoPresetTextEffectの定数を検索して確認してみてください。

 また縦書きは先に説明した通り、調べることができます。
 こちらもオブジェクトブラウザでTextFrameを検索すると、Orientationの項目があると思いますので
 MsoTextOrientation定数でどの数値がどうなるのか確認してください。

https://msdn.microsoft.com/ja-jp/library/office/ff834714.aspx

（稲葉） 2015/10/09(金) 12:41

 稲葉様

 ありがとうございます。

 そうです規定のスタイルの番号です。
 縦書きのスタイルが規定で無いからいくら調べても出てこなかったのですね＾＾；

 結局、横書きのスタイルのを縦書きに変えるコードを入れないとダメってことですね～。
 稲葉様の教えていただいた方法で調べてチャレンジしてみます。
（ナンバー） 2015/10/09(金) 13:51

コメント返信：

[ 一覧(最新更新順) ]

[[20151009104330]] 『ワードアートの図番号』（ナンバー） ページの最後に飛ぶ

[[20151009104330]]　『ワードアートの図番号』（ナンバー）　ページの最後に飛ぶ