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

sam11 2005-09-13 08:44:50
我在excel中畫了一個文本框,我要從vb中傳一值到這個文本框中
...全文
72 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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

以上代码实现更改文本框的高度,传值的操作还期待高人出现。
x_ch 2005-09-15
  • 打赏
  • 举报
回复
从vb中传什么意思?

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧