返回列表 上一主題 發帖

[分享] excel 2007 shaperange 無法用 shape type for each

jarodz

帖子
32 
主題
7 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2011 
閱讀權限
20 
性別
男 
註冊時間
2011-12-13 
最後登錄
2014-7-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-1-9 01:58 | 只看該作者

[分享] excel 2007 shaperange 無法用 shape type for each

Dim h_shape As Shape
Dim h_shaperange As ShapeRange

Set h_shaperange = Selection.ShapeRange

For Each h_shape in h_shaperange
       ........
Next

上面的程式在excel 2003沒有問題，但是在excel 2007，
h_shape 會是 nothing ，無法收到 shaperange 裡的 shape
目前知道的方法是把 h_shape 宣告成 Object 就可以，如下
Dim h_shape As Object

另外問個問題，如何作型態轉變
把 Object 在變回 Shape?
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2012-1-10 19:32 | 只看該作者
Dim h_shape As Shape
Dim h_shaperange As ShapeRange

Set h_shaperange = Selection.ShapeRange

F ...
jarodz 發表於 2012-1-9 01:58


這個相信是 2007 的一個bug,
2010 已經修正了.

object實際上也轉換了為shape
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

jarodz

帖子
32 
主題
7 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2011 
閱讀權限
20 
性別
男 
註冊時間
2011-12-13 
最後登錄
2014-7-8 
3#
發表於 2012-1-11 13:08 | 只看該作者
回復 2# kimbal

會這麼問是因為把 Option Explicit，
如果把宣告成 Object 的 shape 當其他 sub routine 的引數(shape) 會有錯誤，
不想因為這個bug把其他已經寫好的 Sub routine 的 As Shape 都改成 As Object，
不知這個 bug 有沒有 patch release?
謝謝。

BR,
Jarod

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題