如何在Visual Basic 2010中調整文本框的大小

我想知道在Visual Basic 2010中是否有一種已知方法來「適合」文本框（假定文本不換行）。這可能有點等同於只需定義一個文本框並讓輸入的文本定義寬度/高度，就像在PowerPoint的GUI中一樣，新創建的文本框只是簡單地擴展爲一種類型。我的代碼如下：如何在Visual Basic 2010中調整文本框的大小

Set tbox1 = slideObject.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=20, Top:=300, Width:=72, Height:=16) 

With tbox1.TextFrame.TextRange 
    .Text = "the text in the text box" 
    .Font.Bold = True 
    .Font.Name = "Calibri" 
    .Font.Size = 10 
End With 

With tbox1.Fill 
    .Visible = True 
    .ForeColor.RGB = RGB(255, 255, 255) 
End With 

With tbox1.Line 
    .Visible = True 
    .ForeColor.RGB = RGB(0, 0, 0) 
    .Weight = 2 
End With

感謝您的幫助！

來源

2014-01-07 HotDogCannon

你在使用VB.NET還是VBA？從你的問題+標籤不清楚... –

VBA，我相信。不管PowerPoint GUI中的宏編輯器是什麼。 – HotDogCannon

這將調整形狀，但是如果你讓自動換行，那麼你最終與每行一個字母一個高個子瘦小的形狀......

tbox1.TextFrame.WordWrap = False 
tbox1.TextFrame.AutoSize = ppAutoSizeShapeToFitText

你需要的文本換行？

來源

2014-01-07 19:25:50

謝謝Tim！這工作完美:) – HotDogCannon

如何在Visual Basic 2010中調整文本框的大小

回答

相關問題