如何在Powerpoint中創建具有設置文本，字體類型，字體大小，字體顏色的自定義文本框？

我需要在活動幻燈片中使用宏在PowerPoint中設置文本，字體類型，字體大小，字體顏色以及粗體和斜體功能來創建自定義文本框。如何在Powerpoint中創建具有設置文本，字體類型，字體大小，字體顏色的自定義文本框？

我目前使用此代碼：

Sub InsertTextBox() 
Set myDocument = ActivePresentation.Slides(1) 
Set newTextBox = myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _ 
    100, Top:=100, Width:=541.44, Height:=43.218) 
    With newTextBox.TextFrame.TextRange 
     .Text = "Slide Title" 
     .Font.Size = 24 
     .Font.Name = "Arial" 
     .Font.Colour = RGB(107, 107, 107) 
End With 
End Sub

它扔在.Font.Colour說，這個屬性不與對象相關聯的異常。此外，我需要把一個功能的大膽和italics..Plz幫我在這

來源

2014-01-24 user3231160

'.Font.Color ='是正確的屬性。爲了大膽使用這個'.Font.Bold = true'和斜體非常相似：'.Font.Italic = true'。 –

你想

.Font.Color.RGB = RGB(107, 107, 107)

正如Kazjaw指出，它的。顏色，而不是.Colour

來源

2014-01-26 17:37:56

Hi Steve ...在上面的代碼中，如果我只想製作粗體文本「幻燈片標題」並將其插入爲文本框，而幻燈片標題之後的其餘文本不應以粗體顯示。如何操作 – user3231160

在 –

下面看到新的答案。以上。嘆。 –

你可以使用find在範圍內一個TextRange中找到字符串，並返回一個新的TextRange由剛剛找到的文本的：

With newTextBox.TextFrame.TextRange 
    With .Find("Slide Title") 
     .Font.Bold = True 
    End With 
End With

在實際應用中，你想使用INSTR驗證的T你正在尋找的確實是在文本框中。

來源

2014-01-27 16:05:27

如何在Powerpoint中創建具有設置文本，字體類型，字體大小，字體顏色的自定義文本框？

回答

相關問題