以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel里面图片上面插入的文本框如何代码调用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75471)

--  作者:freeants
--  发布时间:2015/10/9 14:08:00
--  excel里面图片上面插入的文本框如何代码调用
excel里面图片上面插入的文本框如何代码调用?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:picture.xls





--  作者:大红袍
--  发布时间:2015/10/9 14:38:00
--  

比如代码

 

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