出力ファイル今回学習できたことVisioでもVBA意外と組めたファイル/フォルダ操作が意外と容易にできる開発タブ以外と色々できる参考あとがきできることこんな感じで作った各ページをこのようにPNGファイルとして出力できます。処理の流れ下記のようなことをしています。出力したHTML関連ファイルの削除ソースコードソースコードは下記か、GitHubでご覧ください。github.comソースを書きたいときは、「Alt+F11」でVisualBasicエディタを開きましょう。SubSaveAsWebアドオンデフォルトで入っている、SaveAsWebアドオンを使いました。コレを使えば、ドキュメントをHTML化してプレビュー的なHTMLが作れます。その際に出力される、ページをPNG化したものをゲットします。普通にVisio作ったHTMLドキュメントも見やすいので、このアドオン自体、割と有能そうな予感。リボンに開発メニューを追加するExcelなどと同じで、デフォルトでは「開発」というものがリボンに存在しません。オプションから追加します。「ファイル→オプション」を選択。メニューから「リボンのユーザー設定」を選択。タブ」の中にある「開発」にチェックを入れます。これで開発タブが解禁されました。実行方法リボンの開発タブを開き、マクロボタンを押す。ThisDocument.SaveImagesを選択して実行する。ショートカットキーを設定して、いつでも実行できるようにする方が効率的かもしれません。その際、既存のショートカットキーを潰してしまわない用に注意しましょう。*1出力ファイル今回は作成したファイルを<ドキュメント格納パス>/images/<ドキュメント名>_<ページ名>.pngにまとめるようにしました。パスを変更したい場合は、RenameFiles()のImgPngPathの設定を変更すれば、出力先が変更できます。この辺のカスタマイズ性を疎かにしてしまったことは反省点の1つです。今回学習できたこと今回学習できた点についてまとめようと思います。VBAはやったことありましたが、Visioは今回初でした。Excelでやっていたので、調べながらやっていれば、なんてことはありませんでした。したら有用なことがもっとできるかも知れないので、調べてみるといいかもしれません。ファイル/フォルダ操作が意外と容易にできる調べてみて以外とファイル/フォルダ操作ができるんだなーってことを知りました。今回はフォルダ作成ファイルコピーファイル/フォルダ削除リネームなんかを行っています。今回挙げただけでも、基本的なファイル操作は大体できているので、応用はいくらでも効きそうです。ファイルの移動や削除で、存在しないファイルを取り扱った場合、たしかエラーが出ます。そのあたりをファイル存在チェックと絡めた関数を作ると、なお良いですね。開発タブ以外と色々できる直接関係ないんですが、開発タブはONにしておいて損はありません。オリジナルのシェイプを作ったりできるし、かなり有能です。なんでデフォルトOFFなんだか謎なレベルです。参考コチラを参考にしました。officetanaka.netあとがきVisioの各ページをPNGで出力するVBAを作ってみたでした!ちょろっと調べて作ってみたら、意外とサクッと作れました。VBAでしたが、いい感じです。キレイ度は微妙かもですが......よければ参考にしてみてください!*1:ショートカットキーに疎い人が、たまに変なキーに割り当てて、本来の機能を実行しようとしたときに発狂しそうになったりするぼくみたいな人間もいます。lisz-works引用をストックしましたストック一覧を見る閉じる引用するにはまずログインしてくださいログイン閉じる引用をストックできませんでした。再度お試しください閉じる限定公開記事のため引用できません。