- 01: 名前：まちゃ！投稿日：2000/12/14(木) 17:22
- 度々すいません。
VBAでグループ解除を行っていると、
「マスターとのリンク～～破棄しますか？」
のダイアログが出てくる時があるのですが、このダイアログが出ないようにする方法はあるのでしょうか？
過去のログ（保存確認メッセージについて）で、
「AlertResponse=3」というのが書いてありましたが、
どのように使うのでしょうか。
Visio4です。よろしくお願いします。
- 02: 名前：管理人投稿日：2000/12/14(木) 19:09
- エッ？VISIO4でVBAが動くんですか？？
- 03: 名前：まちゃ！ 投稿日：2000/12/18(月) 11:44
- どうも。
回答がなかなかつかないので、バージョンの限定をやめます。
Visio5,2000など、どれでも構いません。
よろしくお願いします。
- 04: 名前：まちゃ！ 投稿日：2000/12/19(火) 11:20
- 過去ログに近いことが書いてあるのを発見しました。
し・か・し・・・・
Shape.Master.Delete も使えませんでした。
指定方法が悪いのかもしれません。
Dim visApp As Object
Dim visActWin As Object
Set visApp = GetObject(, "Visio.Application")
Set visActWin = visApp.ActiveWindow
visActWin.SelectAll
この状態のとき、
Shape はどこから採ればいいのでしょうか？
ActiveDocument から Shape を採ろうとすると、
(visApp.Activedocument.Shapes.Master.Delete)
「オブジェクトはこのプロパティ・メソッドをサポートしていない」エラー
になりました。 (T_T)
マイクロソフトのニュースに行っても、有効な書き込みがないですし。
ここの方がとっても詳しい！！
やはり、Visio4 では無理があるのかな？
- 05: 名前：かど 投稿日：2000/12/19(火) 11:36
- かどです。
>Set visApp = GetObject(, "Visio.Application")
>Set visActWin = visApp.ActiveWindow
>visActWin.SelectAll
>
>この状態のとき、
>Shape はどこから採ればいいのでしょうか？
visActWin.Selection ではだめでしょうか？
ヘルプには Visio2.0からと記述してあるのでOKだと思います。
また、AlertResponse プロパティは Visio4.1 となっています。
使用方法は、
ar = Application.AlertResponse
Application.AlertResponse = 1
<<削除処理>>
Application.AlertResponse = ar
てな具合でしょうか？
当方に Visio4がないので検証していませんので、その辺はご容赦を。
- 06: 名前：まちゃ！ 投稿日：2000/12/19(火) 13:23
- かど さん、どうもありがとうございます。
折角ですが、visActWin.Selection ではダメでした。
Selectall した直後、Msgbox visActWin.Selection.Count は使えるのですが、
どうも Shape を認識しないようです。
Shapes.Count 等やってみましたが、ことごとく前述のエラーになりました。
他のバージョンでは Shape はどのように使っているのでしょうか？
あと、AlertResponse は諦めます。 (T_T)
- 07: 名前：かど 投稿日：2000/12/19(火) 13:55
- かどです。
>折角ですが、visActWin.Selection ではダメでした。
>Selectall した直後、Msgbox visActWin.Selection.Count は使えるのですが、
>どうも Shape を認識しないようです。
>Shapes.Count 等やってみましたが、ことごとく前述のエラーになりました。
Selectionオブジェクトに Item プロパティがありませんか？
これがいわゆる Shapes のかわりです。
Dim a As Visio.Shape
Set a = ActiveWindow.Selection.Item(1)
- 08: 名前：まちゃ！ 投稿日：2000/12/22(金) 14:19
- かど さん、遅くなりました。 m(__)m
Item(1) は使えるようですが、それ以降のプロパティが取得できません。
Count は使えましたが。
肝心の Master.Delete は使えませんでした。
ひょっとして、Masterプロパティそのものがないのかもしれません。
＞Selectionオブジェクトに Item プロパティがありませんか？
Visio4J には VBA が付いてこないので、他のソフト（この場合、Excel）の VBA から
Getobject(,"Visio.Application") で使っています。
ですから、ピリオドを打ったら次のプロパティやメソッドが出てくることがないため、
かなり行き当たりばったりの試行錯誤の繰り返しをしております。
「座標を知りたい」のスレッドにもあるように、お試し版みたいなので、
マイクロソフトにも聞けないし・・・・・ (T_T)
もう少し考えてみます。
（でも、そろそろ年末休みになっちゃうから、年越してから考えようかな？）
■トップに戻る リロード 単独スレ表示
|