KoMaDo   VISIO SQUARE : VB/VBA  ■ Headline ■ HOME    

 KoMaDo / Headline / category :  【VISIO全般】  【News/宣伝】  【図形・操作】  【ファイル変換】  【ShapeSheet】  【VB/VBA】  【雑談その他】 ;

651 :複数選択 (03)  652 :置き換え (04)  653 :エンティティ関連図マスタシェイプのVB上からの使用方法 (01)  654 :テキストの表示 (02)  655 :Visio4.0 (04)  656 :ページの制御 (02)  657 :レイヤーの制御について (01)  658 :VSLについて (03)  659 :マクロの初心者の悩み (03)  660 :VisioのシェイプをVBで作成したフォームにD&Dするには? (01)  661 :印刷機能について (02)  662 :ポップアップメニューについて (05)  663 :シェイプ名称 (02)  664 :曲線を線分で表現するには (02)  665 :カスタムツールバーに (02)  666 :shapeオブジェクトのフォントサイズ変更 (03)  667 :座標の判定 (01)  668 :全Sectionの全Rowの全Cellを取得 (07)  669 :レイヤに属するシェイプ (03)  670 :STRSAMEEX関数について (03)  671 :VBAとVBのちがい (03)  672 :SelectionChangedイベントの取得について (02)  673 :カスタムメニュー (03)  674 :VC++によるカスタムプロパティへの値の設定方法 (07)  675 :StatusBar への表示 (02)  676 :GlueToメソッドの利用方法 (05)  677 :画面からのデータの取得 (07)  678 :右ショートカットメニューのカスタマイズ (05)  679 :PRINTがうまくいきません。 (03)  680 :ステンシル内のマスタシェイプ名を取得する方法? (03)  681 :VBのフォームにステンシルのシェイプを表示できる? (03)  682 :VBAのWindow表示について (02)  683 :VC++から作図したい (04)  684 :ユーザーインターフェースのカスタマイズ (06)  685 :VBのコントロールのライセンス (03)  686 :VisioWindowでのフォームの表示について (07)  687 :テンプレートとファイル (03)  688 :VSL の配布ってどうするんですか? (03)  689 :ユーザーインターフェースについて (08)  690 :図形と図形の接続について (07) 
ログ検索  リロード  前のページ  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 次のページ  総てのスレッド  スレッド総数 696651 - 660 を表示


651: 複数選択  全レス

01: 名前:shim 投稿日:2000/08/28(月) 14:12
度々すいませんshimです。

図面上の選択されているシェイプに番号を振る動作をフォームのボタンで行っています。
選択されているシェイプが一つのときは、問題ないのですが、マウスドラッグで複数同時に
選択された場合、緑色の枠が出るシェイプにしか番号を与えられないのが現状です。
他の青い枠の出るシェイプにも何らかの方法で一度のボタン動作で
同時に番号を与えられないでしょうか?
なにかヒント、もしくはこれに近い動作を実現する方法の解る方、
いらっしゃいましたら宜しくお願いします。

※ちなみに番号は連番になるようにしたいです。

02: 名前:JunPapa 投稿日:2000/08/28(月) 19:16
ActiveWindowのSelectionプロパティを使えば近いことができるのでは?

例)
Dim visSelection As Visio.Selection
Dim visShape As Visio.Shape

Set visSelection = ThisDocument.Application.ActiveWindow.Selection

For Each visShape In visSelection
処理
Next visShape

シェイプの位置に規則性があるのであれば、座標でソートすると連番が付けられそうですね。

03: 名前:shim投稿日:2000/08/28(月) 20:55
ありがとうございます。
おかげさまで、ある程度希望に添った動作が実現しました(^^)

■トップに戻る リロード  単独スレ表示



652: 置き換え  全レス

01: 名前:shim投稿日:2000/08/22(火) 19:31
お世話になっております。shimです。

ここでダウンロードさせていただける。VisioToolBoxのシェイプ置き換えの機能で
図面に貼っているシェイプの置換が可能ということは解りました。
では、図面に貼っていないシェイプとの置き換えは可能でしょうか?
さらに、図面に貼ってないどころか、表示していないステンシルのシェイプとの置換も
可能でしょうか?知ってらっしゃる方居ましたら、宜しくご指導ください。

/////////////////////////////
他の質問についてレスくれた方々ありがとうございます。

02: 名前:再度質問を絞って投稿日:2000/08/24(木) 13:20
開いていない.vssファイルにあるシェイプを、
VBAで呼び出して作業中の図面に表示することは可能でしょうか?

解る方いらっしゃいましたら宜しくお願いします。

03: 名前:管理人投稿日:2000/08/25(金) 22:26
質問の意味が、
「シェイプ名を与えただけで該当するステンシルが開くか?」であればNOです。
予めどのシェイプがどのステンシルに入っているかプログラムで把握していなければなりません。
手順としては、
1.図面上の置き換えたいシェイプを選択
2.置き換えるシェイプ名を(ダイアログ等で)入力
3.置き換えるシェイプが搭載されているステンシルを開く
4.ステンシルから置き換えるシェイプをローカルにドロップ
後はVisioToolBoxのシェイプ置き換え機能でいけると思います。

04: 名前:shim 投稿日:2000/08/28(月) 10:01
やはり、ステンシル開かないと駄目ですか・・
解りました。レスありがとうございます。>管理人さん

■トップに戻る リロード  単独スレ表示



653: エンティティ関連図マスタシェイプのVB上からの使用方法  全レス

01: 名前:ほその 投稿日:2000/08/26(土) 11:14
 はじめまして。ほそのと申します。関東近辺でSEをやっています。
 先日から仕事でVisioを使い始めまして、情報収集がてら、ここを
 見つけました。皆様よろしくお願いします。

 早速ですが、Visio&VBAに関する質問があります。環境は以下の
 とおりです。
  ・WindowsNT Workstatioin 4.0
  ・Visio2000 & VisualBasic for Application 6.0

 仕事で、Visio2000の”エンティティ関連図”ステンシルを用いて
 ER図を作成してます。で、そのマスタシェイプを用いて作成した
 エンティティやリレーションシップに対して、VBAを用いて
 エンティティ内のカラム操作などを行おうとしたのですが、
 ここでつまずきました。

 図上のエンティティなどは、Visioの通常のShapeオブジェクトとしては
 当然有効に認識できるのですが、これだと、このマスタシェイプ特有の
 データ操作(カラムに対する操作など)を行うことができません。
 そこで、参照設定で、以下のライブラリファイルを指定しました。
  ・Visio 2000 Database Modeling Engine Type Library
 すると、オブジェクトブラウザに "MODELENGLib"ライブラリが
 表示され、それらしいクラス(IVMEEntityなど)が表示されるのですが、
 これらの、VBのスクリプト上における使用方法がわからないのです。
 Shapeオブジェクトとして今現在認識できているものを、IVMEEntity
 オブジェクトとして認識したいのです。そうすれば、IVMEEntityクラス
 のメソッド等が使える、と考えてます。
  ・一旦Variantに代入する
  ・OLEObject.Objectとして代入する
  ・UniqueIDのようなもの(?)を経由して代入する
 などやってみたのですが、うまくいきません。IVMEEntity型の変数は
 定義できるのですが、初期値はNothing。なので、代入元としてふさわしく
 ないとして、
  ・実行時エラー91:"オブジェクト変数またはWithブロック変数が
   設定されていません。"
 がでます。ならば、CreateObjectしようとしても、
  ・実行時エラー429:"ActiveXコンポーネントはオブジェクトを
   作成できません。"
 がでてしまいます。

 VBについては独学してきただけなので、VBやVisioの本、DVS.pdfや
 ここの過去ログも見てみたのですが、いまいち調査対象を絞り込むことが
 できないのです。おそらく同様のステンシルに共通したことだと思いますので、
 似たようなことをやったことがある方がいましたら、方法を
 ご教授願えませんでしょうか?

■トップに戻る リロード  単独スレ表示



654: テキストの表示  全レス

01: 名前:naka2000 投稿日:2000/08/18(金) 18:33
はじめまして。今回ご質問したいのは「VISIO2000 TechnicalEdition」のVBAを使って、
テキストだけを表示する方法を知りたいのです。何かいい方法があったら教えてください。
よろしくお願いします。

02: 名前:かど投稿日:2000/08/21(月) 16:18
かどです。

>はじめまして。今回ご質問したいのは「VISIO2000 TechnicalEdition」のVBAを使って、
>テキストだけを表示する方法を知りたいのです。何かいい方法があったら教えてください。

雑記掲示板の方にも投稿していますが、Visioのテキストツールって四角形ツールの
・枠なし
・塗りつぶしなし
・図形座標セクションなし
と同じみたいです。

だから、DrawRectangle() したあと、そのシェイプに対し、
・LinePattern = 0
・FillPattern = 0
・DeleteSection(VisSectionFirstComponent)
を実行すれば OK だと思います。

■トップに戻る リロード  単独スレ表示



655: Visio4.0  全レス

01: 名前:Licca 投稿日:2000/08/10(木) 16:27
こんにちは〜
Visio4.0ってVBA付いていないですよね?
カスタマイズってどうやってやったら良いんですか?(@@

02: 名前:Licca 投稿日:2000/08/11(金) 14:15
初めて手にしたのがVisio2000なので随分勝手が違うように感じました。
とりあえずVBでマクロを作ってみようと思ったのですがVisio2000、5.0、4.1を混在させるとDLLなどの参照設定がうまくいかない印象を受けます。
やっぱり同じパソコンに3つのバージョンを混在させることは出来ないのでしょうか?

03: 名前:こうち投稿日:2000/08/11(金) 16:37
>Visio2000、5.0、4.1を混在させるとDLLなどの参照設定がうまくいかない印象を受けます。
>やっぱり同じパソコンに3つのバージョンを混在させることは出来ないのでしょうか?

私はそれぞれ別々のフォルダにインストールしていますが
2000と5.0では全然不具合はありません。
4.0はたまにしか使わないのですが、こちらも特にまずいと思ったことはないですね。

04: 名前:管理人投稿日:2000/08/11(金) 16:48
私の場合は・・・
Visio2000、Visio5シリーズ、Visio4.1の順番でフォルダを分けて入れました。
4,5,2000の順番で同じフォルダに入れるとどのバージョンのステンシルか見当がつかなくなるので・・・

#もちろん全部のバージョン、各シリーズとも問題なく動いてました。
#今は訳があってVisio5のみ(;_;)

■トップに戻る リロード  単独スレ表示



656: ページの制御  全レス

01: 名前:VisioMania投稿日:2000/07/24(月) 10:12
WIN98,VISIO2000

図面ファイル内でページの挿入、削除、並べ替えができますが、これらの処理をVBAで発生
させる(ページ挿入時には名前しか入力させたくないのでフォームを作って入力させ、
ダイアログボックスを表示させずにページ挿入をする、など)ことは可能でしょうか?
ご存知の方いらっしゃいましたらご教示ください。

02: 名前:管理人投稿日:2000/08/07(月) 18:07
記憶の範囲ではVISIO5のVBAにページ並びを変更するような命令はなかったはず・・・
VISIO2000にもページ並びを直接変更できるような命令はなかったような・・・

お役に立てずにすみません。

■トップに戻る リロード  単独スレ表示



657: レイヤーの制御について  全レス

01: 名前:VisioMania投稿日:2000/08/05(土) 10:17
環境:Windows95、Visio2000standard

遅くなりましたが、Liccaさん先日はアドバイスありがとうございました。
さて、皆様ご存知でしたら教えて下さい。
レイヤーの制御についてです。下記のような仕様のシステムを考えています。

・新規ページ作成ごとにマクロで各ページ共通のレイヤーを追加する。
・ステンシルのマスタシェイプはレイヤーに属していない。
・マスタシェイプを配置するたびにマスターの種類により各レイヤーに所属させる。

マクロを作ってみたところ、レイヤーの追加はでき、マクロでレイヤーの表示の値などを
1や0に切り替えた結果もシェイプシートに反映されたのですが、図面での動きが変なのです。
非表示にしても表示されたままで、一つのレイヤを非アクティブにしたら他のレイヤーも
非アクティブにされてしまい、マスタシェイプを配置できなくなるのです。
同じような事象をみたことがある方いらっしゃいますか?マスタシェイプに標準の図形
(フローチャートレイヤに割り当てられている)を使えば正常に動くのですが。

■トップに戻る リロード  単独スレ表示



658: VSLについて  全レス

01: 名前:万苦 投稿日:2000/07/25(火) 11:29
1年ぶりの投稿になります。
当時は bankoo でした。← 漢字になりました。

現在、Visio2000 Standard を使用しています。本当は Professional を使用して UML
図を書きたいのですが、お金がないのと、(試用版を使った限りでは)用意されている
UML のモデリング機能に不満があるため、自作シェイプと VBA で CASE ツールもどきを
作成して使っています。現在では簡単な C++ ソースコードの生成も可能になりました。

ところが、です。重くて仕方がありません。また、VBA の言語としてのスペックにも限界
を感じてきました。速度的にも、言語仕様的にも。VBA 6.0 になって簡単なインタフェイス
のサポートも実現されたため、まぁまぁ使えるのですが、でもだめです。そこで、VSLへの
移植をするのじゃ! と一念発起してみたのですが、何せ情報不足で困っています。ここの
過去ログを一通り読んでみたのですが、VSL 関連の話題はなかったように思います。どなた
か VSL の作成経験のある方はいらっしゃいませんか?

02: 名前:万苦 投稿日:2000/07/25(火) 19:02
自己レスです。

98で名無しさんがVSLの話題を出してらっしゃいますね。
申し訳ありません。読んだのは過去ログだけでした。

「Developing Visio Solutions」を現在(というか以前から)読んでいるのですが、
ある程度手のこんだ開発(モードレスウィンドウとか)の指針が少なく困っております。

VC++ での VSL 作成の経験のある方、話相手になって下さい。
よろしくお願いします。

03: 名前:みや 投稿日:2000/08/04(金) 09:44
もしかして、私のことかもしれません。
私の理解の範囲ないでしたら、お話相手になります。

■トップに戻る リロード  単独スレ表示



659: マクロの初心者の悩み  全レス

01: 名前:JCT 投稿日:2000/08/01(火) 15:21
お世話になります

こんなに便利なHPがあるとは!と驚いております。

私、Visio初心者なのですが、今マクロの使い方を調べておりまして、
壁にぶちあったってしまっています。

内容として
1)とあるステンシルのシェイプをマクロでどのように貼り付けるか

2)作成図面の印刷をマクロでどうやるのか

3)カスタムプロパティエディタでステンシルのシェイプに直接設定しても
  うまく利用できない

この3点で何かご存知の方、いらっしゃいましたら
教えていただけるとありがたいです。

環境はVisio2000です

02: 名前:JCT 投稿日:2000/08/02(水) 13:11
1について、試行錯誤で解決できました。
ありがとうございました

まだ2,3は試行錯誤中です。

03: 名前:JCT 投稿日:2001/08/02(水) 14:35
2について、過去ログを参照させていただき、解決できました。
ありがとうございました

■トップに戻る リロード  単独スレ表示



660: VisioのシェイプをVBで作成したフォームにD&Dするには?  全レス

01: 名前:Kgonn 投稿日:2000/07/20(木) 17:07
初めて投稿させていただきます.このような掲示板がありのに気づき,大変ありがたく思っております.
Visioのシェイプオブジェクトを,VBで作成した別アプリのテキストボックスなどにドラッグ&ドロップし,
そのときのそのシェイプの情報をVBのフォーム上に表示したいのですが...方法がよくわからず
困っています.ご存知のかた,教えていただければ幸いです.よろしくおねがいします.

■トップに戻る リロード  単独スレ表示


ログ検索  リロード  前のページ  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 次のページ  総てのスレッド  スレッド総数 696651 - 660 を表示