VBA textBox列

Question

如何在VBA for Excel中设置文本框的列号？ （excel找到 - ＆gt;格式形状 - ＆gt;文本框 - ＆gt;列）。我试图查看整个互联网和办公室帮助，但我只能在文本框中找到只读属性列。我使用Office 2010

Answer 1

我刚录制了一个宏，它想出了这个：

    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
    Selection.ShapeRange.TextFrame2.Column.Number = 2

Answer 2

在从Word文档中剪切出来后，我发现我有一个名为“文本框1”的文本框。一行（即时窗口的演示）显示列数：
? Sheets(1).Shapes("Text Box 1").TextFrame2.Column.Number

和FWIW框中的文字是：
? Sheets(1).Shapes("Text Box 1").TextFrame.Characters.Text