541： ＶＢ５よりＶｉｓｉｏを起動して内容修正したい。 　全レス ■ ▼ ▲ 01: 名前：長谷川投稿日：2001/10/18(木) 23:27 vijioで作成したドキュメントがたくさん　あり下部にＷＯＲＤ文章のような フッタをつけているのですが　更新日付を毎回いれるのは大変不便です。 ＶＢ５で画面を作成して　ＷＯＲＤ，ＥＸＣＥＬの文章変換はできるのですが おなじ　ＶＢをもつ　ＶＩＳＩＯの文章も変更したいのですが　どなたか教えてもらえませんか？ 変更文章は　背面ー１に作成していますが　ＩＤなどばらばらです。 ステンシル？の位置より更新対象をみつけて　中の文章を変更および 大きさと位置も統一したいのです。 まず　開くことすらできてません　初心者なので申し訳ありません。 よろしく　お願いします。 02: 名前：りょう投稿日：2001/10/19(金) 10:19 Visio2000まではDVSフォルダの中にVBでのソリューションサンプル集や有益なサブルーチン集があります。 ちなみにVBでVisioを起動するには、 　Set g_appVisio = CreateObject("visio.application") です。 更新日付は、今日の日付というシェイプがどこかのステンシルに入っていると思うので ソレを利用しては如何でしょうか？ 03: 名前：長谷川投稿日：2001/10/20(土) 01:53 早々ありがとうございます。一度見てみます。 それと　書き方が悪かったんでしょうね。すいません Ｖｉｓｉｏが開けないというのは 文章が開けないの意味で書いたつもりです。 04: 名前：りょう投稿日：2001/10/22(月) 09:31 Visio添付のサンプルプログラムは有益で、2002でも使えるので見て損は無いです。 がんばってください。 05: 名前：長谷川投稿日：2001/11/03(土) 10:19 やっと　ありがとうございました。 やっと図形にたどり着きました。 あとは座標位置の取り込み、サイズ変更でなやんでいます。 ■トップに戻る　リロード 　単独スレ表示

542： VBから使用ステンシル一覧を取得する方法 　全レス ■ ▼ ▲ 01: 名前：Tetsu投稿日：2001/10/18(木) 00:14 初めまして。早速質問させていただきます 現在VISIOファイルに指定されたステンシルが存在するか 確認する作業をしています。 最近VISIOがVBから操作できると知り 一度に複数のファイル内で使用されているステンシルを知ることが出来ないか かと悩んでおります． エクスプローラー上でVISIOファイルのプロパティをみると 「内容」というタブに ステンシル一覧が表示されているので これをどうにかVBから読み取りたいのですが どなたか教えて下さい． 02: 名前：yoda投稿日：2001/10/18(木) 02:56 Foe Each分を使えばよいと思います。 たとえば、．．． Dim dumshape As Visio.Shape For Each dumshape In ActivePage.Shapes If TextBox1.Text = dumshape.Name Then MsgBox "Name " & TextBox1.Text & " is already exists." Exit Sub End If Next 03: 名前：yoda投稿日：2001/10/18(木) 05:46 失礼しました。シェイプではなくステンシルでしたね。 04: 名前：yoda投稿日：2001/10/18(木) 13:35 Dim mydocs As Documents ステンシル一覧は、次のようにすると、 図面、ステンシル、の順にイメディエットウインドウ に出力されます。 　　Dim mydoc As Document Set mydocs = Visio.Documents For Each mydoc In mydocs Debug.Print mydoc.Name Next ■トップに戻る　リロード 　単独スレ表示

543： textBoxへの書き込み時間 　全レス ■ ▼ ▲ 01: 名前：NK投稿日：2001/10/11(木) 17:50 NKと申します。 ある処理結果をテキストボックスに200行の文字列を代入したところ、 全体で13秒掛かりました。timer関数でテキストボックスに書き込む 時間を測定すると、そのうち約10秒掛かっています。 現在は以下のコーディングをしているのですが、テキストの後ろに 文字列を追加する等、いい方法は有りませんか？ textBox.text = textBox.text & "文字列" 02: 名前：名無しさん投稿日：2001/10/17(水) 17:17 試しにtextstring というストリング変数に１０００文字ほど入れてから shpObj.Text = textstring を実行したら瞬時に終わりましたが・・・ ■トップに戻る　リロード 　単独スレ表示

544： 他のプロジェクトのプロシージャを呼び出す方法 　全レス ■ ▼ ▲ 01: 名前：名無しさん投稿日：2001/10/01(月) 15:04 "AAA.vsd"の Module1にあるプロシージャから "BBB.vss"の Module2にあるプロシージャ"Public Sub CCC"を 呼び出すにはどういう記述にしたらいいのでしょうか？ 試しに [BBB.vss].[Module2].CCC とやってみましたがダメでした。 ご存じの方がいらっしゃいましたらご教示ください。 02: 名前：井内投稿日：2001/10/10(水) 16:52 まず、AAA,vsdからBBB.vssを参照設定しておき、このときModule1で BBB.Module2.CCC（またはBBB.CCC） とすれば、呼び出せるようです。試してみてください。 03: 名前：名無しさん投稿日：2001/10/12(金) 17:26 井内さんありがとうございました。 参照設定してみたところうまくいきました。 これを参照設定せずに動的にするのは やはり無理なんでしょうか。 ■トップに戻る　リロード 　単独スレ表示

545： ネスとしたイベント関数の抜け方 　全レス ■ ▼ ▲ 01: 名前：NK投稿日：2001/10/01(月) 15:50 こんにちは、NKと申します。 イベント関数からサブ関数へネストしたところで、上位関数に戻らずに 一気にイベント処理を抜ける方法はあるのでしょうか？ どなたか御教授願います。 ■トップに戻る　リロード 　単独スレ表示

546： VBProjects,VBProjectのメソッドやプロパティ 　全レス ■ ▼ ▲ 01: 名前：yoda投稿日：2001/09/22(土) 17:23 VBProjects,VBProjectのメソッドやプロパティを調べる方法 をご存知の方がいらっしゃいましたら、教えていただけませんか？ ■トップに戻る　リロード 　単独スレ表示

547： ActiveDocumentを設定する方法 　全レス ■ ▼ ▲ 01: 名前：A-W投稿日：2001/09/18(火) 16:43 VBからVisioを制御しているのですが、ステンシルとドキュメントを別々に開いて、 ボタンをクリックしたときに ドキュメントに配置されたシェイプを全てクリップボードにコピーする処理を行ってます。 おおむね出来たのですが選択からクリップボードへコピーまでの流れをActiveWindow.Selection.Copyを使って、 行っているためボタンをクリックしたときにステンシルがアクティブだとうまく動かないのです。 そこで教えていただきたいのですが、特定のドキュメントをアクティブにする方法か、 特定のドキュメントのシェイプに対してSelectを行う方法はないでしょうか？ 本当は他にいい手があるのかもしれませんが一から見直す時間がなく、 なんとかアクティブなドキュメントを切り替える方法で切り抜けたいと思っています。 変な質問になっているかもしれませんがぜひご助言ください。。。 ■トップに戻る　リロード 　単独スレ表示

548： 線の頂点の数を変更（増やす）する 　全レス ■ ▼ ▲ 01: 名前：VisioMania投稿日：2001/08/22(水) 11:19 お世話になります。 環境：Windows2000 Professional,Visio2000 standard SR1 ※質問内容 どなたか線の頂点の数をVBのプログラムで変更する方法をご存知ですか？ （言いかえると、複数の頂点＜折れ曲がり＞の位置を全て定義して線 を引くことができるか？） ※経緯 現在、ある別システムで作ったフローと全く同じ形状をVisioに移行する システムを製作しているのですが線を引いただけでは別システムと 同じ線の形状になりません。ですから線を引いた後に頂点の数を変更 しないといけなくなりました。 ※Visioのスペックについて 皆様ご存知とは思いますが、線（コネクタ）の頂点はシェイプシートの 図形座標セクションで定義されていて、始点がMoveTo行で、以後の 直線の終点ごとにLineTo行で定義されています。手動で頂点の数を 変更するには、線の両頂点につながった２次元シェイプの位置を移動 させたり、線の途中をドラッグすればできます。このときにシェイプシート ではLineTo行が自動で増減します。 ※コーディングについて ですから普通に考えると LineTo行をVBを使って追加削除すれば頂点の数を変更できると思う のですがうまくいきません。他のセクション、行と同じ方法でコーディング しているのですが。。 02: 名前：中投稿日：2001/08/29(水) 18:59 私も過去(Visio5+の時)に同じようなことで、 詰まってしまったことがありました。 その時は、普通の直線では行の追加削除が出来るのに、 コネクタツールで作成した線では行の追加が出来ない現象でした。 （削除は出来ましたが...) Visio5+で解決した方法なので、 VisioManiaさんの問題が解決出来るかわかりませんが、 私は以下の方法で解決出来ました。 �@現在の[図形座標]セクションの情報を全て取得する �A[図形座標]セクション内の行を全て削除する �B再び新規に行を追加する �Cセルに値をコピーする ポイントは、行を全て追加した後で、値をコピーするところでした。 ■トップに戻る　リロード 　単独スレ表示

549： データベースのプロパティ 　全レス ■ ▼ ▲ 01: 名前：UTKE投稿日：2001/08/22(水) 15:45 1.「エンティティ」シェイプから、「データベースのプロパティ」ダイアログを開く。 2.「カラム」タブを選択、カラムに対して「編集」をクリック 3.「注」タブのテキストを「定義」タブの「概念名」にコピー 4.2に戻り、次のカラムを編集。→最後のカラムまで繰り返す といった操作を、VBAから実行したいのですが、オブジェクトの辿り方が分かりません。 VISIO2000にはマクロの自動保存のような機能はないのでしょうか？ 「エンティティ」シェイプまではたどり着けるのですが、そのコンテキストメニューより 表示される「データベースのプロパティ」ダイアログの参照方法だけでも分かれば助かります。 環境はVISIO2000です。 ご存知の方が居られましたら、ご教授の程、よろしくお願い致します。 ■トップに戻る　リロード 　単独スレ表示

550： UMLShapeのデータを取得したい 　全レス ■ ▼ ▲ 01: 名前：いとう投稿日：2001/08/21(火) 21:56 はじめまして。 VisioのUMLステンシルを用いて作ったクラス図を開いて、そのデータを取得する ようなプログラムを作成しています。 PageからShapesを、ShapesからクラスのShapeを、ShapeからCellまでは取得 できました。 しかし、Shapeの中のCellはループをまわしてチェックしたのですが、Cellの中 にそれらしい値が入ってません。(クラスの名前とか) 取得できた方いらっしゃいましたら方法をご教授ください。 ■トップに戻る　リロード 　単独スレ表示

ログ検索 　リロード 　▲前のページ　 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 次のページ▼ 　総てのスレッド 　スレッド総数 696中 541 - 550 を表示