'''
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