向ppt中一个slice添加textbox出错，实在找不到原因，请各位帮忙

Question

执行到
      Set shpCurrShape = .Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 500, 500)
出错
这样也不行 Set shpCurrShape = .Shapes _
            .AddTextbox(msoTextOrientationHorizontal, 100, 100, 500, 500)
提示为实时错误'-2147188160 (80048240)'
shapes（unknown member）invalid request。
powerpoint only supports msoTextOrientationHorizontal and msoTextOrientationVerticalFarEast
初次用vb 有很多不明白的地方，请高手指教