| |
ハチさん
返信ありがとうございます。
そしてできました！！！
なぜ出来たかはわからないのですが、頂いたコードをそのままやったら
できました。
恐らく自分のソースに載せようとした為だと思われます。。
ありがとうございます。
本当に助かりました。
▼ハチ さん：
>▼GOOD さん：
>
>>→ここでｴﾗｰが出てしまいます・・・
>>おそらく原因はTgt_Shp.Nameの値がないことが原因であると思います。
>>ｴﾗｰは、「アプリケーション定義、またはオブジェクト定義のｴﾗｰです」
>>となりました。
>>年のため、
>>
>>> Set Tgt_Shp = Selection
>>
>>の後に、Msgbox tgt_shp.Name
>>と記述してみたところ、やはりここで同様にｴﾗｰが出てしまいます。
>
>さきほどのレスに
>「コネクタの付いている図形をひとつ、選択した状態で実行してみてください。」と
>していたのですが、
>
>１つの図形を選択した状態で実行してもダメですか？
>
>SelectionがShapeか判定してからSetするように
>例外処理を入れたほうが良いのですが、
>やり方を忘れました･･･
>
>こちらでは正常にDebug.Printまで出来ました。（Win2k,Excel2k)
|
|
GOOD
- 08/1/9(水) 19:03 -
