Microsoft Visio によって提供される、またはユーザーが作成したものが Web ページに適用されるカスケード スタイルシート (CSS) を指定します。 値の取得と設定が可能です。
構文
式。スタイル シート
式VisWebPageSettings オブジェクトを返す式。
戻り値
String
注釈
スタイル シートは、Visio が提供するものと、自分で作成するものを選べます。 作成したスタイルシートを次のフォルダに保存すると、[名前を付けて保存] ダイアログ ボックスの [詳細設定] タブの [スタイル シート] ドロップダウン リストに表示されます ([BackstageButton] タブ >名前を付けて保存]>[名前を付けて保存] >[Web ページ] (*.htm;*.html)>発行>詳細設定)。
\ your_Visio_path\ your_language_ID\
Visio は、言語 ID (たとえば、1033) で CSS ファイルを検索することで、スタイルシートを識別します。
例
次の Microsoft Visual Basic for Applications (VBA) マクロは、スタイルシート プロパティを使用して、作成中の Web ページに (Visio で提供される) スチール スタイル シートを割り当てる方法を示しています。
このマクロを実行する前に、 path\filename.htm をコンピューター上の有効なターゲット パスと、Web ページに割り当てるファイル名に置き換えてください。 また、 your_Visio_path と your_language_ID をコンピューター上の Visio スタイルシートへのパスに置き換えます。次に例を示します。
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 のサポートおよびフィードバックを参照してください。