次の方法で共有

VisWebPageSettings.ThemeName プロパティ

  • [アーティクル]

作成するページに Web ページ テーマを割り当てます。 値の取得と設定が可能です。

構文

式。ThemeName

式VisWebPageSettings オブジェクトを返す式。

戻り値

String

注釈

Microsoft Visio によって提供されるテーマ、または自分で作成したテーマを使用します。 独自のテーマを作成する場合は、次の操作を行います。

  1. HTML タグに次の用語を含む HTM ファイルを作成します。 ##VIS_SAW_FILE## Visio は、このタグを含む HTM ファイルをテーマ ファイルとして認識します。

  2. ファイルを次のフォルダーに格納します: \ your_Visio_path\ your_language_ID\

その後、テーマ ファイルが [Web ページでホスト] ドロップダウン リストの [Web ページとして保存] ダイアログ ボックスに表示されます ([BackstageButton] タブ [>名前を付けて保存] [名前を付けて保存>] の種類の一覧 >Web ページ (*.htm;*.html)>[詳細の発行]> )。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、ThemeName プロパティを使用して、作成する Web ページに Basic テーマ (Visio によって提供) を割り当てる方法を示しています。

このマクロを実行する前に、 を、お使いのコンピューター上の有効なターゲット パスと、Web ページに割り当てるファイル名に置き換えてください path\filename.htm 。 また、 をyour_language_ID、コンピューター上の Microsoft Visio へのパスに置き換えます your_Visio_path (たとえば、C:\Program Files\Microsoft Office\Visio14\1033....)。

Public Sub ThemeName_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .ThemeName = "your_Visio_path\your_language_ID\Basic.htm" 
 .TargetPath = "path\filename.htm" 
 End With 
 
 vsoSaveAsWeb.CreatePages 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。