更改字體名稱，Excel宏中文本框大小的代碼

Question

嘗試找到更改字體名稱，Excel宏中文本框大小的代碼，我所有的代碼從“ .font.name =到結尾為”在VBA中顯示錯誤，有什么建議嗎？ 謝謝

Set myDocument = Worksheets(1)

  Set tx_ = myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 382, 266, 122, 20)

tx_.TextFrame.Characters.Text = ThisWorkbook.Sheets(1).Cells(6, 8)

  With tx_.TextFrame.Characters.Text

  .Font.Name = "Tahoma"

  .Font.Size = 10

  .Font.Bold = msoTrue

  End With

Answer 1

而.Text是一個有效的財產.Characters對象， .Font是不是它的某種類型的子屬性。 它是對象本身的屬性。 因此，以下對我有用：

Sub Tst()

Dim myDocument As Worksheet: Set myDocument = ThisWorkbook.Sheets("Sheet1")
Dim tx As Shape

Set tx = myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 382, 266, 122, 20)
With tx.TextFrame.Characters
    .Text = mydocument.Cells(6, 8)
    .Font.Name = "Tahoma"
    .Font.Size = 10
    .Font.Bold = msoTrue
End With

End Sub