以文本方式查看主题

-  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=132546)

--  作者:hpbcfmqr
--  发布时间:2019/3/24 19:26:00
--  向excel中文本框加文字出错
\'\'\'

 Dim App As New MSExcel.Application
App.Visible = True

Dim jbwork As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "脊背.xls")  


Dim LBL As MSExcel.Shape

 LBL = jbwork.Sheets(1).Shapes(1)

Dim hd As Integer=6
 
\'MsgBox "提示:在总归档目录完成后做脊背,可以一次打印多条脊背"

Dim wd As  Double
Dim gd As  Double

wd = 42.5281142 / 1.5 * hd
gd = 42.5281142 / 1.5 * 11.5


LBL.Width = wd
LBL.Height = gd

\'下面这两行代码出错

LBL.TextFrame2.TextRange.Characters.Text ="G69银川至百色高速公路广西百色至靖西段国家发改委、交通运输厅、国土资源厅、环境保护局、林业局等下发的关于本项目的立项、审批批复文件"  \' ajtm
 
 LBL.TextFrame2.TextRange.Characters.Font.Size = 15


--  作者:hpbcfmqr
--  发布时间:2019/3/24 19:27:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:脊背.xls


--  作者:有点甜
--  发布时间:2019/3/24 21:50:00
--  

参考代码

 

Dim App As New MSExcel.Application

 

Dim jbwork As MSExcel.Workbook = App.WorkBooks.Open( "C:\\Users\\dv rrxaI600 007\\Downloads\\脊背.xls") 
jbwork.Sheets(1).shapes.Range("TextBox 35").Select
app.Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "123"
App.Visible = True