VisWebPageSettings.Stylesheet プロパティ

Microsoft Visio によって提供されるカスケード スタイル シート (CSS)、または作成したスタイルシートを Web ページに適用することを指定します。 値の取得と設定が可能です。

構文

式。Stylesheet

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

戻り値

String

注釈

スタイルシートには、Visio によって提供されたもの、または自分で作成したスタイルシートを指定できます。 作成したスタイルシートを次のフォルダーに保存すると、[Web ページとして保存] ダイアログ ボックスの [詳細設定] タブの [スタイル シート] ドロップダウン リストに表示されます ([BackstageButton] タブ [名前を付けて保存>] >の種類リスト >Web ページ (*.htm;*.html)>[詳細の発行]> )。

\ \ your_Visio_pathyour_language_ID\

Visio では、CSS ファイルの言語 ID (1033 など) の名前のフォルダーを検索して、スタイルシートを識別します。

例

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

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

C:\Program Files\Microsoft Office\Visio14\1033....

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

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

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