テキストボックスの枠線を消すマクロを作りたい(VISIO)

Question

こんにちは

下記の通り,テキストの枠線を消すためのマクロを作ってみたのですが,まったく動きません。

Shapeタイプがおかしいのでしょうか

Sub u()

    Dim visioShp As Visio.Shape

        For Each visioShp In Application.ActiveWindow.Page.Shapes

            If visioShp.Type = msoTextBox Then

                 visioShp.Line.ForeColor.RGB = RGB(0, 0, 0)

            End If

        Next visioShp

End Sub

よろしくお願いします。

Answer 1

Makapuさん

貴重なご意見ありがとうございます。

Msdnフォーラムをさっそく利用したいと思います。

Answer 2

CKVVVさん、こんにちは。

VBA に関する話題ですと、開発の方が多くご利用になる ＜Msdnフォーラム＞の方が情報が集まり易いと思います。

よろしければそちらにも投稿して情報を集めてみて下さいね。

■ Msdn フォーラム（VBA）