主题：excel里面图片上面插入的文本框如何代码调用

比如代码

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\picture.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表
ws.shapes.Range("TextBox 2").Select
msgbox(app.Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text )

app.quit