2063
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
sam11 2005-09-16
我已經實現了,是調用了excel中的 Shapes方法中的textframe屬性
VBDN 2005-09-16
Private Sub Command1_Click()
Dim VBExcel As New Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim obj As Excel.OLEObject
Set xlbook = VBExcel.Workbooks.Open("C:\Documents and Settings\xtgl\桌面\Book2.xls")
Set xlsheet = xlbook.Worksheets("sheet1")
For Each obj In xlsheet.OLEObjects
Debug.Print obj.Name
obj.Height = obj.Height * 2
Next
'显示excel
VBExcel.Visible = True
End Sub
以上代码实现更改文本框的高度，传值的操作还期待高人出现。
Dim VBExcel As New Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim obj As Excel.OLEObject
Set xlbook = VBExcel.Workbooks.Open("C:\Documents and Settings\xtgl\桌面\Book2.xls")
Set xlsheet = xlbook.Worksheets("sheet1")
For Each obj In xlsheet.OLEObjects
Debug.Print obj.Name
obj.Height = obj.Height * 2
Next
'显示excel
VBExcel.Visible = True
End Sub
以上代码实现更改文本框的高度，传值的操作还期待高人出现。
x_ch 2005-09-15
从vb中传什么意思？
