设置自选图形中的文字排列方式

Question

不过我要的是任意一个自选图形型中加入文字，
比如说是：向下的箭头，或圆形，方形什么的..给位还有没有其他的方法，设置一下：
自选图形中的文字排列方式呢？

Answer 1

AddShape 方法
参阅应用于示例特性当该方法应用于 Shapes 对象时，返回一个 Shape 对象，该对象代表工作表中的新自选图形。当该方法应用于 CanvasShapes 对象时，返回一个 Shape 对象，该对象代表绘图画布中的新自选图形。
expression.AddShape(Type, Left, Top, Width, Height)
expression      必选。该表达式返回 Shapes 对象。
Type      MsoAutoShapeType 类型，必需。指定要创建的自选图形的类型。
 MsoAutoShapeType 常量:
 msoShapeCloudCallout     '是云形
msoShapeOvalCallout      '圆形
msoShapeRoundedRectangularCallout     '是圆角方
Left   , Top   Single 类型，必需。相对于文档的左上角，以磅为单位给出自选图形边框左上角的位置。
Width   , Height   Single 类型，必需。以磅为单位给出自选图形边框的宽度和高度。

Answer 2

这个问题还可以这样解决：
更改自选图形的文字排列方式为：水平的 
ActiveSheet.Shapes ("AutoShape 1").Orientation = xlHorizontal楼上说的是怎样加入自选图形吧。谢了，虽然跑题了，加分。