投稿日	： 2006/03/28(Tue) 12:15
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: ＭＳ−ＷＯＲＤのようなフォント強制設定

IF 文等を使ってそのようなコードを書けばいいのでは。？
又は、最初から日本語フォントだけをコンボボックスに表示しておくとか。
標準でほぼ同様の動きをするようですが....。

Private Sub Command1_Click()
    With RichTextBox1
        Debug.Print .SelFontName
        .SelFontName = "Raavi"
        Debug.Print .SelFontName
        If .SelFontName <> "Raavi" Then
            .SelFontName = "ＭＳ ゴシック"
        End If
        Debug.Print .SelFontName
    End With
End Sub

というより何が解らないのでしょうか？

★ - ＭＳ−ＷＯＲＤのようなフォント強制設定 - 風見鶏 03/27-18:53No.6105
• Re: ＭＳ−ＷＯＲＤのようなフォント強制設.. - 花ちゃん 03/28-12:15 No.6108
  • Re^2: ＭＳ−ＷＯＲＤのようなフォント強制.. - 風見鶏 03/28-15:23 No.6109
    • Re^3: ＭＳ−ＷＯＲＤのようなフォント強制.. - 花ちゃん 03/28-16:12 No.6110
      • Re^4: ＭＳ−ＷＯＲＤのようなフォント強制.. - 風見鶏 03/28-17:51 No.6113
        • Re^5: ＭＳ−ＷＯＲＤのようなフォント強制.. - 花ちゃん 03/28-18:34 No.6114
          • Re^6: ＭＳ−ＷＯＲＤのようなフォント強制.. - 風見鶏 03/30-11:49 No.6118
    • Re^3: ＭＳ−ＷＯＲＤのようなフォント強制.. - Starfish 03/30-04:00 No.6117
      • Re^4: ＭＳ−ＷＯＲＤのようなフォント強制.. - 風見鶏 03/30-12:05 No.6119
        • Re^5: ＭＳ−ＷＯＲＤのようなフォント強制.. - 花ちゃん 03/30-14:41 No.6120
          • Re^6: ＭＳ−ＷＯＲＤのようなフォント強制.. - 風見鶏 03/30-19:06 No.6122
        • Re^5: ＭＳ−ＷＯＲＤのようなフォント強制.. - Starfish 03/30-18:26 No.6121
          • Re^6: ＭＳ−ＷＯＲＤのようなフォント強制.. - 風見鶏 03/30-19:08 No.6123
            • Re^7: ＭＳ−ＷＯＲＤのようなフォント強制.. - 風見鶏 03/31-15:02 No.6127