我在excel中畫了一個文本框,我要從vb中傳一值到這個文本框中

Question

我在excel中畫了一個文本框,我要從vb中傳一值到這個文本框中

Answer 1

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以上代码实现更改文本框的高度，传值的操作还期待高人出现。

Answer 2

我已經實現了,是調用了excel中的 Shapes方法中的textframe屬性