ゕジェンダ Visio ソリューションの例 Visio オブジェクトモデル VBA サンプルコード TIPS Visio 2007 新機能 Visio ソリューションの公開

Size: px

Start display at page:

Download "ゕジェンダ Visio ソリューションの例 Visio オブジェクトモデル VBA サンプルコード TIPS Visio 2007 新機能 Visio ソリューションの公開"

さみすみだ
6 years ago
Views:

1 第 69 回 MSDN オフラインセミナー VISIO 2007 VBA プログラミング入門マクロソフト株式会社 Visioグループテクノロジースペシャリスト木村佳代

2 ゕジェンダ Visio ソリューションの例 Visio オブジェクトモデル VBA サンプルコード TIPS Visio 2007 新機能 Visio ソリューションの公開

3 Visio ソリューションの開発 Visio ソリューションは実物をモデル化した図形 ( シェプ ) と図面に対して特定の制御を行なうプログラムの組み合わせ

4 Visio ソリューションの例 Microsoft Office Visio 内部統制文書化ツール 952A-4160-A DD765A3&displaylang=ja フォルダアクセス権マップ Web プレゼンス Microsoft Active Directory Topology Diagrammer (ADTD) SQL Server 2005 Data Mining Add-ins for Office system c3b-a99b-55b17f3c4c51&displaylang=ja

Microsoft Office Visio 2007 で実現コンプライアンス強化と業務効率化を実現内部統制の整備には

多くは複数の部署が関連する業務プロセスです業務プロセスの文書化は内部統制の整備作業でもっとも時間のかかるプロセスの１つとい

業務フローチャートを効率的に作成するための機能が大幅に強化されていますリスクやコントロールを可視化

重要度の高いリスクや実施頻度の高い統制などを強調表示することで的確な統制活動を実現作図補助自動化機能で作成時間を短縮

線の接続関係は維持されるので手作業で修正する必要もありませんコネクタ上に図形を配置するだけで自動的にコネクタが分割

内部統制文書化ツールで業務プロセスを文書化業務プロセスの文書化を効率的に行うための専用テンプレート Webサ

Excelで作成したRCMやプロセス情報からVisioの業務フロー図を生成 Visioで作成編集した業務フロー図からRCM

データをVisioへインポートリンク ExcelやSQL Serverなどのデータベースとドラッグゕンド

Visioからデータをエクスポート Excelに出力した RCMのメージ RCM 業務記述部門処理内容リスク

HTML Visio図面 XMLなどの形式で出力可能直感的な操作を実現する使い慣れたOffice準拠のンターフェ

5 Microsoft Office Visio 2007 で実現コンプライアンス強化と業務効率化を実現内部統制の整備には業務プロセスの可視化とプロセスに存在するリスクの可視化が必要となります企業には様々な業務プロセスが存在し多くは複数の部署が関連する業務プロセスです業務プロセスの文書化は内部統制の整備作業でもっとも時間のかかるプロセスの１つといわれておりこの作業を効率化することが内部統制の早期構築につながります Visio 2007 では業務フローチャートを効率的に作成するための機能が大幅に強化されていますリスクやコントロールを可視化図形に格納されたリスクやコントロールのデータを図形の横や上に表示したりデータバーやゕコンなどを使った視覚的な表現が可能重要度の高いリスクや実施頻度の高い統制などを強調表示することで的確な統制活動を実現作図補助自動化機能で作成時間を短縮図形同士の接続を自動化するオートコネクトはワンクリックで図形の均等配置とコネクタの接続を実現図形を移動しても線の接続関係は維持されるので手作業で修正する必要もありませんコネクタ上に図形を配置するだけで自動的にコネクタが分割再接続されます豊富に用意された作図を効率化するスマートシェプやテンプレートを利用して作図を効率化します内部統制文書化ツールで業務プロセスを文書化業務プロセスの文書化を効率的に行うための専用テンプレート Webサトから無料でダウンロードできますリスクコントロールを可視化する専用のシェプを用意 Excelで作成したRCMやプロセス情報からVisioの業務フロー図を生成 Visioで作成編集した業務フロー図からRCM 業務記述書を簡単に生成 Excelに加えた変更をVisio図面に簡単に反映ビジネスデータとVisio図面の統合が簡単にデータをVisioへインポートリンク ExcelやSQL Serverなどのデータベースとドラッグゕンドドロップする簡単にリンクし Visioの図形データに取り込みが可能フロー図ビジネスデータとVisio図面の統合が簡単に Visioからデータをエクスポート Excelに出力した RCMのメージ RCM 業務記述部門処理内容リスクコントロールなどをVisioの図形データに入力しレポートに出力すれば RCMや業務記述として出力可能レポートはExcel HTML Visio図面 XMLなどの形式で出力可能直感的な操作を実現する使い慣れたOffice準拠のンターフェスで見栄えのする業務フロー図をすばやく作成無料の内部統制文書化ツールを活用することで文書化作業をより効率化できます Microsoft Office Visio 内部統制文書化ツール

6 フォルダゕクセス権マップフゔルサーバー上の共有フォルダの構成とゕクセス権を VisioやExcelに出力し設定状況を一目で把握できるツール Active Directoryから共有フォルダのリストを取得可能 VisioやExcelへ出力する際階層の深さを指定可能共有ゕクセス権 NTFS ゕクセス権の設定状況を表示指定したゕカウントが設定されているフォルダをビジュゕルに検索

7 Web プレゼンステンプレート Visio で作成した図面に Microsoft Office Communicator のプレゼンス情報を付与し Web 形式で保存図面上でリゕルタムにプレゼンス情報を把握プレゼンスゕコン応対可能退席中取り込み中オフランダウンロード URL :

8 Active Directory Topology Diagrammer (ADTD) ActiveX Data Objects (ADO) を利用して Active Directory 構造 Exchange 組織を Visio に出力するツール Active Directory トポロジードメンサト OU 構造 Exchange 組織

9 SQL Server 2005 Data Mining Add-ins for Office system SQL Server 2005 Analysis Services のデータマニングモデルの処理結果を Visio 2007 上にレポートする Visio のゕドンツール

10 VBA よく使う機能や操作の自動化マクロの記録機能を活用ゕドン / ゕドオン Visio 機能の拡張 VB VB.NET C# C++ などの開発言語を利用 Visual Studio Tools for Office を利用すると便利 Visio の開発手法図形開発クリップゕート的な図形の作成 ( 図形編集機能 ) 形状や動きが変わる図形の作成 ( シェプシート )

11 Visio 開発手法まとめ

12 Visio 開発プラットフォーム 12

13 シェプシートシェプの立ち振る舞いを定義全オブジェクトにシェプシートが存在スプレッドシート形式セクション行セルで構成

14 シェプシートの開き方 [ ウゖンドウ ] メニュー [ シェプシートの表示 ] をクリック開発者モードで実行時しシェプのショートカットメニューから起動 [ ツール ] メニュー [ オプション ] [ 詳細設定 ]

15 Visual Basic for Applications (VBA) Visio には他の Office と同様に VBA プログラミング環境が用意されている VB よりも高速に動作デバックが容易

16 マクロの記録 1. [ツール] メニュー - [マクロ] - [新しいマクロの記録] をクリックします 2. [マクロ名] ボックスにマクロ名を入力します 3. [OK] をクリックしマクロの記録を開始します 4. マクロとして記録する操作を実行しますマクロの記録時はマウスを使用してコマンドとオプションをクリックでき図面上の図形およびオブジェクトで作業ができます 5. マクロの記録を停止するには [記録]ツールバーので [記録終了 ] をクリックします Visual Basic Editor で記録されたコードを確認できます

17 Visio オブジェクトモデル

18 特別なオブジェクト ThisDocument オブジェクト Visio フゔルを表す Document オブジェクトプロジェクト内のコードから参照するとそのプロジェクトの Document オブジェクトを返す Global オブジェクト Visio フゔルの VBA プロジェクト内のコードのみで使用オブジェクトに直接ゕクセス

19 ページとドキュメント

20 Document オブジェクトの利用図面を開く Public Sub OpenDocument_Example() ' 既存図面を開くには Open メゾットを利用 ' 新規図面を作成するには Add メゾットを利用 Dim vsodocument As Visio.Document ' 既存の図面を開く Set vsodocument = Documents.Open("C: Demo Sample.vsd") ' 新規図面を開く Set vsodocument = Documents.Add("") ' テンプレートを開く Set vsodocument = Documents.Add("C: Demo Sample.vst") End Sub

21 Document オブジェクトの利用図面を閉じる Sub DocumentClose_Example() ' 図面を閉じる ThisDocument.Close End Sub

22 Page オブジェクトの利用ページの追加 Public Sub Add_Page_Example() ' ページを追加する Set pagobj = ThisDocument.Pages.Add ' ページ名を変更する For Each objpage In ThisDocument.Pages I = I + 1 objpage.name = " 図面 " & I Next End Sub

23 シェプ

24 Shape オブジェクトの利用シェプ数をカウントする Sub Shape_Count_Example() Dim oshapes As Visio.Shapes Dim oshape As Visio.Shape Dim Counter As Integer Set oshapes = ActivePage.Shapes Counter = 0 図面上のシェプ数をカウント For Each oshape In oshapes If oshape.type = vistypeshape Then Counter = Counter + 1 End If Next Debug.Print Counter End Sub

25 Cell オブジェクトの利用シェプシートの参照 Sub ShapeCellsSRC_Example() Dim shpobj As Visio.shape ' ゕクテゖブなシェプを取得 Set shpobj = ActiveWindow.Selection(1) ShapeData セクションの 1 行目 Value セルの値を設定 shape.cellssrc( <Section>, <Row>, <Cell>) shpobj.cellssrc(vissectionprop, 0, viscustpropsvalue).formulau = 12 End Sub

26 ローカル名と汎用名 Visio 2000 以降ローカル名と汎用名の両方を使用して Visio オブジェクトを参照できる Visio 2003 以降シェプシートではセル数式と値に汎用名だけが表示される汎用名の利用を推奨例 : 処理マスタシェプローカル名 : Master.Name = 処理汎用名 : Master.NameU = Process

27 シェプの取得 Public Sub GetShape_Example() Dim vsoshape As Visio.Shape ' ゕクテゖブページ内のシェプ一覧を表示 For Each vsoshape In ActivePage.Shapes Debug.Print vsoshape.nameu Next End Sub

28 ステンシルの取得 Sub GetStenci_Example() Dim vsodocument As Visio.Document Dim vsodocuments As Visio.Documents Set vsodocuments = Visio.Documents ' ステンシルの一覧を表示 For Each vsodocument In vsodocuments Debug.Print vsodocument.name Next End Sub

29 図面ページにマスタシェプをドロップする Public Sub DropShape_Example() Dim stencil As Visio.Document, mstcircle As Visio.Master ' ステンシルを指定 Set stencil = ThisDocument.Application.Documents.Open("BASFLO_M.VSS") ThisDocument.Application.Windows(ThisDocument.Index).Activate ' マスタシェプを指定 Set mstcircle = stencil.masters.itemu("process") シェプをページにドロップ X 座標 Y 座標を指定座標はンチで指定 ThisDocument.Pages(1).Drop mstcircle, 2, 10 End Sub

30 Connect オブジェクト Visio 固有のオブジェクト図形と図形の接続関係を表す接続元 (GlueFrom) 接続先 (GlueTo) 'GlueTo メソッドを使用して 1 次元図形の始点を下の 2 次元図形の右上の頂点 (Geometry1.X3) に接着 vsocellgluefrombegin.glueto vsocellgluetoobject 'GlueTo メソッドを使用して 1 次元図形の終点を上の 2 次元図形の左下の頂点 (Geometry1.X1) に接着 vsocellgluefromend.glueto vsocellgluetoobject2

ActivePage.Shapes(" 判断 ") Set vsoshape2 = Visio.ActivePage.Shapes(" 処理 ") Set vsoconnectorshape = Visio.

31 AutoConnect オブジェクトの利用コネクタ接続 Public Sub AutoConnectShapes() Dim vsoshape1 As Visio.Shape Dim vsoshape2 As Visio.Shape Dim vsoconnectorshape As Visio.Shape Set vsoshape1 = Visio.ActivePage.Shapes(" 判断 ") Set vsoshape2 = Visio.ActivePage.Shapes(" 処理 ") Set vsoconnectorshape = Visio.ActivePage.Shapes(" 動的コネクタ ") vsoshape1.autoconnect vsoshape2, visautoconnectdirright, vsoconnectorshape End Sub

32 Visio 2007 に追加されたオブジェクトデータソースへの接続図形とデータのリンクデータグラフゖック表示図形の自動接続 ( オートコネクト ) など Visio 2007 の新機能をプログラムにより制御可能 DataColumn DataColumns DataConnection DataRecordset DataRecordsets GraphicItem GraphicItems

DataRecordset オブジェクトの利用データ接続 Public Sub AddDataRecordset_Example() Dim strconnection As String Dim strcommand As String Dim strofficepath As String Dim vsodatarecordset As Visio.

33 DataRecordset オブジェクトの利用データ接続 Public Sub AddDataRecordset_Example() Dim strconnection As String Dim strcommand As String Dim strofficepath As String Dim vsodatarecordset As Visio.DataRecordset strofficepath = Visio.Application.Path strconnection = "Provider=Microsoft.ACE.OLEDB.12.0;" _ & "User ID=Admin;" _ & "Data Source=" + strofficepath + "SAMPLES 1041 ASTMGT.XLS;" _ & "Mode=Read;" _ & "Extended Properties=""HDR=YES;IMEX=1;MaxScanRows=0;Excel 12.0;"";" _ & "Jet OLEDB:Engine Type=34;" strcommand = "SELECT * FROM [ ネットワーク機器 $]" Set vsodatarecordset = ActiveDocument.DataRecordsets.Add(strConnection, strcommand, 0, ネットワーク機器 ") End Sub

34 DropLinked メゾットの利用データをリンクした図形の作成 Public Sub DropLinked_Example() Dim vsoshape As Visio.Shape Dim vsomaster As Visio.Master Dim dblx As Double Dim dbly As Double Dim lngdatarowid As Long Dim vsodatarecordset As Visio.DataRecordset Dim intrecordesetcount As Integer intrecordsetcount = Visio.ActiveDocument.DataRecordsets.Count Set vsodatarecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) Set vsomaster = Visio.Documents("SERVER_M.VSS").Masters.ItemU("Database server") dblx = 1 dbly = 10 lngdatarowid = 1 Set vsoshape = ActivePage.DropLinked(vsoMaster, dblx, dbly, vsodatarecordset.id, lngdatarowid, True) End Sub

vsoselection As Visio.Selection ' ゕクテゖブウゖンドウ内の全オブジェクトを選択 ActiveWindow.

35 Selection.DataGraphic プロパテゖの利用データグラフゖックの適用 Public Sub ApplyDataGraphic() Dim vsoselection As Visio.Selection ' ゕクテゖブウゖンドウ内の全オブジェクトを選択 ActiveWindow.SelectAll Set vsoselection = ActiveWindow.Selection ' データグラフゖックを適用 vsoselection.datagraphic = ActiveDocument.Masters(" カスタムデータグラフゖック ") End Sub

36 シェプシートからのプログラム実行利用セクション関数 [Actions] セクション [Events] セクション RUNADDON 関数マクロやゕドオンを実行 CALLTHIS 関数プロシージャの呼び出し

37 Visio ソリューションの公開ステンシル (.vss および.vsx フゔル ) テンプレート (.vst および.vtx フゔル ) Visio ソリューションラブラリゕドオン (.vsl フゔル ) 実行可能形式のゕドオン (.exe フゔル ) ヘルプフゔル (.chm および.aw フゔル )

38 フゔルパスの指定 Visio が既定でフゔルの検索や保存をする場所を指定 [ ツール ] メニューの [ オプション ] - [ 詳細設定 ] タブ [ フゔルパスの設定 ] で指定既定設定 ( Microsoft Windows Vista の場合 ) 個人用図形ユーザーユーザー名ドキュメント個人用図形図面ユーザーユーザー名ドキュメントテンプレートステンシルヘルプ Program Files Microsoft Office Office12 言語ゕドン Users ユーザー名 AppData Microsoft Addins

39 開発リフゔレスソフトウェゕ開発キット (SDK) Visio の図形を設計開発およびプロダクテゖブツールですスマートシェプを使用したプロジェクト管理仕様と設計開発検証を容易にするカスタム作業環境を提供しますヘルプ Visio 2007 を使用したソリューションの開発の概要プログラミングタスクサンプルリフゔレンスが含まれています

参考情報 MSDN Visio 技術資料一覧 http://www.microsoft.com/japan/msdn/office/understanding/visio.aspx - SDK のダウンロード情報ラブラリ - Visio カスタマズテクニック講座 Visio 自習書 http://www.

40 参考情報 MSDN Visio 技術資料一覧 - SDK のダウンロード情報ラブラリ - Visio カスタマズテクニック講座 Visio 自習書 - 作図編シェプシート編 VBA 編ほか他製品との連携も用意 Visio ブログ Visio コミュニテゖサト

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

42 まとめ Visio の開発手法クリップゕート的な図形の作成 ( 図形編集機能 ) 形状や動きが変わる図形の作成 ( シェプシート ) よく使う機能や操作の自動化 (VBA) ゕドン / ゕドオン (Visual Studio / VSTO) VBA プログラミング環境が用意 Office VBA の知識をVisio VBA でも活用できる Visio 2007 の可能性は無限大ぜひご活用ください!!

43 Visio Professional 2007 知って試してトクするキャンペーン実施中!! Webcast (Video) もあります

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.

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

44 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.

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

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