|
|
 | | From: | =?gb2312?B?Q2FjdHVzIFvPycjLx/Jd?= | | Subject: | =?gb2312?B?yKG1w7/YvP6g7pFC?= | | Date: | Thu, 13 Jan 2005 14:47:45 +0800 |
|
|
 | 就是在 Sheet 上放幾個 CHECKBOX，之類的 OLEObjects。
然後在 VBA 中如何取得它們的狀態？
Excel 2000 中運行這個例子並無作用，是我的 Excel 有問題，還是代碼出錯？
Sub Main()
i = 2
Sheet1.Range("A1").Value = "Name"
Sheet1.Range("B1").Value = "Link Type"
For Each obj In Worksheets("sheet1").OLEObjects
'調試發現，此段代碼沒有被執行，未能取得控件屬性。
Sheet1.Cells(i, 1) = obj.Name
If obj.OLEType = xlOLELink Then
Sheet1.Cells(i, 2) = "Linked"
Else
Sheet1.Cells(i, 2) = "Embedded"
End If
i = i + 1
Next
End Sub
|
|
| | From: | 王会宇 | | Subject: | Re: 取得控件狀態 | | Date: | Thu, 13 Jan 2005 17:20:18 +0800 |
|
|
| 我的2003运行没问题
"Cactus [仙人球]" 写入消息新闻:O%23yKOzT%23EHA.608@TK2MSFTNGP15.phx.gbl...
> 就是在 Sheet 上放幾個 CHECKBOX，之類的 OLEObjects。
> 然後在 VBA 中如何取得它們的狀態？
>
> Excel 2000 中運行這個例子並無作用，是我的 Excel 有問題，還是代碼出錯？
>
> Sub Main()
>
> i = 2
> Sheet1.Range("A1").Value = "Name"
> Sheet1.Range("B1").Value = "Link Type"
> For Each obj In Worksheets("sheet1").OLEObjects
> '調試發現，此段代碼沒有被執行，未能取得控件屬性。
> Sheet1.Cells(i, 1) = obj.Name
> If obj.OLEType = xlOLELink Then
> Sheet1.Cells(i, 2) = "Linked"
> Else
> Sheet1.Cells(i, 2) = "Embedded"
> End If
> i = i + 1
> Next
>
> End Sub
>
|
|
|
