如何在Visual Basic 2010中为Powerpoint 2010调整文本框的大小

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

你需要文字换行吗？

Answer 2

首先，我们需要将textbox属性更改为autofit，然后根据顶部，高度尺寸，我们可以排列和移动它们