vba - 如何在 Visual Basic for 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

首先，我们需要将文本框属性更改为自动调整，然后根据顶部、高度尺寸，我们可以排列和移动它们