更改VBA文本框中文本部分的字體

所以，我最近開始在PowerPoint中探索VBA。我開始在幻燈片中製作看起來像文本編輯器的東西。但問題是，我所做的應該使所選文本變爲粗體，斜體或下劃線的按鈕將文本框內的整個文本更改爲粗體，斜體或帶下劃線的文本。

，我用來改變文本字體目前的方法是這樣的：

Private Sub CommandButton1_Click() 
    If TextBox1.Text.Font.Bold = False Then 
     TextBox1.Text.Font.Bold = True 
    Else 
     TextBox1.Text.Font.Bold = False 
    End If 
End Sub

顯然，這個代碼將在TextBox1中改變所有文本爲粗體文本點擊CommandButton1的時候。但是，如果我只想將部分文本更改爲粗體文本（即所選文本），該怎麼辦？

來源

2011-11-02 user1025536

據我所知，你不能控制文本框的文本格式，除了作爲一個整體。在VB中，我認爲你可以使用Rich Text Box控件來完成這項工作，但PPT/VBA不提供一個。

來源

2011-11-02 16:37:08

我知道這工作與處理VBA和PowerPoint對象：

... Shape.TextFrame.TextRange.Characters（10，15）= .Font.Color.RGB RGB（，）

... Shape.TextFrame.TextRange.Characters（10，15）.Font.Italic = msoTrue

我還沒有用excel文本框試過。

來源

2017-10-11 18:22:14 Luke

更改VBA文本框中文本部分的字體

回答

相關問題