Visual Basic에서 텍스트 상자의 크기를 조정하는 방법

Question

Visual Basic 2010에서 텍스트 상자를 '맞추는'방법이 있는지 알고 싶습니다. 텍스트가 줄 바꿈되지 않는다고 가정합니다. 새로 만든 텍스트 상자가 단순히 하나의 유형으로 확장되는 PowerPoint의 GUI 에서처럼 텍스트 상자를 정의하고 입력 된 텍스트가 너비/높이를 정의하도록 허용합니다. 내 코드는 다음과 같습니다 :

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 

감사합니다!

Answer 1

이 모양의 크기를 조정합니다,하지만 당신은 다음 자동 줄 바꿈을 허용하는 경우 당신은 한 줄에 하나의 문자 키가 크고 마른 체형의 모양으로 결국 ...

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

당신이 포장 텍스트가 필요하십니까?