Application.DialogFont プロパティ (Visio)

Microsoft Visio がダイアログ ボックスで使用するフォントに関連する情報を返します。 読み取り専用です。

構文

式。DialogFont

expressionApplication オブジェクトを 表す変数。

戻り値

IFontDisp

注釈

このプロパティを使用すると、Visio ダイアログ ボックスと同じフォントでダイアログ ボックスが表示されます。

COM (コンポーネント オブジェクト モデル) は、基になるシステム フォント サポートの上に IFontDisp インターフェイスを持つフォント オブジェクトの標準実装を提供します。 IFontDisp インターフェイスは、フォント オブジェクトのプロパティを公開し、Microsoft Visual Basic 内で作成できる StdFont オブジェクトとして stdole タイプ ライブラリに実装されます。 Stdole タイプ ライブラリは、Visio のすべての Visual Basic プロジェクトから自動的に参照されます。

IFontDisp インターフェイスをサポートしている StdFont オブジェクトの情報を取得するには、次を実行します。

  1. [開発] タブの [コード] グループで、[Visual Basic] を選択します。

  2. [表示] メニューの [オブジェクト ブラウザ] を選択します。

  3. [ プロジェクト/ライブラリ ] の一覧で、[ stdole] を選択します。

  4. [クラス] で、StdFont という名前のクラスが表示されていることを確認します。

例

次のサンプル コードは、アプリケーション フォントに関する情報を伝達する StdFont オブジェクトへの参照を取得する方法と、その情報を即時ウィンドウに出力する方法を示しています。

 
Sub DialogFont_Example() 
 
Dim objStdFont As StdFont 
Set objStdFont = Application.DialogFont 
 
 With objStdFont 
 
 Debug.Print .Bold 
 Debug.Print .CharSet 
 Debug.Print .Italic 
 Debug.Print .Name 
 Debug.Print .Size 
 Debug.Print .Strikethrough 
 Debug.Print .Underline 
 Debug.Print .Weight 
 
 End With 
 
End Sub

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

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

  • Last updated on