次の方法で共有


Application.DialogFont プロパティ (Visio)

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

構文

DialogFont

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

戻り値

Ifontdisp

注釈

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

COM (コンポーネント オブジェクト モデル) は、基になるシステム フォント サポートの上に IFontDisp インターフェイスを持つフォント オブジェクトの標準実装を提供します。 IFontDisp インターフェイスは、フォント オブジェクトのプロパティを公開し、Stdole タイプ ライブラリで、Microsoft Visual Basic 内で作成できる StdFont オブジェクトとして実装されます。 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 のサポートおよびフィードバックを参照してください。