|
Webページとして保存をマクロで実行 |
- 01: 名前：KEI投稿日：2007/10/11(木) 14:00
- Visio図面の保存をマクロで実行する処理を作成しています。
「上書き保存」はSaveメソッド、
「名前を付けて保存」はSaveAsメソッドを使用することで作成できたのですが、
「Webページとして保存」が作成できません。
「Webページとして保存」をマクロで行う方法はありますでしょうか。
- 02: 名前：yoda投稿日：2007/10/11(木) 17:27
- 以下のようなマクロで、できます。ただし、参照設定で、
Microsoft Visio xx Save As Web Type Library を設定
する必要があります。
Sub test()
Dim vsoSaveWeb As IVisSaveAsWeb
Set vsoSaveWeb = Application.SaveAsWebObject
Dim vsoSettings As IVisWebPageSettings
Set vsoSettings = vsoSaveWeb.WebPageSettings
vsoSettings.QuietMode = 1
vsoSettings.SilentMode = 1
vsoSettings.TargetPath = "C:\Documents and Settings\yoda\デスクトップ\test.htm"
vsoSaveWeb.AttachToVisioDoc ThisDocument
vsoSaveWeb.CreatePages
End Sub
- 03: 名前：KEI投稿日：2007/10/12(金) 09:31
- こんな方法があるとは知りませんでした。
yoda様どうもありがとうございました。
|
|