アジェンダ Visio 2007 を利したデータの可視化活例 Visio 2007 データ接続オートメーションデータの可視化 3ステップ

Size: px

Start display at page:

Download "アジェンダ Visio 2007 を利したデータの可視化活例 Visio 2007 データ接続オートメーションデータの可視化 3ステップ"

ふさこふじた
5 years ago
Views:

1 VISIO ユーザー会第 1 回セミナー VISIO 2007 VBA を利したデータの可視化マイクロソフトディベロップメント株式会社オフィスグローバリゼーション開発統括部プログラムマネージャ岸真マイクロソフト株式会社 Visioグループテクノロジースペシャリスト村佳代

2 アジェンダ Visio 2007 を利したデータの可視化活例 Visio 2007 データ接続オートメーションデータの可視化 3ステップ

3 Visio 2007 データの可視化を実現するビジネスダイアグラム作成ツールとして進化複雑な情報の理解を深めるための情報の可視化傾向や問題を特定し動を取るための情報の把握分析幅広いユーザーと共有できる図を使した情報の伝達

4 Visio 2007 を利したデータの可視化活例 Visio 図連携データ先業務フロー図業務内容進捗情報担当者リストコスト情報病棟レイアウト図病床管理患者管理ネットワーク図機器情報設定情報リース情報座席表社員リスト電話番号メールアドレスフロア図資産情報什器

5 Visio 2007 データ接続オートメーションデータソースと連動するソリューション開発のための API Data Import / Data Refresh API 図に OLEDB/ODBC/XML データをインポート更新 Data Linking API インポートしたデータと図形をリンク Data Graphics API リンクした図形でデータをグラフィック表

6 サンプルアプリケーションの作成 IT 資産情報の可視化ネットワーク上のサーバーの状態を可視化し現状の把握分析をする簡易アプリケーションを VBA で開発します IP アドレス稼働状況管理者ハードウェア情報ソフトウェア情報

7 データ接続の流れ DataRecordset と図形データフィールドをリンク Shape データグラフィックを適して図形データを可視化 DataGraphic GraphicItem GraphicItem GraphicItem

8 データ接続の流れ更新

9 ステップ 1 データのインポート更新オブジェクトとコンセプトインポートの法と接続のモデル更新と同期

10 オブジェクトとコンセプト Data Connection Visio からデータベースへの接続を抽象化 Data Recordset Visio 上のデータストアやデータベースとの同期アクセス法を管理 Data Column データ形式やデータ型の変換機能

11 データのインポート接続モデル接続する場合接続しない場合 DataRecordsets.Add( string connectionstring, string commandstring, integer recordsetoptions, string friendlyname) DataRecordsets.AddFromXML( string adoxmlfragment, integer recordsetoptions, string friendlyname)

12 DataRecordsets.Add 外部データと Visio 図を接続しインポート DataRecordsets.Add( string connectionstring, 接続字列 string commandstring, コマンド字列 integer recordsetoptions, オプション string friendlyname) 任意の表名

13 Excel との接続 'Excel 接続 ' 接続字列コマンド字列 DataRecordset オブジェクトを宣 Dim strconnection_excel As String Dim strcommand_excel As String Dim vsodatarecordset_excel As Visio.DataRecordset ' 接続字列ローカルドライブにあるファイルに接続 strconnection_excel = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" _ & "C: MSDN ASTMGT.XLS;" _ & "Extended Properties=Excel 8.0;" ' コマンド字列枚めのシート内のデータをすべて取得 strcommand_excel = "SELECT * FROM [Sheet1$]" 'DataRecordset オブジェクトを作成 Set vsodatarecordset_excel = ActiveDocument.DataRecordsets.Add(strConnection_Excel, strcommand_excel, 0, " ネットワーク機器 ")

14 Access との接続 'Access 接続 ' 接続字列コマンド字列 DataRecordset オブジェクトを宣 Dim strconnection_access As String Dim strcommand_access As String Dim vsodatarecordset_access As Visio.DataRecordset ' 接続字列ローカルドライブにあるファイルに接続パスワード等の設定は割愛 strconnection_access = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" _ & "C: MSDN network_status.mdb;" _ & "Persist Security Info=False; ' コマンド字列 [ ネットワーク状態 ] テーブル内のデータをすべて取得 strcommand_access = "SELECT * FROM ネットワーク状態 " 'DataRecordset オブジェクトを作成 Set vsodatarecordset_access = ActiveDocument.DataRecordsets.Add(strConnection_Access, strcommand_access, 0, " ネットワーク状態 ")

15 ステップ 2 データのリンク更新オブジェクトとコンセプトリンクの法

16 オブジェクトとコンセプト 1 リンク = 1 RowID 1 ShapeID RowID

17 リンクの法リンク図形の作成法 : Page.DropLinked (1 1 図形 ) Page.DropManyLinkedU (n n 図形 ) 既存図形へのリンク法 : Shape.LinkToData (1 1 図形 ) Selection.LinkToData (1 n 図形 ) Page.LinkShapesToDataRows (n n 図形 )

18 DropLinked 図上にデータとリンクした図形をドロップ ( 作成 ) Page.DropLinked ( [Unknown] ObjectToDrop, double x, double y, Long DataRecordsetID, Visio オブジェクト x 座標 y 座標 DataRecordSet の ID Long DataRowID, データの ID Booloean ApplyDataGraphicAfterLink) オプション

19 Excel データとリンクした図形を作成 'Visio 図形オブジェクト x 座標 y 座標データ ID 格納変数等を宣 Dim vsoshape As Visio.Shape Dim dblx As Double Dim dbly As Double Dim lngdatarowid As Long Dim i As Integer Dim vsomaster As Visio.Master ' サーバー図形のったステンシルを開く Set vsomaster = Visio.Documents.OpenEx("SERVER_M.vss", 4).ItemU("Server") '1 から 10 までのデータを図形にリンクして図にドロップ For i = 1 To 10 dblx = dblx + 20 dbly = dbly + 15 lngrowid = i Set vsoshape = ActivePage.DropLinked(vsoMaster, _ dblx, _ dbly, _ vsodatarecordset_excel.id, _ lngrowid, _ False) Next i

AutomaticLink の値と図形のプロパティを較判断してと図形を動的にリンク

20 AutomaticLink の値と図形のプロパティを較判断してと図形を動的にリンク Selection.AutomaticLink( (in) integer RecordsetID, (in) safe-array columnnames, (in) safe-array fieldtypes, (in) safe-array fieldnames, (in) bool BreakExistingLinks, (out) safe-array ShapeIDs) DataRecordSet の ID DataRecordset の列名図形側のフィールド図形側のフィールド名オプションリンクされた図形 ID 格納

= " ネットワーク名 " ' 図形側は任意の図形データ fieldtypes(0) = Visio.VisAutoLinkFieldTypes.

21 Access データを動リンク ' 図形の選択オブジェクト DataRecordset の列名図形側のフィールドとフィールド名リンクした図形を格納する配列を宣 Dim vsoselection As Visio.Selection Dim columnnames(1) As String Dim fieldtypes(1) As Long Dim fieldnames(1) As String Dim shapeslinked() As Long 'Access 側 (DataRecordset) の列名は [ ネットワーク名 ] columnnames(0) = " ネットワーク名 " ' 図形側は任意の図形データ fieldtypes(0) = Visio.VisAutoLinkFieldTypes.visAutoLinkCustPropsLabel ' 図形データのフィールド名は [ ネットワーク名 ] fieldnames(0) = " ネットワーク名 " ' 図上の図形をすべて選択してオブジェクトに格納 ActiveWindow.DeselectAll ActiveWindow.SelectAll Set vsoselection = ActiveWindow.Selection ʻ 動リンク実データグラフィックと連動しないようにオプションは 4 vsoselection.automaticlink vsodatarecordset_access.id, _ columnnames, _ fieldtypes, _ fieldnames, _ 4, _ shapeslinked

22 ステップ 3 データの表更新オブジェクトとコンセプトデータグラフィックの作成と適

23 オブジェクトとコンセプト GraphicItem 図形 DataGraphic Master データのインポートデータのリンクデータの表示

24 オブジェクトとコンセプト DataGraphic Master GraphicItems コレクションのコンテナ GraphicItem 図形に追加された各データグラフィックオブジェクトデータのインポートデータのリンクデータの表示

25 データグラフィックの作成データグラフィックの作成は UI またはプログラムの両で可能法 1 Visio UI で : その 1: データグラフィックの設定画で作成本はこちらその 2: データグラフィックマスタをシェイプシートで定義法 2 プログラムで : DataGraphic Master オブジェクトを作成 GraphicItem プロパティを定義データのインポートデータのリンクデータの表示

26 データグラフィックの適 ' 図上の図形をすべて選択してオブジェクトの格納 Dim vsoselection As Visio.Selection ActiveWindow.SelectAll Set vsoselection = ActiveWindow.Selection ' 選択オブジェクトにデータグラフィックマスタを適 vsoselection.datagraphic = ActiveDocument.Masters(" トポロジ 1")

27 データの更新 3 種類の基本的な更新法 refresh メソッド : DataRecordset.Refresh() DataRecordset.RefreshFromXML() 更新間隔を指定 : UI で : DataRecordset.RefreshInterval を設定 [ 更新 ] ボタン更新設定画各更新内容はログからアクセス可能 : DataRecordsetChanged: イベント DataRecordsetChangedEvent: オブジェクト

28 データの更新 'Excel との同期を今すぐ実 Visio.ActiveDocument.DataRecordsets(1).Refresh 'Access との同期は 20 分ごと Visio.ActiveDocument.DataRecordsets(2).RefreshInterval = 20 今すぐ更新 20 分毎に更新

29 データ接続の流れ DataRecordset と図形データフィールドをリンク Shape データグラフィックを適して図形データを可視化 DataGraphic GraphicItem GraphicItem GraphicItem

技術情報リソース -1- ダウンロード Visio 2007 SDK Visio 習書 http://www.microsoft.com/japan/office/2007/visio/trainingtext.mspx TechNet Visio 技術情報 http://www.microsoft.com/japan/technet/prodtechnol/visio/default.

30 技術情報リソース -1- ダウンロード Visio 2007 SDK Visio 習書 TechNet Visio 技術情報オンラインリソース MSDN Visio 技術資料 Visio ブログ Visio Tool box

31 技術情報リソース -2- その他 Visio.jp 書籍 Visio 2003 デベロッパーズバイブル

32 Visio 2007 製品体系機能データリンクデータグラフィック機能ピボットダイアグラム機能新しいテンプレート (ITIL 図バリューストリームマップ ) テンプレートのサンプル表 Standard の機能全て主な途専的な作図システム管理業務フロー仕様書レイアウト図などデータと連携をした作図データと図の元管理情報の可視化と分析機能新した作業の開始画オートコネクト機能テーマ機能隠し情報の削除 Web や PDF, XPS 形式での共有主な途図を含んだ書作成企画書提案書組織図など

2007 Microsoft Corporation. All rights reserved.

33 2007 Microsoft Corporation. All rights reserved. Microsoft, Windows, Windows Vista and other product names are or may be registered trademarks and/or trademarks in the U.S. and/or other countries. The information herein is for informational purposes only and represents the current view of Microsoft Corporation as of the date of this presentation. Because Microsoft must respond to changing market conditions, it should not be interpreted to be a commitment on the part of Microsoft, and Microsoft cannot guarantee the accuracy of any information provided after the date of this presentation. MICROSOFT MAKES NO WARRANTIES, EXPRESS, IMPLIED OR STATUTORY, AS TO THE INFORMATION IN THIS PRESENTATION.

MSCD Slide Template

MSCD Slide Template セッション ID:T3-2 企業における Windows PC の電力設定展開方法日本マイクロソフト株式会社コンサルティングサービス統括本部シニアコンサルタント河野隆志アジェンダ 5 月 10 日公開 Windows PC 節電策 Windows PC の電力設定展開方法前提条件想定シナリオ展開方法まとめ 5 月 10 日公開 Windows PC 節電策理解する Windows PC

アジェンダ Visio 2007 を利 した データの可視化 活 例 Visio 2007 データ接続オートメーション データの可視化 3ステップ

アジェンダ Visio 2007 を利したデータの可視化活例 Visio 2007 データ接続オートメーションデータの可視化 3ステップ